Hide/unhide rows through VBA

[joacro]

Hello,

Can anyone help regarding hiding and unhiding rows based on cretiria

I need to do it through vba

Regards

 

[Domenic]

If, for example, you'd like to hide rows where the value in Column A equals 0, try...

Option Explicit

Sub test()

    Dim LastRow As Long
    Dim i As Long

    LastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    For i = 1 To LastRow
        If Cells(i, "A").Value = 0 Then
            Rows(i).Hidden = True
        End If
    Next i
    
End Sub

Actually, you can replace...

        If Cells(i, "A").Value = 0 Then
            Rows(i).Hidden = True
        End If

with

        Rows(i).Hidden = (Cells(i, "A").Value = 0)