Check Box

Qaiyum · Aug 22nd 2013

Hi,
Please help me check box. I have a userform where there are several check box and a command buttons name "clear all". Here i want to unticked all the checkbox when clear all button is clicked by user.
Qaiyum Shaikh

**pike** · Aug 22nd 2013

Re: Check Box

Hi Qaiyum,

Looking at the "Possible Answers" threads below i found ...

Code

Private Sub CheckBox10_Click() 
    Dim cCtl As Control 
    On Error Resume Next 
    For Each cCtl In Me.Controls 
        If TypeName(cCtl) = "CheckBox" Then 
            cCtl.Value = false 
        End If 
    Next cCtl 
    On Error Goto 0 
End Sub

Qaiyum · Aug 22nd 2013

Re: Check Box

Hi,

Actually i want to untick all the checkbox available in userform with the help of command button. Please help.

**pike** · Aug 22nd 2013

Re: Check Box

you just change..the control to commandbutton

Code

Private Sub Commandbutton1_Click() 
    Dim cCtl As Control 
    On Error Resume Next 
    For Each cCtl In Me.Controls 
        If TypeName(cCtl) = "CheckBox" Then 
            cCtl.Value = False 
        End If 
    Next cCtl 
    On Error Goto 0 
End Sub

**KjBox** · Aug 22nd 2013

Re: Check Box

Pike's code is correct, if you want to run it from a command button then change the procedure name to Private Sub CommandButton1_Click(). You may need to change the '1' in 'CommandButton1' if you have other command buttons on the userform, or if you give the commandbutton a new name.

Check Box

Participate now!

Share

Users Viewing This Thread