Hide rows with value "Hours"

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

jswilli1@bechtel.com - 05 Jan 2007 22:08 GMT

I would like to toggle rows to hide/unhide based on the value "Hours"
in column B. I think filtering is an issue to some blank seperator
rows and merged cell headings. There are no merged cells involving
Column B. Thanks.

Reply to this Message

Bob Phillips - 05 Jan 2007 22:26 GMT

Public Sub ProcessData()
Const TEST_COLUMN As String = "B" '<=== change to suit
Dim i As Long
Dim iLastRow As Long

With ActiveSheet

iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).row

For i = 1 To iLastRow
.Rows(i).Hidden = .Cells(i, TEST_COLUMN).Value = "Hours"
Next i

End With

End Sub

Signature

---
HTH

Bob

(change the xxxx to gmail if mailing direct)

>I would like to toggle rows to hide/unhide based on the value "Hours"
> in column B. I think filtering is an issue to some blank seperator
> rows and merged cell headings. There are no merged cells involving
> Column B. Thanks.

Reply to this Message

jswilli1@bechtel.com - 05 Jan 2007 22:36 GMT

Thanks Bob......Work Great....John

Reply to this Message

Rate this thread: