Insert text with option button

[adamsm]

Hi anyone,

How could I write a code that would display the text in textbox1 when the option buton1 is selected.

Lets say for example; If I select option button1 I want the text box to display the text "me" with the option button2 to display "he"

Any help on this would be kindly appreciated.

Thanks in advance.

 

[John_w]

Private Sub OptionButton1_Click()
    TextBox1.Value = "me"
End Sub

Private Sub OptionButton2_Click()
    TextBox1.Value = "he"
End Sub

 

[adamsm]

Thanks for the code. How could I create a message "select category first" if the user selects a radio button having the combo box1 empty.

Any help on this would be kindly appreciated.

 

[John_w]

Maybe this:

Private Sub OptionButton1_Click()
    If ComboBox1.ListIndex = -1 Then
        MsgBox "Select category first"
    Else
        TextBox1.Value = "me"
    End If
End Sub

Private Sub OptionButton2_Click()
    If ComboBox1.ListIndex = -1 Then
        MsgBox "Select category first"
    Else
        TextBox1.Value = "he"
    End If
End Sub