VBA Loop Through Groups of Option Buttons on User Form

[richh]

Excel 2016 Windows 10

I'm trying to loop through all my controls on a user form to ensure they've been completed; I'm confused on how to check to see if one option button has been selected in a group of buttons. Each button is coupled with only one other button per group name, so if either one in the group is selected, that's acceptable. If both buttons aren't selected, then the user needs to go back and choose one.

Dim errString   As String
    Dim errFlag     As Boolean
    
    errString = ""
    
    With Me
        For Each cntrl In .Controls
            If .Tag = "r" Then
                Select Case TypeName(cntrl) = "OptionButton"
                    'Not sure how to check if one of the buttons in the group have been selected
                Else
                    If Len(cntrl) = 0 Then
                        errFlag = True
                        errString = errString & cntrl.Name & vbNewLine
                    End If
                End Select
            End If
        Next cntrl
        
        If errFlag Then
            MsgBox "The following required fields have been missed:" & vbNewLine & errString, vbCritical, "Please Complete the Form"
            Exit Function
        End if
End With

 

[Saurabhj]

Hi Richh,

Any reason, you are not selecting an option button (default) in a group.

Set value property to true (in Property Window) to any one in a group.

Thanks,
Saurabh

 

[richh]

Hi Richh,

Any reason, you are not selecting an option button (default) in a group.

Set value property to true (in Property Window) to any one in a group.

Thanks,
Saurabh

Makes a lot of sense just to set everything to false and allow the users to choose true if desired. Thanks for the tip!

 

[Saurabhj]

Thanks for the feedback, Richh.