Help with checkbox and macro

[dee101]

I want to have a check box on a sheet and when I run a macro I want it to do different things depending if the check box is check or not, I do NOT want this in the check box click event but some how when the macro is run it will get the valve of the check box and do something depending on its valve. Make any sense? Something like this is what I have in mind. Will the check box need to be from the forms or control toolbox?
Thanks

Sub test()
If CheckBox1.Value = True Then

'do something here
MsgBox "true"

ElseIf CheckBox1.Value = False Then

'do something else here
MsgBox "false"

End If
End Sub

 

[Smitty]

The code that you posted will work fine.

You would need to use it with an ActiveX control from the ControlToolbox.

Although you'll need to add a bit to get it to work with a worksheet control:

<font face=tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()
    <SPAN style="color:#00007F">If</SPAN> ActiveSheet.CheckBox1.Value = <SPAN style="color:#00007F">True</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        <SPAN style="color:#007F00">'do something here</SPAN>
        MsgBox "true"
    <SPAN style="color:#00007F">ElseIf</SPAN> ActiveSheet.CheckBox1.Value = <SPAN style="color:#00007F">False</SPAN> <SPAN style="color:#00007F">Then</SPAN>
        <SPAN style="color:#007F00">'do something else here</SPAN>
        MsgBox "false"
    <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

 

[jag108]

If you have a number of checkboxes you can use this code.

Sub test()
Dim ctrl As Control
For I = 1 To 10
With Controls("CheckBox" & I)
If .Value = True Then
leave_type = I
Exit For
End If
End With
Next I

End Sub

 

[dee101]

Smitty, thanks that did it


jag108, thanks but I don't know what your code does?

 

[jag108]

It will check a series of Checkboxes on a form so you can run a procedure reatling to what ever you have you checkbox set to do, and what ever the user selects.