Counting how many checkboxes have been selected on a userform?

[chuckles1066]

I have 24 checkboxes on my userform.

Is there a quicker way to count how many have been checked than

If CheckBox1.Value = TRUE then count = count+1
If CheckBox2.Value = TRUE then count = count+1
...
...
...
If CheckBox24.Value = TRUE then count = count+1

I tried

For x = 1 to 24
If CheckBox & x.Value = TRUE then count = count+1
Next

but that errored.

 

[Gary McMaster]

You can loop through them something like this:

Dim oControl As MSForms.Control

For Each oControl In UserForm1.Controls
    Debug.Print oControl.Name & vbTab & oControl.Value
Next oControl

Gary

 

[meldoc]

Hello

See the links

http://www.pcreview.co.uk/forums/looping-through-all-checkboxs-userform-t955254.html

http://www.mrexcel.com/forum/showthread.php?t=427103


And try.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> CommandButton1_Click()<br><SPAN style="color:#00007F">Dim</SPAN> ctl <SPAN style="color:#00007F">As</SPAN> Control<br> <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ctl <SPAN style="color:#00007F">In</SPAN> UserForm1.Controls<br>  <SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">TypeOf</SPAN> ctl <SPAN style="color:#00007F">Is</SPAN> MSForms.CheckBox <SPAN style="color:#00007F">Then</SPAN><br>    <SPAN style="color:#00007F">If</SPAN> ctl <SPAN style="color:#00007F">Then</SPAN> c = c + 1<br>  <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN><br> <SPAN style="color:#00007F">Next</SPAN><br>  Me.Label1.Caption = c<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

 

[chuckles1066]

Splendid chaps, thanks very much.

 

[Sektor]

Sub HowManyChecks()

    Dim i As Integer
    Dim ctl As MSForms.Control
    
    For Each ctl In UserForm1.Controls
        If TypeOf ctl Is MSForms.CheckBox Then
            i = i + 1
        End If
    Next
    
    MsgBox i & " checkboxes are checked."

End Sub