View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
James C[_3_] James C[_3_] is offline
external usenet poster
 
Posts: 1
Default Auto-Hiding rows based on cell in seperate worksheet

Hello all,

First Special thanks to Dave Peterson for his off-forum help.

The following code does what I want, hiding/unhiding a row based o
whether a cell on another worksheet is blank/non-blank, respectively:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Intersect(Target, Me.Range("c5")) Is Nothing Then Exit Sub

On Error GoTo errHandler:
With Target
Application.EnableEvents = False
Worksheets("Trade Output").Range("A6").EntireRow.Hidden
CBool(.Value = "")
End With

errHandler:
Application.EnableEvents = True

End Sub

This code, as you can see, hides/unhides ROW 6 based on c5. I want t
likewise mode ROWS 7 and 8 based on d5 and e5, respctively.

I am still too green in VBA to confidently tweak properly. Any help i
modifying the above code would be great appreciated.

Thanks all,

James

--
Message posted from http://www.ExcelForum.com