Userform Option Button Captions

[dkindred]

how do i call the caption for the option button that called the Macro?

in my mind this what should work (but doesnt ) -

Sub macro1()
Sheets("Sheet1").Range("a1") = UserForm1.Frame1.Controls(Application.Caller).Caption
End Sub

 

[mikerickson]

On a Userform. you could use ActiveControl. Since your control is in a frame,

Function RealActiveControl() as Object
    Set RealActiveControl = Userform1.ActiveControl
    Do While True
      Select Case TypeName(RealActiveControl)
          Case "Frame"
              Set RealActiveControl = RealActiveControl.ActiveControl
          Case "MultiPage"
              With RealActiveControl
                  Set RealActiveControl = .Pages(.Value).ActiveControl
              End With
          Case Else
              Exit Function
      End Select
    Loop
End Function

Then RealActiveControl.Caption will return the caption you seek.

 

[dkindred]

Mike,

thanks for the reply. I have no clue how to use that code sorry.

is it not possible to use and application caller for this?

Sheets("Sheet1").Range("a1") = UserForm1.optionbutton1.Caption

the code above works for one optionbutton, but i dont want seperate code for each option button in my userform.

 

[AlphaFrog]

You could pass the caption when calling Macro1

Private Sub OptionButton1_Click()
    Macro1 OptionButton1.Caption
End Sub

Private Sub OptionButton2_Click()
    Macro1 OptionButton2.Caption
End Sub

Sub Macro1(strCapt As String)
    Sheets("Sheet1").Range("A1") = strCapt
End Sub

 

[mikerickson]

Or pass the whole OptionButton.

 

[dkindred]

Thank you for the replies