Need help with check boxes

[Greg Determann]

I am new at using VBA and only have limited knowledge of macros. I want to add several check boxes that will hide/unhide rows on another worksheet. Any ideas. Thanks in advance.

 

[Smitty]

Welcome to the Board!

The following code is for ActiveX CheckBoxes from the Control Toolbox; the code goes in the sheet specific module. If you double-click a control while in Edit mode, you'll be taken to the appropriate VBA module.

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CheckBox1_Click()
    <SPAN style="color:#00007F">If</SPAN> CheckBox1.Value = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        <SPAN style="color:#007F00">'   Hide a row when checked</SPAN>
        Sheets("Sheet2").Range("A1").EntireRow.Hidden = <SPAN style="color:#00007F">True</SPAN>
    <SPAN style="color:#00007F">Else</SPAN>
        <SPAN style="color:#007F00">'   Unhide when unchecked</SPAN>
        Sheets("Sheet2").Range("A1").EntireRow.Hidden = <SPAN style="color:#00007F">False</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Smitty

 

[Greg Determann]

Thanks a million - this board is impressive. Already added to my favorites - I'll be posting questions every day!

 

[vincenthuang]

Welcome to the Board!

The following code is for ActiveX CheckBoxes from the Control Toolbox; the code goes in the sheet specific module. If you double-click a control while in Edit mode, you'll be taken to the appropriate VBA module.

<font face=Tahoma><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CheckBox1_Click()
<SPAN style="color:#00007F">If</SPAN> CheckBox1.Value = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN>
<SPAN style="color:#007F00">' Hide a row when checked</SPAN>
Sheets("Sheet2").Range("A1").EntireRow.Hidden = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">Else</SPAN>
<SPAN style="color:#007F00">' Unhide when unchecked</SPAN>
Sheets("Sheet2").Range("A1").EntireRow.Hidden = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Hope that helps,

Smitty

Hi, I'm a little new to VBA, and was wondering if you could tell me what ActiveX control boxes are. I know that there are 2 basic types, your form and the checkboxes from the control toolbox. Basically, i'm trying to create a script so that when you click on the ALL checkbox, it automatically checks off checkboxes 1 through 6. Similarly if you click Reset, it deselects them all...

I've tried using your script, but when i try to run it, i get a runtime error. (424 saying that an object is required)

This is what i have so far:

Private Sub CheckBox1_Click()
If CheckBox6.Value = True Then
' Hide a row when checked
Sheets("Sheet2").Range("A1").EntireRow.Hidden = True
Else
' Unhide when unchecked
Sheets("Sheet2").Range("A1").EntireRow.Hidden = False
End If
End Sub


any thoughts? thanks![/list]