Cargar ComboBox dependiendo de OptionButton

Hola mi duda es, tengo un userform con varios OptionButton y deseo que dependiendo de cual elija me cargue unos datos u otros al ComboBox.
Mi rutina es:
Private Sub UserForm_Activate()
If OptionButton1 Then
ComboBox1.AddItem "Op1-1"
ComboBox1.AddItem "Op1-2"
End If
If OptionButton2 Then
ComboBox1.AddItem "Op2-1"
ComboBox1.AddItem "Op2-2"
End If
If OptionButton3 Then
ComboBox1.AddItem "Op3-1"
ComboBox1.AddItem "Op3-2"
End If
End Sub
¿Dónde esta el fallo?
Gracias y un saludo

1 respuesta

Respuesta
1
El fallo está en todo el código, creo que lo más sencillo es que agregues un CommandButton para actualizar los datos del ComboBox y digítale este código.
Private Sub cmdActualiza_Click()
    If OptionButton1 Then
        ComboBox1. Clear
        ComboBox1. AddItem "Op1-1"
        ComboBox1. AddItem "Op1-2"
        ComboBox1.ListIndex = 0
    End If
    If OptionButton2 Then
        ComboBox1. Clear
        ComboBox1. AddItem "Op2-1"
        ComboBox1. AddItem "Op2-2"
        ComboBox1.ListIndex = 0
    End If
    If OptionButton3 Then
        ComboBox1. Clear
        ComboBox1. AddItem "Op3-1"
        ComboBox1. AddItem "Op3-2"
        ComboBox1.ListIndex = 0
    End If
End Sub
Efectivamente ahora si funciona.
Pero se te ocurre otro evento para no emplear un commandbutton y sea más directo, al seleccionar el optionbutton se cargue directamente el combobox, lo he intentado de varias formas y eventos pero no doy con la tecla.
De todas maneras GRACIAS por la dedicación empleada.
Un saludo.
Ya tengo la solución definitiva, al optionbutton1 le puse el evento click y le carga el combobox con la información que me interesa, al optionbutton2 ídem de lo mismo.
Gracias por la indicarme por donde iba la solución.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas