Populate TextBox with value dependant on OptionButton selection

[ipbr21054]

On my userform i have 3 option buttons1,2,3
I also have TextBox4

Depending on which OptionButton is selected depends on the text to be placed in TextBox4
Option Buttons & TextBox are in a frame if that helps.
Ive tried the below but nothing enters the Textbox

Private Sub Worksheet_Change()
If OptionButton1.Value = True Then TextBox4.Value = "vbOKOnly": OptionButton1.Value = True
If OptionButton2.Value = True Then TextBox4.Value = "vbOKCancel": OptionButton2.Value = True
If OptionButton3.Value = True Then TextBox4.Value = "vbYesNo": OptionButton3.Value = True
End Sub

 

[Legacy 143009]

Why are you using worksheet change event? Are these controls in a sheet or a UserForm?

 

[Legacy 143009]

Try this:

Private Sub OptionButton1_Click()
  TextBox4.Text = ActiveControl.Caption
End Sub
Private Sub OptionButton2_Click()
  TextBox4.Text = ActiveControl.Caption
End Sub
Private Sub OptionButton3_Click()
  TextBox4.Text = ActiveControl.Caption
End Sub

 

[ipbr21054]

Hi,Am i supposed to be chaing the word Caption as when i select optionbutton 1 nothing is placed in the textbox

 

[Legacy 143009]

I am sorry, I didn't get it. Is it possible to provide some visuals?

 

[ipbr21054]

This worked for me

Private Sub OptionButton1_Click()
If OptionButton1 = True Then
TextBox4.TEXT = "vbOK"
End If
End Sub

 

[rlv01]

On my userform i have 3 option buttons1,2,3
I also have TextBox4

Private Sub Worksheet_Change()
If OptionButton1.Value = True Then TextBox4.Value = "vbOKOnly": OptionButton1.Value = True
If OptionButton2.Value = True Then TextBox4.Value = "vbOKCancel": OptionButton2.Value = True
If OptionButton3.Value = True Then TextBox4.Value = "vbYesNo": OptionButton3.Value = True
End Sub

If this is a userform as you have said, you cannot use the Worksheet_Change event like that. Instead, you should use the userform's code module.

Simple example:

'Code module for UserForm
Option Explicit

Private Sub UserForm_Activate()
    Call Macro2
End Sub

Private Sub OptionButton1_Click()
Call Macro2
End Sub

Private Sub OptionButton2_Click()
    Call Macro2
End Sub

Private Sub OptionButton3_Click()
    Call Macro2
End Sub


Private Sub Macro2()
'
' Macro2 Macro
'
    Dim ST As Style
    Dim WS As Worksheet
   
    With UserForm1
        If .OptionButton1.Value = True Then
            .TextBox4.Value = "vbOKOnly"
            .OptionButton1.Value = True
        ElseIf .OptionButton2.Value = True Then
            .TextBox4.Value = "vbOKCancel"
            .OptionButton2.Value = True
        ElseIf .OptionButton3.Value = True Then
            .TextBox4.Value = "vbYesNo"
            .OptionButton3.Value = True
        Else
            .TextBox4.Value = "vbOKOnly"
            .OptionButton1.Value = True
        End If
    End With
   
End Sub

 

[ipbr21054]

Thanks for the reply,i was unable to click the Mark as solution before so post #8 worked for me.