I'm trying to say from rows 31 thru 1000, if U and V are zero then hide the
row. if not both zero then show the row.

Having problems putting this into an if statment wondering if I'd be better
served using a case statement but not sure how to write it.

Something like this...

Dim rng As Range
Dim rngToSearch As Range

With Application
..Calculation = xlCalculationManual
..ScreenUpdating = False
End With
Set rngToSearch = Range("U31:U1000")
rngToSearch.EntireRow.Hidden = False

For Each rng In rngToSearch
If rng.Value = 0 And rng.Offset(0, 1).Value = 0 Then _
rng.EntireRow.Hidden = True
Next rng

With Application
..Calculation = xlCalculationAutomatic
..ScreenUpdating = True
End With

--
HTH...

Jim Thomlinson


"Stephen" wrote:

I'm trying to say from rows 31 thru 1000, if U and V are zero then hide the
row. if not both zero then show the row.

Having problems putting this into an if statment wondering if I'd be better
served using a case statement but not sure how to write it.

Stephen

Either should work; but, since you really only have two options (hide
or not hide), I would go with a simple if statement.

Something like:

Unhide all the rows,t hen run this.

Sub test()

For i = 31 To 1000
If Application.And(Cells(i, 21) = 0, Cells(i, 22) = 0) Then
Rows(i).Hidden = True
End If
Next i

End Sub

should work for you.

Good luck.

Ken
Norfolk, Va






On Dec 10, 12:32 pm, Stephen
wrote:
I'm trying to say from rows 31 thru 1000, if U and V are zero then hide the
row. if not both zero then show the row.

Having problems putting this into an if statment wondering if I'd be better
served using a case statement but not sure how to write it.

The If is simple:

Sub stephen()
For i = 31 To 1000
If Cells(i, "U").Value = 0 And Cells(i, "V").Value = 0 Then
Cells(i, "U").EntireRow.Hidden = True
End If
Next
End Sub

--
Gary''s Student - gsnu200761


"Stephen" wrote:

I'm trying to say from rows 31 thru 1000, if U and V are zero then hide the
row. if not both zero then show the row.

Having problems putting this into an if statment wondering if I'd be better
served using a case statement but not sure how to write it.

if not both zero then show the row.

If you wish to show them also, perhaps:

Sub Demo()
Dim Rng As Range
For Each Rng In [U31:U1000].Cells
Rng.EntireRow.Hidden = Rng = 0 And Rng(1, 2) = 0
Next Rng
End Sub

--
Dana DeLouis


"Stephen" wrote in message
...
I'm trying to say from rows 31 thru 1000, if U and V are zero then hide
the
row. if not both zero then show the row.

Having problems putting this into an if statment wondering if I'd be
better
served using a case statement but not sure how to write it.