count how many checkboxs are true

[Bernieg]

Hi

i have 4 checkboxs in a userform, but only 1 may be selected.
Wrote some code but it does not work.
any ideas ?

Bernie

Sub Validate()
'Check if more then 1 shift has been ticked
tick1 = 0
tick2 = 0
tick3 = 0
tick4 = 0
checkshift = 0
If CheckBox1.Value = True Then
tick1 = 1
ElseIf CheckBox2.Value = True Then
tick2 = 1
ElseIf CheckBox3.Value = True Then
tick3 = 1
ElseIf CheckBox4.Value = True Then
tick4 = 1
End If
checkshift = tick1 + tick2 + tick3 + tick4
If checkshift >= 1 Then
resp = MsgBox("ONLY 1 SHIFT CAN BE SELECTED", "PLEASE NOTE")
End If
End Sub

 

[Norie]

Why not use option buttons?

Then only one can be shift/option can be selected.

 

[VoG]

There is an error in your logic. Try

Sub Validate()
'Check if more then 1 shift has been ticked
tick1 = 0
tick2 = 0
tick3 = 0
tick4 = 0
checkshift = 0
If CheckBox1.Value = True Then
tick1 = 1
End If
If CheckBox2.Value = True Then
tick2 = 1
End If
If CheckBox3.Value = True Then
tick3 = 1
End If
If CheckBox4.Value = True Then
tick4 = 1
End If
checkshift = tick1 + tick2 + tick3 + tick4
If checkshift >= 1 Then
resp = MsgBox("ONLY 1 SHIFT CAN BE SELECTED", "PLEASE NOTE")
End If

 

[Bernieg]

Hi Peter

Tryed it but got Error 424 object required

Bernie

 

[mikerickson]

The inequality has to be < rather than <= if one checkbox is not to be flagged.
Also, this will not flag a no checkboxes checked situation.

Sub Validate()
    Dim CheckedSum as Long
    CheckedSum = CheckBox1.Value + CheckBox2.Value + CheckBox3.Value + CheckBox4.Value

    If CheckedSum < - 1 Then
        MsgBox "One CheckBox (at most) can be checked"
    End If

End Sub

 

[Bernieg]

hi Mike
i get the same error message object required

Bernie

 

[mikerickson]

Where are you putting that code, in the userform's code module, it should work fine. If it is in a normal module, then

Sub Validate()
    Dim CheckedSum as Long
With UserForm1
    CheckedSum = .CheckBox1.Value + .CheckBox2.Value + .CheckBox3.Value + .CheckBox4.Value
End With

    If CheckedSum < - 1 Then
        MsgBox "One CheckBox (at most) can be checked"
    End If

End Sub

 

[Bernieg]

your code works if no checkboxs are ticked , but not if greater then 2
I did have it in a module

Bernie

 

[Bernieg]

Hi Mike
now it works fine If CheckedSum <> -1 Then
Thanks for your help, it is much appieciated

Bernie