Macro to hide rows

[jnewton34120]

I am looking for help with what I hope is an easy macro. I am looking to have it look at all rows from 3 down and if the value in columns C and D are 0 then hide the row. The list ends on row 1063. If one of the columns has a 0 but the other doesn't then it should hide it. Thank you in advance for any help!

 

[kevin9999]

One way:

Option Explicit
Sub Hide_Rows()
    Application.ScreenUpdating = False
    Dim i As Long
    With Range("C3:D1063")
        .EntireRow.Hidden = False
        For i = 1 To 1061
            If Len(.Cells(i, 1)) > 0 And .Cells(i, 1) = 0 Or Len(.Cells(i, 2)) > 0 And .Cells(i, 1) = 0 Then .Rows(i).Hidden = True
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

 

[kevin9999]

Thanks to the sharp eyes of @Alex Blakenburg for pointing out the error in my suggested code. Revised version below - please let me know if it does/doesn't achieve your aim.

Option Explicit
Sub Hide_Rows()
    Application.ScreenUpdating = False
    Dim i As Long
    With Range("C3:D1063")
        .EntireRow.Hidden = False
        For i = 1 To 1061
            If Len(.Cells(i, 1)) > 0 And .Cells(i, 1) = 0 Or Len(.Cells(i, 2)) > 0 And .Cells(i, 2) = 0 Then .Rows(i).Hidden = True
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

 

[Cubist]

I think the logical test can be simplified to

If .Cells(i, 1).Value = 0 Or .Cells(i, 2).Value = 0 Then

 

[kevin9999]

I think the logical test can be simplified to

Unfortunately, that will also hide empty cells - which may or may not have been the intention.