I am trying to do the following and don't know where to start:

Look at every third cell in a column range. (A14:A50)
If that cell's value is 0 then that row plus the following 2 rows are
hidden.


Thanks for any help.

A starter for ten..... (Caution an empty cell is evaluated as 0) !

Sub test()
Dim c As Range
For Each c In Range("A10:A50")
If c.Value = 0 Then
Rows(c.Row & ":" & c.Row + 2).EntireRow.Hidden = True
End If
Next c
End Sub

--

Regards,
Nigel




"Doug Howell" wrote in message
...
I am trying to do the following and don't know where to start:

Look at every third cell in a column range. (A14:A50)
If that cell's value is 0 then that row plus the following 2 rows are
hidden.


Thanks for any help.

On Nov 3, 9:34*am, "Nigel" wrote:
A starter for ten..... (Caution an empty cell is evaluated as 0) !

Sub test()
Dim c As Range
For Each c In Range("A10:A50")
* If c.Value = 0 Then
* * *Rows(c.Row & ":" & c.Row + 2).EntireRow.Hidden = True
* End If
Next c
End Sub

--

Regards,
Nigel


"Doug Howell" wrote in message

...



I am trying to do the following and don't know where to start:

Look at every third cell in a column range. *(A14:A50)
If that cell's value is 0 then that row plus the following 2 rows are
hidden.

Thanks for any help.- Hide quoted text -

- Show quoted text -

Would the following work to ONLY look at every 3rd cell?

Sub test()
Dim c As Range
For Each c In Range("A10:A50")
If c.Value = 0 Then
Rows(c.Row & ":" & c.Row + 2).EntireRow.Hidden = True
End If
c=c+3
Next c
End Sub

No because c is a range not a row reference. To do that use a control loop
something like...

Dim lRow as long
For lrow = 14 to 50 step 3
if Cells(lrow,1).value = 0 then
Rows(lrow & ":" & lrow + 2).EntireRow.Hidden = True
endif
Next

--

Regards,
Nigel




"Doug Howell" wrote in message
...
On Nov 3, 9:34 am, "Nigel" wrote:
A starter for ten..... (Caution an empty cell is evaluated as 0) !

Sub test()
Dim c As Range
For Each c In Range("A10:A50")
If c.Value = 0 Then
Rows(c.Row & ":" & c.Row + 2).EntireRow.Hidden = True
End If
Next c
End Sub

--

Regards,
Nigel


"Doug Howell" wrote in message

...



I am trying to do the following and don't know where to start:

Look at every third cell in a column range. (A14:A50)
If that cell's value is 0 then that row plus the following 2 rows are
hidden.

Thanks for any help.- Hide quoted text -

- Show quoted text -

Would the following work to ONLY look at every 3rd cell?

Sub test()
Dim c As Range
For Each c In Range("A10:A50")
If c.Value = 0 Then
Rows(c.Row & ":" & c.Row + 2).EntireRow.Hidden = True
End If
c=c+3
Next c
End Sub

Sheets("Bulk MO").Visible = True
Sheets("Bulk MO").Select
Sheets("Bulk MO").Unprotect
Dim lRow As Long
For lRow = 14 To 50 Step 3
If Cells(lRow, 1).Value = 0 Then
Rows(lRow & ":" & lRow + 2).EntireRow.Hidden = True
End If
Next
Sheets("Bulk MO").Protect
Sheets("Bulk MO").Visible = False


Gives an error:

Run-time error '1004':
Unable to set the Hidden property of the Range class

Dim lRow As Long
With Sheets("Bulk MO")

.Unprotect

For lRow = 14 To 50 Step 3
If .Cells(lRow, 1).Value = 0 Then
.Rows(lRow & ":" & lRow + 2).EntireRow.Hidden = True
End If
Next

.Protect

End With


--

Regards,
Nigel




"Doug Howell" wrote in message
...
Sheets("Bulk MO").Visible = True
Sheets("Bulk MO").Select
Sheets("Bulk MO").Unprotect
Dim lRow As Long
For lRow = 14 To 50 Step 3
If Cells(lRow, 1).Value = 0 Then
Rows(lRow & ":" & lRow + 2).EntireRow.Hidden = True
End If
Next
Sheets("Bulk MO").Protect
Sheets("Bulk MO").Visible = False


Gives an error:

Run-time error '1004':
Unable to set the Hidden property of the Range class

Thanks for your patience with a programming neophyte Nigel..........
works perfectly now.......