Hide rows using VBA

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

buzzandbeyond - 20 Aug 2007 15:05 GMT

Hi,

I am trying to hide rows with a specific value.

In my sheet I have three columns:
Date - The manually inputted date
Today - 1 Month - 'TODAY() -31' (this column will be hidden)
In Range? - an IF statement to say "HIDE" or SHOW" (this column will
be hidden)

I am looking to hide all the rows where Hide shows in the In Range?
column. I would also like this to run on opening the document

Any advice is gratefully received as my vba skills are almost non
existent.

cheers
Dave

Reply to this Message

Michael - 20 Aug 2007 15:54 GMT

Try this:

Sub Hidemyrows()
Dim iLastRow as Integer

iLastRow= Range("A65536").end(xlup).row

For i=1 to iLastRow

If Cells(i,3).value ="Hide" then
Cells(i,3).Entirerow.hidden =true
End If

Next i

End Sub

Signature

If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.

> Hi,
>
[quoted text clipped - 14 lines]
> cheers
> Dave

Reply to this Message

Bob Phillips - 20 Aug 2007 15:56 GMT

Private Sub Workbook_Open()
Const TEST_COLUMN As String = "A" '<=== 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 'iLastRow to 1 Step -1
.Rows(i).Hidden = (.Cells(i, TEST_COLUMN).Offset(0, 2).Value =
"HIDE")
Next i
End With

End Sub

'This is workbook event code.
'To input this code, right click on the Excel icon on the worksheet
'(or next to the File menu if you maximise your workbooks),
'select View Code from the menu, and paste the code

Signature

HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

> Hi,
>
[quoted text clipped - 14 lines]
> cheers
> Dave

Reply to this Message