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

1 Respuesta

Respuesta
1

Prueba así:

Private Sub CommandButton1_Click()
Dim R1 As Double
Dim R2 As Double
R1 = TextBox1
R2 = TextBox2
If OptionButton1 = True Then
TextBox1 = 0.0156
TextBox2 = 0.3962
End If
End Sub

SI no te funciona, envíame tu archivo para revisar el formulario.

Private Sub CommandButton1_Click()
Dim R1 As Double
Dim R2 As Double
R1 = Val(TextBox1)
R2 = Val(TextBox2)
'MUESTRA MENSAJE POR SI NO SE SELECCIONA UNA OPCIÓN
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
'Resultados a mostrar
'1/64
If OptionButton1 = True Then
TextBox1 = 0.0156
TextBox2 = 0.3962
End If

' siguiente hasta el option button # 20

Quedo asi y funciona muy bien. Gracias

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas