اخفاء الصفوف تلقائيا

[ahmed1987]

السلام عليكم تحياتي لكم استاذة ممكن كود يخفي الصفوف في شيت التفاصيل عندما يكون رصيد دينار و دولار للعميل 0 (صفر) حصرا و يظهر عندما لا يكون صفر شكرا لكم جميعا و بارك الله فيكم

اخفاء الصفوف.rar

[محمد هشام.]

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

ضع الكود التالي في  Module

Sub HideRowsWith_Zero()
    Dim Sh As Worksheet
    Dim i As Long, lastRow As Long
    
    Set Sh = ThisWorkbook.Sheets("تفاصيل")
    
    lastRow = Sh.Columns("A:C").Find(What:="*", _
     SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
     
        For i = 4 To lastRow
        If Sh.Cells(i, 2).Value = 0 And Sh.Cells(i, 3).Value = 0 Then
            Sh.Rows(i).Hidden = True
        Else
            Sh.Rows(i).Hidden = False
        End If
    Next i
End Sub

وفي حدث ورقة تفاصيل 

Private Sub Worksheet_Activate()
HideRowsWith_Zero
End Sub

 

اخفاء الصفوف.xlsb

تم تعديل أغسطس 24 بواسطه محمد هشام.

[ahmed1987]

بارك الله فيك استاذ محمد هشام جعله الله في ميزان حسناتك @محمد هشام.