كود لاخفاء صفوف

[abouelhassan]

الاخوة الافاضل الاساتذة جميعا

محتاج لكود يخفى الصفوف

اذاكانت قيمة خلية فى العمود G = 0.00

يقوم بأخفاء هذا الصف

احترامى الشديد

[الـعيدروس]

السلام عليكم

الاخ الحبيب ابو الحسن

جرب هذا الكود

Sub A_R_JC()

Dim A As Range

Dim E As Long

Const Z = "0.00"

E = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row

For Each A In ActiveSheet.Range("G2:G" & E)

    If A.Value = Val(Z) Then

    A.Select

    A.EntireRow.Hidden = True

    End If

Next A

End Sub

[abouelhassan]

العبقرى الرائع الخلوق المبدع استاذنا الحبيب حبيبى ابا نصار المـتألق

احبك الله الذى احببتك فيه

والله عندما جربت الكود لم اصدق ما اراه يعمل يعمل يعمل تمامالتمام

كل الاحترام والتقدير والعرفان لك اخى الغالى لقلبى ابا نصار

اخيك فى الله ابوالحسن

[abouelhassan]

استاذنا هل بالامكان تسريع الكود لانه يأخذ وقت

ممكن سامحنى

اشكرك والله اخى وحبيبى واستاذى ابو نصار

[الـعيدروس]

جزاك الله خير اخي ابو الحسن على كلماتك الطيبه

جرب هكذا

Sub A_R_JC()

Dim A As Range

Dim E As Long

Application.ScreenUpdating = False

Dim X_ALI As XlCalculation

X_ALI = Application.Calculation

Application.Calculation = xlCalculationManual

  On Error GoTo C_ALIDROOS

Const Z = "0.00"

E = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row

For Each A In ActiveSheet.Range("G2:G" & E)

	If A.Value = Val(Z) Then

	A.Select

	A.EntireRow.Hidden = True

	End If

Next A

  Application.Calculation = X_ALI

Exit Sub

C_ALIDROOS:

Application.Calculation = X_ALI

Application.ScreenUpdating = False

End Sub

تم تعديل يناير 14, 2012 بواسطه alidroos

[abouelhassan]

الله الله الله

هل ترانى استاذنا لقد وقفت لك احتراما والله

احبك فى الله

يعمل تمام التمام

جزاك الله خير الدنيا وخير الاخرة

احترامى

[أيهاب ممدوح]

جزاك الله خير اخي ابو الحسن على كلماتك الطيبه

جرب هكذا

Sub A_R_JC()

Dim A As Range

Dim E As Long

Application.ScreenUpdating = False

Dim X_ALI As XlCalculation

X_ALI = Application.Calculation

Application.Calculation = xlCalculationManual

  On Error GoTo C_ALIDROOS

Const Z = "0.00"

E = ActiveSheet.Cells(Rows.Count, 7).End(xlUp).Row

For Each A In ActiveSheet.Range("G2:G" & E)

	If A.Value = Val(Z) Then

	A.Select

	A.EntireRow.Hidden = True

	End If

Next A

  Application.Calculation = X_ALI

Exit Sub

C_ALIDROOS:

Application.Calculation = X_ALI

Application.ScreenUpdating = False

End Sub

اخي ابو نصار

اذا احببت تطبيق الكود علي العمود k بدايه من الصف 6 حتي الصف 1005 بمعني k6:k1005

ما هو التعديل علي الكود لاني حاولت لكن يعطيني صفوف اكبر من المطلوب لعل شئ لم افهمه جيدا

اخوك ايهاب

[الـعيدروس]

السلام عليكم

Sub A_R_JC()

Dim A As Range

Dim E As Long

Application.ScreenUpdating = False

Dim X_ALI As XlCalculation

X_ALI = Application.Calculation

Application.Calculation = xlCalculationManual

  On Error GoTo C_ALIDROOS

Const Z = "0.00"

For Each A In ActiveSheet.Range("k6:k1005")

	    If A.Value = Val(Z) Then

	    A.Select

	    A.EntireRow.Hidden = True

	    End If

Next A

  Application.Calculation = X_ALI

Exit Sub

C_ALIDROOS:

Application.Calculation = X_ALI

Application.ScreenUpdating = False

End Sub

تم تعديل يناير 17, 2012 بواسطه alidroos