VBA Code to look for "H" and "0" to hide rows

[Waffles255]

Hi Gents i have this VBA Code and it Looks for H to hide rows is there a way i can make it look for "H" and a "0"?

Sub HideRows()
StartRow = 11
EndRow = 2000
ColNum = 2
For i = StartRow To EndRow
If Cells(i, ColNum).Value = "H" Then
Cells(i, ColNum).EntireRow.Hidden = True
Else
Cells(i, ColNum).EntireRow.Hidden = False
End If
Next i
End Sub

 

[Tupe77]

I'm not sure you meant this?

Sub HideRows()
StartRow = 11
EndRow = 2000
ColNum = 2
For i = StartRow To EndRow
If Cells(i, ColNum).Value = "H" OR Cells(i, ColNum).Value = 0 Then
Cells(i, ColNum).EntireRow.Hidden = True
Else
Cells(i, ColNum).EntireRow.Hidden = False
End If
Next i
End Sub

 

[Waffles255]

That Works perfectly now!! Thanks !!

 

[Peter_SSs]

Could you consider processing all the rows at once with AutoFilter instead of looping a row at a time?
I would also recommend always declaring your variable types.

Sub HideRows_v2()
  Dim StartRow As Long, Endrow As Long, ColNum As Long
  
  StartRow = 11
  Endrow = 2000
  ColNum = 2
  With Cells(StartRow - 1, 2).Resize(Endrow - StartRow + 2)
    .Parent.AutoFilterMode = False
    .AutoFilter Field:=1, Criteria1:="<>H", Operator:=xlAnd, Criteria2:="<>0"
  End With
End Sub

 

[Waffles255]

Thanks Peter also works well.

 

[Peter_SSs]

You're welcome. Should be somewhat faster too.