Botton that checks all boxes

sobrien1234

Board Regular
Joined
May 10, 2016
Messages
175
Office Version
  1. 365
Platform
  1. Windows
I have a form with about 10 check boxes on it that are ticked when answering the questions. I want a button that someone can press that checks all the boxes at once - i.e. a "yes to all" button. I also want one that clears them all as well.

Can anyone suggest how to do this?

Thanks

:confused:
 

Excel Facts

How to show all formulas in Excel?
Press Ctrl+` to show all formulas. Press it again to toggle back to numbers. The grave accent is often under the tilde on US keyboards.
Hi
Assuming you mean a Userform?

try

Code:
Private Sub CommandButton1_Click()
    AllCheckBoxes True
End Sub


Private Sub CommandButton2_Click()
    AllCheckBoxes False
End Sub


Sub AllCheckBoxes(ByVal State As Boolean)
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then ctrl.Value = State
Next
End Sub

Dave
 
Last edited:
Upvote 0
Hi
Assuming you mean a Userform?

try

Code:
Private Sub CommandButton1_Click()
    AllCheckBoxes True
End Sub


Private Sub CommandButton2_Click()
    AllCheckBoxes False
End Sub


Sub AllCheckBoxes(ByVal State As Boolean)
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeName(ctrl) = "CheckBox" Then ctrl.Value = State
Next
End Sub

Dave

Doesn't appear to work. They are yes/no boxes that look like check boxes - would that affect it?
 
Upvote 0
Doesn't appear to work. They are yes/no boxes that look like check boxes - would that affect it?


Solution provided should work for CheckBoxes on a UserForm - If you have something different to this then please explain further.


Dave
 
Upvote 0
Doesn't appear to work. They are yes/no boxes that look like check boxes - would that affect it?

Still not working. Yes it is a userform and the buttons would be 35 and 36. The button is called Command35 but I changed the name to Command35 and still didn't work. No error message when I press it either. Just blinks then nothing happens.
 
Upvote 0
can you place copy of your workbook in a dropbox?

Dave
 
Upvote 0
Whoops, I should have looked at your post more closely, you are using Access –suggested solution was intended for Excel. Ever so sorry about that.
I don’t have Access on my system & its been about 15 years since I have done anything using it.

You can try replacing procedure with following updated version

Code:
 Sub AllCheckBoxes(ByVal State As Boolean)    
    Dim ctrl As Control
    For Each ctrl In Me.Controls
        If ctrl.ControlType = acCheckBox Then ctrl.Value = State
    Next ctrl
End Sub

This is very much a guess – if does not work hopefully, another here can step in & resolve for you

So sorry.

Dave
 
Last edited:
Upvote 0

Forum statistics

Threads
1,213,521
Messages
6,114,109
Members
448,548
Latest member
harryls

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top