View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Per Jessen[_2_] Per Jessen[_2_] is offline
external usenet poster
 
Posts: 703
Default unhide rows based on data validation

On 5 Jun., 20:20, cathy wrote:
I have a data validation list in cell $E$30 of either "0" or "1".

If the user selects "0" I want to hide rows 144 - 238.
If the user selects "1" I want rows 144-238 to appear.

I tried the following code - but it didn't seem to work. *Any help is
appreciated.

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
If Range("E30").Value = "0" Then
* *Range(Rows(144), Rows(238)).EntireRow.Hidden = True
ElseIf Range("E30").Value = "1" Then
* *Range(Rows(144), Rows(238)).EntireRow.Hidden = False:
End If
Application.ScreenUpdating = True
End Sub


--
Cathy


Hi Cathy

Try this:

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Intersect(Target, Range("E30"))
If Not isect Is Nothing Then
If Target.Value = 0 Then
Range("A144:A238").EntireRow.Hidden = True
Else
Range("A144:A238").EntireRow.Hidden = False
End If
End If
End Sub

Regards,
Per