Option button que muestre datos en textbox
Experto.
Tengo un formulario con 20 option button con el mismo nombre de grupo, mas no logro hacer que cuando seleccione 1 de ellos me muestre un dato en un textbox y otro dato en otro textbox. ¿como lo logro?
tengo este código en el botón de reset y en el botón de salir
Private Sub Reset_Click()
TextBox1 = ""
TextBox2 = ""
End Sub
Private Sub Salir_Click()
Application.ScreenUpdating = False
Unload UserForm1
End Sub
y un Msgbox para cuando no se selecciona un option button
If OptionButton1 = False And OptionButton2 = False And OptionButton3 = False And OptionButton4 = False _ And OptionButton5 = False And OptionButton6 = False And OptionButton7 = False And OptionButton8 = False _ And OptionButton9 = False And OptionButton10 = False And OptionButton11 = False _ And OptionButton12 = False And OptionButton13 = False And OptionButton14 = False And OptionButton15 = False _ And OptionButton16 = False And OptionButton17 = False And OptionButton18 = False And OptionButton19 = False _ And OptionButton20 = False Then
MsgBox "Elija una fracción para su conversión", vbExclamation, "ATENCIÓN"
End If
Pero el problema esta en el código de este botón que no logro hacer que corra.
Private Sub CommandButton1_Click()
Dim R1 As Double
Dim R2 As Double
R1 = TextBox1
R2 = TextBox2
If OptionButton1 = True Then
R1 = 0.0156
R2 = 0.3962
End If