كود اخفاء اظهار صفوف بناء على شروط

[بلانك]

المطلوب بالملف

كود إخفاء وإظهار.xlsb

[محمد هشام.]

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

جرب هدا 

Option Explicit

Public Property Get WS() As Worksheet: Set WS = Sheets("الاختلافات"): End Property

Sub Button1_Click()
    Dim i As Long
    SetApp False
    For i = 3 To 62
        WS.Rows(i).Hidden = (Application.WorksheetFunction.CountA(WS.Range("B" & i & ":R" & i)) = 0)
    Next i
    SetApp True
End Sub

Sub Button49_Click(): SetApp False: WS.Rows("3:62").Hidden = False: SetApp True: End Sub

Private Sub SetApp(ByVal enable As Boolean)
    On Error Resume Next
    With Application
        .ScreenUpdating = enable: .EnableEvents = enable: .DisplayAlerts = enable
        .Calculation = IIf(enable, xlCalculationAutomatic, xlCalculationManual)
    End With
    On Error GoTo 0
End Sub

 

كود إخفاء وإظهار.xlsb

[بلانك]

بارك الله فيك استاذنا / محمد هشام وجعله في ميزان حسناتك وعيد اضحى سعيد عليك