VBA to hide rows based on multiple criteria

[klangston]

I can't download your add-in due to work IT restrictions, sorry.
I'm trying to hide rows too and I know I'm doing something wrong. If the values in $i3, $J3, $O3, or $Q3 =0 then hide row, if not then don't hide row. then go to the next row in file.
I have this:


Sub HideRows()
StartRow = 15
EndRow = 200
For i = StartRow To EndRow
If Cells(i, "I3:J3, O3:Q3").Value = "0.0" Then
Cells(i, "I3:J3, O3:Q3").EntireRow.Hidden = True
Else
Cells(i, "I3:J3, O3:Q3").EntireRow.Hidden = False
End If
Next i
End Sub

I appreciate your help
thanks

 

[kweaver]

First of all, you're making a comparison to text when you write "0.0"

Do you want to hide the row if ALL of those cells are =0 or ANY of them are = 0?
What if those cells are empty?

 

[klangston]

First of all, you're making a comparison to text when you write "0.0"

Do you want to hide the row if ALL of those cells are =0 or ANY of them are = 0?
What if those cells are empty?

If the all of them =0
thanks

 

[kweaver]

Does this do what you want?

Sub HideRows()
Dim StartRow As Long, EndRow As Long, lr As Long, i As Long
StartRow = 15
EndRow = 200
For i = StartRow To EndRow
If (2 = WorksheetFunction.CountIf(Range("I" & i & ":J" & i), 0)) And (3 = WorksheetFunction.CountIf(Range("O" & i & ":Q" & i), 0)) Then
Rows(i).EntireRow.Hidden = True
Else
End If
Next i
End Sub

 

[klangston]

YES!! Thanks so much!