En el siguiente tutorial te muestro como crear un ComboBox Dependiente con Múltiples Niveles. Fácil y sencillo, con cuatro líneas de código puedes presentar tus formularios de manera Profesional.
Private Sub UserForm1_Initialize()
Dim Lista1 As Range
Dim Celda1 As Range
Set Lista1 = Hoja1.ListObjects("Titulo_de_la_Columna Principal").DataBodyRange
For Each Celda1 In Lista1
UserForm1.ComboBox1.AddItem Celda1.Value
Next Celda1
UserForm1.ComboBox2.AddItem "Seleccione item"
End Sub
Código #2:
Private Sub ComboBox1_Change()
Dim Lista2 As Range
Dim Celda2 As Range
Set Lista2 = Hoja1.ListObjects(UserForm1.ComboBox1.Value).DataBodyRange
UserForm1.ComboBox2.Clear
For Each Celda2 In Lista2
UserForm1.ComboBox2.AddItem Celda2.Value
Next Celda2
'Inserta línea de Código si deseas un tercer nivel
End Sub
Si lo que deseas es crear un tercer nivel:
- Copia y pega el Código #2
- Añade la siguiente línea de código en el "ComboBox1_Change"
UserForm1.ComboBox3.AddItem "Seleccione item"
- En el nuevo ComboBox remplaza los 2 por el 3 y los 1 por el 2 en este orden. Menos el UserForm1 que es el mismo en todos los casos.
NOTA: Repite este proceso en tantos niveles como necesites.
Utiliza el siguiente código para lanzar el formulario al abrir el Archivo Excel.
Sub LanzarFormu1ario()
Load UserForm1
UserForm1.Show
End Sub
Tutorial:
En el siguiente link te muestro paso a paso como hacerlo. Aquí
⭐ Si te gustó este tutorial, por favor regístrate en nuestra Lista de correo y Suscríbete a mi canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.
