Programar un formulario con optionbutton

Tengo un userform que me funciona bien, pero no me doy cuenta como hacer para que reemplace el verdadero por SI y el falso por NO, adjunto el código que tengo

Private Sub CommandButton1_Click()

Range("A5000").Select
ActiveCell.End(xlUp).Select
ActiveCell.Offset(1, 0).Value = OptionButton1.Value

End Sub

Vale aclarar que cuento con dos botones de opción (OptionButton1 y OptionButton2) cuando tildo el 1 me da verdadero, cuando lo hago con el dos me da como resultado falso, espero que me puedan ayudar, cordiales saldos. Guillermo

1 Respuesta

Respuesta
1

Agregá la línea que dejo con negritas:

Private Sub CommandButton1_Click()

Range("A5000").Select
ActiveCell.End(xlUp).Select
If OptionButton1.Value = True Then resulta = "SI" Else: resulta = "NO"
ActiveCell.Offset(1, 0).Value = resulta

End Sub

¡Gracias! Funcionó muy bien, vuelvo a agradecerte, y seguimos en contacto, cordiales saludos.

Intenté ampliar mis comentarios en la nueva consulta pero no me deja el sitio... supongo que debes responderme previamente allí para que pueda agregar las aclaraciones.

Sdos!

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas