Código VBA, pasar OptionButton a una Label
Tengo dos Formularios:
UserForm1 y ImprimirForm
En el UserForm1, ingreso los datos (hay tengo 2 OptionButton1 y OptionButton2) en el cual estoy trabajando con los caption verdaderos para guardar datos
Deseo es que hacer click un CommandButton pase del UserForm1 hacia el InprimirForm en un Label10, solo el OptionButton (TRUE si está activado (marcado))
Algunos ejemplos
ImprimirForm.Label23 = TextBox8 ' Vendedor (esta bien) ImprimirForm.Label24 = TextBox4 ' Solicitud de abarrote (esta bien) ImprimirForm.Label10 = OptionButton1.Caption & " " & OptionButton2.Caption ' Destino de abarrote" (falta código no jala)
1 respuesta
Respuesta de Carlos Arrocha
1
[Hola Felipe.
Te paso un par de ejemplos a ver si te sirve alguno. Debes hacerle los cambios necesarios.
'Opción 1. 'Mestra datos en formulario 1 Private Sub CommandButton1_Click() Dim Opcion As String With UserForm1 Select Case True Case .OptionButton1.Value = True Opcion = "BIEN" Case .OptionButton2.Value = True Opcion = "MAL" Case Else Opcion = "Ninguno" End Select Me.Label1.Caption = " " & Opcion End With End Sub
'Opción 2. 'Pasa datos al formulario2 Private Sub CommandButton1_Click() A1 = Me.OptionButton1.Value A2 = Me.OptionButton2.Value Select Case True Case Is = A1 UserForm2.Show UserForm2.Label1.Caption = "BIEN" Case Is = A2 UserForm2.Show UserForm2.Label1.Caption = "MAL" End Select Me.OptionButton1.Value = False Me.OptionButton2.Value = False Unload UserForm1 End Sub
Salu2 C.A.
