تعديل على كود اخفاء الصفوف الفارغة

[ضياء 2]

السلام عليكم الاخوة الافاضل بالمنتدى التفضل بتعديل على كود إخفاء الصف الفارع لو العمود ( B ) الى العمود ( E ) يوجد به صفر يختفي الصف كله من  العمود ( A ) الى العمود ( E ) ولو وجد أي رقم في أي عمود لايختفى

اخفاء الصفوف الفارغة.xlsm

[محمد هشام.]

تفضل اخي 
Sub Hide_Rows_Zero_MH()
Dim x1 As Long
Dim x2 As Long
Dim MH As Boolean
For x1 = 4 To 15
    MH = True
    For x2 = 2 To 5
        If Cells(x1, x2).Value > 0 Then
            MH = False
            Exit For
        End If
    Next x2
    Rows(x1).Hidden = MH
Next x1
End Sub



وهدا لاظهارها

Sub shw_row()
lr = Cells(Rows.Count, 1).End(4).Row
Range("a4:a" & lr).EntireRow.Hidden = False
End Sub

 

اخفاء الصفوف الفارغة.xlsm

[ضياء 2]

الشكر موصول لاستاذنا الكريم هو ده المطلوب