View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Jay Jay is offline
external usenet poster
 
Posts: 671
Default Simple CHeck box to view/hide rows

Hi Shelly -

Your code works fine, but needs to be associated with the checkbox's 'click'
event (so the very act of clicking the checkbox triggers your code). You do
this by inserting your code into a Click event procedure that resides in the
module of the worksheet that the checkbox is in. The best way to do that is:

1. Enter Design Mode (show the Control Toolbox and choose [Design Mode].

2. Right-click the checkbox and choose [View Code]. The worksheet module
opens automatically and types a Click-event procedure template as follows:

Private Sub Risk_Box_Click()
End Sub

3. Insert your code between these two lines.

-------
Alternatively, you could copy this slightly modified version into the
worksheet module. Again, yours works just fine, but this one is a bit more
compact:

Private Sub Risk_Box_Click()
If Risk_Box.Value = 0 Then
Rows("6:9").EntireRow.Hidden = True
Else
Rows("6:9").EntireRow.Hidden = False
End If
End Sub

--
Jay


"Shelly" wrote:

I'm trying to create checkbox where if it's checked rows 6-9 show, if it's
unchecked they are hidden. I've go the follow, but I must be missing
something...

--------------------------


Private Sub Risk_Box()
Application.ScreenUpdating = False
If Risk_Box.Value = 0 Then
Range("A6:A9").EntireRow.Hidden = True
Else
If Risk_Box.Value < 0 Then
Range("A6:A9").EntireRow.Hidden = False
End If
End If
Application.ScreenUpdating = True
End Sub

---------------------------

Thanks for the help.