Option Button

[ExcelQQ]

I create a User Form and i have couple of option buttons in a frame, and one textbox in the user form. I want textbox shows different string based on the selection of option buttons. Part of string is using selected optionButton's caption. Anyone can provide the code? I don't know how to post mine. thanks!

 

[mikerickson]

Something like this?

Dim optionIndex As Long
Dim preScriptStrings As Variant

preScriptStrings = Array("none", "Selected: ", "Chosen: ", "You pressed: ")

optionIndex = -1 * OptionButton1.Value - 2 * OptionButton2.Value - 3 * OptionButton3.Value

If 0 < optionIndex Then
    TextBox1.Text = preScriptStrings(optionIndex) & Me.Controls("OptionButton" & optionIndex).Caption
Else
    TextBox1.Text = preScriptStrings(optionIndex)
End If

 

[ExcelQQ]

Thanks for the code. I have about 10 option buttons so i didn't use the array. This is the code I wrote and couldn't figure why it's not working. Suggestion?

Private Sub UserForm_Initialize()
Dim ctl as MSforms.OptionButton
Dim v As String, path As String

path="c:\....\excel\"

'f_Selection is the name of the frame which contains all the option buttons
For Each ctl In f_Selection.Controls
If ctl.value=True Then
v=ctl.Caption
'TextBox_Dir is the name of the textbox in the userform
TextBox_Dir.Text=path & v & ".xls"
End if
Next ctl

End Sub

 

[ScottR]

Because you've set it up on the userform initialization event and you should have it on all of the option button change events.

None of the option buttons will have a true value when the userform initializes.

 

[mikerickson]

You could do something like

Private Sub UserForm_Initialize()
    Dim oneOption As msforms.OptionButton
    Dim path As String
    path = "c:\....\excel\"
    For Each oneOption In Frame1.Controls
        oneOption.Tag = path & oneOption.Caption & ".xls"
    Next oneOption
End Sub

Private Sub OptionButton1_Click()
    TextBox1.Text = OptionButton1.Tag
End Sub
...
Private Sub OptionButton10_Click()
    TextBox1.Text = OptionButton10.Tag
End Sub

 

[ExcelQQ]

textbox won't show the text though using .tag below, do you know why?

Private Sub OptionButton1_Click()
TextBox1.Text = OptionButton1.Tag
End Sub

 

[mikerickson]

Are the textbox and optionbutton names correct?
What does the debugging line

MsgBox "tag Value-" & optionButton1.Tag

show in that place?

 

[ExcelQQ]

Dim oneOption As msforms.OptionButton
For Each oneOption In Frame1.Controls
oneOption.Tag = path & oneOption.Caption & ".xls"
Next oneOption

can't find .tag property while I use the code above, did I define something wrong?

no problem in the code below though
Private Sub OptionButton1_Click()
TextBox1.Text = OptionButton1.Tag
End Sub

thanks in advance.

 

[ExcelQQ]

MsgBox "tag Value-" & optionButton1.Tag

won't show optionButton1.Tag, only "tag Value-"

 

[ExcelQQ]

it seems to me no "tag" property if we define option button as msforms.OptionButton, anyway to fix that?