[vba]
Sub HideRows()
With ActiveSheet
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
.Rows(i).Hidden = (.Cells(i, 3) = 0 Or _
.Cells(i, 4) = 0 Or _
.Cells(i, 5) = 0)
Next i
End With
End Sub
[/vba]
[vba]
Sub HideRows()
With ActiveSheet
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 1 Step -1
.Rows(i).Hidden = (.Cells(i, 3) = 0 Or _
.Cells(i, 4) = 0 Or _
.Cells(i, 5) = 0)
Next i
End With
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote