Determining which radio button is selected

[dsimcox]

I am using 10 radio buttons to determine which production line report to create.

I can use IF statements to accomplish this, but I'm wondering if it is possible to loop through the radio buttons, testing programmatically which one is "True"

My radio buttons are named opLine1 thru opLine10.
I've tried this with no success.

************************************************************
Dim thisBtn as OptionButton, LineNbr as Integer

For LineNbr = 1 To 10

Set thisBtn.name = "opLine" & LineNbr

If thisBtn.value = True Then

Call GetLineTotals (LineNbr) ' a sub to create a report

Exit Sub

End If

Next


Anyone have experience working with controls in this manner?

 

[sunnyland]

Hello there,

You didn't mention if your options are directly on a worksheet or if they are on a user form:

If they are on the worksheet use code as below:

Sub findoptionbuttonselected()
Dim obi As OLEObject
For Each obi In ActiveSheet.OLEObjects
If obi.ProgId = "Forms.OptionButton.1" And obi.Object.Value = True Then
MsgBox obi.Name
End If
Next
Set obi = Nothing
End Sub

Now if your options are on a form use code below:

Sub trouveOption()
Dim controli As Control
For Each controli In Me.Controls
If TypeOf controli Is msforms.OptionButton And controli.Value = True Then
MsgBox controli.Name
End If
Next
Set controli = Nothing
End Sub

 

[dsimcox]

Your solution is perfect!

My radio buttons are on a userform.

I used your example to create a Function that I can use to determine and return which button is clicked.

I named the buttons opLine1, opLine2 . . . opLine10

Then I used string function to extract the numeric portion of the name, which I use in my code to address a particular production line.

Function FindBtnSelected(uf, BtnName)       '   supply name of userform (uf) and name of button, less numeric suffix (opLine)
Dim Btn As Control, thisBtn, FindBtnSelected as Integer

'     LOOP THRU ALL THE CONTROLS
For Each Btn In uf.Controls

'     LOOK FOR THOSE THAT ARE OPTION BUTTONS AND HAVE THE NAME "opLine" FOR A NAME
If TypeOf Btn Is MSForms.OptionButton And Left(Btn.Name, Len(BtnName)) = BtnName Then

'     TEST IF THE BUTTON IS SELECTED
    If Btn.value = True Then

'     ASSIGN A VARIABLE TO THAT BUTTON'S NAME 
        thisBtn = Btn.Name

'     IDENTIFY THE NUMERIC PORTION TO RETURN TO THE CALLING PROCEDURE
        FindBtnSelected = CInt(Mid(thisBtn, Len(BtnName) + 1, Len(thisBtn) - Len(BtnName)))

'     WHEN THE SELECTED BUTTON IS FOUND, EXIT THE FUNCTION
        Exit Function
    Else:
        GoTo tryNextBtn
    End If
End If

tryNextBtn:
Next

End Function

Many thanks for the nice assist, Francoise