conditional hiding of Rows

[K. Georgiadis]

I have done this successfully with toggle switches but I am having a mental block when linking it to a variable cell:

In a workbook containing multiple sheets, this applies to a specific worksheet only;

1. Cell G17 is a variable, expressed in $ per pound
2. Upon entering 0 (zero) in G17, I want to hide Rows 17:19 and Row 54
3. If the value entered in G17 is anything above zero (there will be no negative numbers), I want the above mentioned rows to remain unhidden

Your help is greatly appreciated.

[Erdin? E. Ka]

Hi,

[vba]
Private Sub Worksheet_Change(ByVal Target As Range)

If [G17] < 0 Then [G17] = ""

If Target.Row = 17 And Target.Column = 7 Then
Select Case Target.Value
Case 0
Range("17:19,54:54").EntireRow.Hidden = True
Case Is > 0
Range("17:19,54:54").EntireRow.Hidden = False
End Select
End If
End Sub
[/vba]

[K. Georgiadis]

Perfect! Thanks...

[Bob Phillips]

[vba]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$17" Then
Range("17:19,54:54").EntireRow.Hidden = Target.Value = 0
End If
End Sub
[/vba]

[Erdin? E. Ka]

Perfect! Thanks...

Not at all,

xld, your code is cool.

[K. Georgiadis]

xld's code works perfectly too! Thanks to both.