Unhiding rows based on another cell value

[Jumbo Jock]

Help required please!

Based on the value I return in cell H37 in a worksheet called "Promotion
Form", I need to be able to unhide a specifc row. So, to be exact....

if cell H37 = TRUE, I want row 28 to unhide (but row 29 which is also hidden
should remain hidden)
if cell H37 = FALSE, I want row 29 to unhide (but row 28 should remain hidden)
if cell H37 is blank, I want rows 28 and 29 to remain hidden.

I have tried writing various bits of code but have had no success.

Can anybody help me?

Many thanks

 

[JLGWhiz]

Put this code in the worksheet code module. Right click the Sheet tab and
select View Code from the drop down menu. Copy this and paste into the code
window.

Private Sub Worksheet_Change()
Rows(28 & ":" & 29).Hidden = True
If Range("H37") = "True" Then
Rows(28).Hidden = False
ElseIf Range("H37") = "False" Then
Rows(6).Hidden = False
End If
End Sub

 

[JLGWhiz]

this might work better. Forgot the declaration.

Private Sub Worksheet_Change(ByVal Target As Range)
Rows(28 & ":" & 29).Hidden = True
If Range("H37") = "True" Then
Rows(28).Hidden = False
ElseIf Range("H37") = "False" Then
Rows(6).Hidden = False
End If
End Sub

 

[Jumbo Jock]

Hey Whiz-meister!

That was perfect - many thanks for your assistance!

 

[TLXL]

Hi Guys,

I am trying to do the exact same thing in Excel 03 and have replicated the
above scenario exactly however nothing seems to be working. The rows are not
hidden and nothing happens when I change the value of cell H37. I've copied
and pasted the code into the relevant section as described by right clicking
the worksheet icon and 'view code' and have closed and re-opened the file
without success.

Does anyone have any suggestions or perhaps an alternative way to do this??

Thanks very much!

 

[Dave Peterson]

The code worked for me.

Are you sure you allowed macros to run?

If you add a line right at the top:

Private Sub Worksheet_Change(ByVal Target As Range)
msgbox "hi"
...

You can at least verify that the event is firing.