Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Combobox Dependientes

| 12 comentarios

Con la finalidad de crear dos listas (Combobox) dependientes emplearemos los siguientes códigos:

Relacionado a la activación del Userform agregaremos el código siguiente:

Private Sub UserForm_Activate()
Sheets("Pais").Select

ultimaFila = Columns("A:A").Range("A65536").End(xlUp).Row
For cont = 2 To ultimaFila

If Cells(cont, 1) <> "" Then
ComboBox1.AddItem (Cells(cont, 1))

End If
Next

Sheets("Inicio").Select
End Sub

Este Codigo agrega una lista de Paises a Combobox 1.

Posteriormente agregamos el siguiente codigo relacionado al evento de Combobox1 Change, es decir cada ves que escojas una de las opciones de la lista.

Private Sub ComboBox1_Change()

ComboBox6.Clear

Sheets("Codigos").Select

columna1 = ComboBox1.ListIndex + 1

Cells(2, columna1).Select
ultimaFila = Columns("A:A").Range("A65536").End(xlUp).Row
For cont = 2 To ultimaFila

If Cells(cont, columna1) <> "" Then
ComboBox6.AddItem (Cells(cont, columna1))

End If

Next

Sheets("Inicio").Select
End Sub

Este codigo termina condicionando la lista desplegable que sale en el combobox6 en funcion a lo escogido en el combobox1, cabe resaltar que el combobox1 jala el contenido de su lista de la hoja "Pais" y el combobox 6 jala su contenido de la hoja "codigo".

Elaboracion de Combobox dependiente

Elaborado por: Luis Gaitán

12 comentarios

Deja una respuesta

Los campos requeridos estan marcados con *.