كود لاخفاء الصف الذى به صفر وكذلك الصف الى فوقه

[yara ahmed]

احتاج كود اخفاء صفين الصف الذى به اصفار من العمود B :G 

والصف الذى فوقه مع الشكر

hide.xlsm

[مهند محسن]

ولماذا لم تقومى بإستخدام خاصية البحث بالمنتدى -تفضلى

كود اخفاء الصفوف التى تحتوى على صفر يحتاج تعديل

[ابراهيم الحداد]

السلام عليكم ورحمة الله

استخدمى هذا الكود

Sub HideRows()
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row - 2
For f = lr To 3 Step -2
x = WorksheetFunction.Sum(Sheet1.Range(Cells(f, 2), Cells(f, 7)))
If x = 0 Then
Sheet1.Range(Cells(f - 1, 2), Cells(f, 7)).Rows.Hidden = True
End If
Next
End Sub

 

[yara ahmed]

اشكر حضرتك جدا استاذ ابراهيم

مع الشكر من القلب ربنا يكرمك