If statement in macro

[Viking88]

I am relatively new to macros so please bare with me. I have a check box in my spreadsheet, but I want to hide rows 5-12 if the box is unchecked and show those rows if the box is checked. How can I do this with a macro. Also I have the cell link set up as cell E3. I can write the basic macro to hide the rows, but I am not sure how to incorporate the "if" scenario.

Thanks.

 

[mvptomlinson]

If you're using a checkbox from the Controls Toolbox (not the Forms toolbar), you could assign this to the checkbox's click event:

Private Sub CheckBox1_Click()
    If CheckBox1.Value = False Then
        Sheets("Sheet1").Rows("5:12").Hidden = True
    Else
        Sheets("Sheet1").Rows("5:12").Hidden = False
    End If
End Sub

 

[Case_Germany]

Hi,

if the check box is from control toolbox, try this (the code must into the class module of the table):

Private Sub CheckBox1_Click()
    Rows("5:12").Hidden = Not CheckBox1.Value
End Sub

If the check box is from form toolbar, try this (the code belonged in a general module and you must assign the macro of the check box):

Public Sub Hidden_Click()
    Rows("5:12").Hidden = Not ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Value = 1
End Sub

Case_Germany