Usar OptionButton con un Botón
Saludos a todos en el foro
Mi consulta es la siguiente: Tengo un UserForm1 con un Frame1, en el cual existen 3 optionButton (OptionButton1, OptionButton2 y OptionButton3) y fuera del Frame un Botón de comando.
Lo que pretendo es que al seleccionar un optionButton se ejecute una macro para la que fue configurado y que ésto se realice hasta que pulse el botón ejecutar.
En el Botón tengo el siguiente código:
Private Sub CommandButton_Click()
Dim x as Control
For Each x In Frame1.Controls
If x.value = True then
If OpttionButton.Enabled = True Then
Range("a1").value = 1
Else
If OpttionButton2.Enabled = True Then
Range("a1").value = 2
Else
If OpttionButton3.Enabled = True Then
Range("a1").value = 3
End If
End If
End If
End Sub
Al ejecutarlo efectivamente me pone los valores en A1 pero lo hace al momento de seleccionar el OpttionButton y yo necesito que lo haga hasta que yo pulse el Botón Aceptar.
¿Alguien podría ayudarme con el código?
Desde Ya muchas Gracias
Jonathan
Mi consulta es la siguiente: Tengo un UserForm1 con un Frame1, en el cual existen 3 optionButton (OptionButton1, OptionButton2 y OptionButton3) y fuera del Frame un Botón de comando.
Lo que pretendo es que al seleccionar un optionButton se ejecute una macro para la que fue configurado y que ésto se realice hasta que pulse el botón ejecutar.
En el Botón tengo el siguiente código:
Private Sub CommandButton_Click()
Dim x as Control
For Each x In Frame1.Controls
If x.value = True then
If OpttionButton.Enabled = True Then
Range("a1").value = 1
Else
If OpttionButton2.Enabled = True Then
Range("a1").value = 2
Else
If OpttionButton3.Enabled = True Then
Range("a1").value = 3
End If
End If
End If
End Sub
Al ejecutarlo efectivamente me pone los valores en A1 pero lo hace al momento de seleccionar el OpttionButton y yo necesito que lo haga hasta que yo pulse el Botón Aceptar.
¿Alguien podría ayudarme con el código?
Desde Ya muchas Gracias
Jonathan
1 Respuesta
Respuesta de Hector Pacheco
1