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

1 Respuesta

Respuesta
1
Modifique y probé su código y funciona bien. El problema que encontré es el uso de OptionButton. Enabled cuando en realidad debería utilizar OptionButton.Value.
Pruebe con el siguiente código:
Dim x As Control
    For Each x In Frame1.Controls
        If x.Value = True Then
            If OptionButton1.Value = True Then
                Range("a1").Value = 1
            End If
            If OptionButton2.Value = True Then
                Range("a1").Value = 2
            End If
            If OptionButton3.Value = True Then
                Range("a1").Value = 3
            End If
        End If
    Next x

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas