Macro for hiding rows

[Pharmacisticus]

Hi looking for help with following macros;

Sub HURows()
BeginRow = 1
EndRow = 100
ChkCol = 3

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value < 5 Then
Cells(RowCnt, ChkCol).EntireRow.Hidden = True
Else
Cells(RowCnt, ChkCol).EntireRow.Hidden = False
End If
Next RowCnt End Sub

This is great for hiding the rows for a single column but I'm looking for one that can do a couple of columns...
i.e. column 3 = 0, column 4 = 0 hide the row
.... column 3 = 0, column 4 = 6 don't hide the row

Can this be done, and also done with additional rows?

Cheers,
Josh

 

[Michael M]

Re: Help with macros for hiding rows

Something like this

Sub HURows()
dim BeginRow as long,EndRow as long,ChkCol as long
BeginRow = 1
EndRow = 100
ChkCol = 3

For RowCnt = BeginRow To EndRow
If Cells(RowCnt, ChkCol).Value = 0 And Cells(RowCnt, ChkCol + 1).Value = 0 Then
Rows(RowCnt).EntireRow.Hidden = True
Else
Rows(RowCnt).EntireRow.Hidden = False
End If
Next RowCnt
End Sub