A form sheet fills a "document" sheet with headings and information with a
blank row between each part. But when a heading repeats (by cell formula),
it appears as empty, so I am using this VBA formula to hide the empty row.
But I have many rows just like it and I would like a single formula that
would check the whole sheet. Luckily, it is every sixth row, i.e.,
A24,A30,A36,A42, etc.

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Range("A30") = "" Then
Rows("30").Hidden = True
ElseIf Me.Range("A30") "" Then
Rows("30").Hidden = False
End If

How would I have one formula check every sixth row down to say, A200?
Thanks
--
Scafidel
Lafayette, Louisiana

Private Sub Worksheet_Change(ByVal Target As Range)

For Each cell In Range("H30:H200").Cells
If IsEmpty(cell) And Int(cell.Row / 6) = cell.Row / 6 Then
cell.Rows.EntireRow.Hidden = True
Else
cell.Rows.EntireRow.Hidden = False
End If
Next cell

End Sub


U¿ytkownik "Scafidel" napisa³ w wiadomo¶ci
...
A form sheet fills a "document" sheet with headings and information with a
blank row between each part. But when a heading repeats (by cell
formula),
it appears as empty, so I am using this VBA formula to hide the empty row.
But I have many rows just like it and I would like a single formula that
would check the whole sheet. Luckily, it is every sixth row, i.e.,
A24,A30,A36,A42, etc.

Private Sub Worksheet_Change(ByVal Target As Range)
If Me.Range("A30") = "" Then
Rows("30").Hidden = True
ElseIf Me.Range("A30") "" Then
Rows("30").Hidden = False
End If

How would I have one formula check every sixth row down to say, A200?
Thanks
--
Scafidel
Lafayette, Louisiana