Hiding rows based on cell contents

[S4Tyler]

I need certain rows in a worksheet "Printsheet" to either be hidden or shown based on the contents of specific cells in another worksheet "Input".

I was thinking something like this but I am not having much success.

If Printsheet.Cells.Range(5, 5) = "A" Then
Printsheet.Rows("39:52").Hidden = True

I am pretty new to this so please don't hesitate to "dumb" down any suggestions you may have.

Thanks in advance for any help anyone can offer.

Tyler

 

[SkipVought]

Hi,

Why not use the AutoFilter? No need for VBA!

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[S4Tyler]

The sheet that I need to hide certain rows on is formated to be printer friendly as building design criteria sheet when printed. Because of this, the page has several blank columns that need to remain to keep the format of the printed page generalized.

Here is what I have now:

Private Sub Worksheet_Activate()
Dim Count As Single

Dim Sheet2 As Worksheet
Set Sheet2 = Sheets("Input")

Dim Sheet3 As Worksheet
Set Sheet3 = Sheets("DesignCriteria_Engineering")

'for seismic
If Sheet2.Cells.Range(37, 5) = "A" Then
Sheet3.Rows("39:52").Hidden = True
Else: Sheet3.Rows("39:52").Hidden = False

End If

'for crane
If Sheet2.Cells.Range(58, 5) = "0" Then
Sheet3.Rows("53:56").Hidden = True
Else: Sheet3.Rows("53:56").Hidden = False

End If

'for mezzanine
If Sheet2.Cells.Range(65, 5) = "0" Then
Sheet3.Rows("57:62").Hidden = True
Else: Sheet3.Rows("57:62").Hidden = False

End If

End Sub


When I run this I get run-time error '1004'

 

[SkipVought]

On exactly what statement?

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[SkipVought]

Proper syntax -- not Range...

If Sheet2.Cells(37, 5) = "A" Then

Skip,
[sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[S4Tyler]

The syntax fix got it going. Thanks for all your help.