Es más que seguro que en distintos artículos de internet, en archivos de tu trabajo o clase haz notado que existen estas listas desplegables:
Pues en el caso de la imagen estas listas están condicionadas por la anterior, menos la primera. Estas listas desplegables funcionan como un tipo de filtro, aquí no existe el clásico procedimiento con fórmulas o funciones, con formulario todo es más dinámico y rápido.
CASO FORMULARIO COMBOBOX DEPENDIENTE
Una empresa que se dedica a la comercialización de autos requiere para su almacén una herramienta que permita registrar las entradas de vehículos por tipo y marca.
DESARROLLO
Primero necesitaremos de una base de datos, en este caso toda la información está dentro de la hoja de trabajo con nombre BD, tenemos cinco tipos de vehículos y por cada tipo 3 marcas, menos la última que solo tiene dos marcas.
Diseño del formulario
Con el cuadro de herramientas insertamos 1 UserForm, 2 Label, 2 Combobox y 2 CommandButton.
A continuación, vamos a mostrar las propiedades de los 8 objetos insertados en el formulario:
CÓDIGO TOTAL DEL FORMULARIO
CÓDIGO USERFORM – EVENTO INITIALIZE
‘Evento: Activate – Cada vez que el formulario inicie
Private Sub UserForm_Activate()
‘Seleccionar la hoja donde se encuentra la base de datos
Sheets(“BD”).Select
‘Calcular la ultima fila de dicha base de datos, tomando
‘como referencia la columna A
ultfila = Columns(“A:A”).Range(“A” & Rows.Count).End(xlUp).Row
‘Bucle para cargar los datos al combobox1 (Tipo)
For fila = 2 To ultfila
‘Si la referencia es diferente de vacío
‘Cargar los datos al combobox
If Cells(fila, 1) <> “” Then
ComboBox1.AddItem (Cells(fila, 1))
End If
Next
‘Seleccionar la hoja Destino
Sheets(“Destino”).Select
End Sub
CÓDIGO COMBOBOX1 – EVENTO: CHANGE
‘Evento: Change- Cada vez que suceda cambios en el combobox1 (Tipo)
Private Sub ComboBox1_Change()
‘Limpiar el combobox2 (Marca)
ComboBox2.Clear
‘Seleccionar la hoja BD
Sheets(“BD”).Select
‘Validar la celda a cargar en el combobox2 (Marca)
‘dependiente del combobox1 (Tipo)
columna = ComboBox1.ListIndex + 3
Cells(2, columna).Select
ultfila = Columns(“A:A”).Range(“A” & Rows.Count).End(xlUp).Row
‘Bucle para cargar los datos de la columna seleccionada al combobox2 (Marca)
For fila = 2 To ultfila
‘Si la selección es diferente de vacío cargar los datos al combobox2 (Marca)
If Cells(fila, columna) <> “” Then
ComboBox2.AddItem (Cells(fila, columna))
End If
Next
‘Seleccionar la hoja Destino
Sheets(“Destino”).Select
End Sub
CÓDIGO BOTÓN INSERTAR – EVENTO: CLICK
‘Evento: Click – Por cada clic en el botón Insertar
Private Sub btnInsertar_Click()
‘Bucle para validar el combobox1 (Tipo) y combobox2 (Marca)
If ComboBox1.ListIndex = -1 Then
MsgBox “Debe seleccionar un tipo de la lista”, vbCritical, “Sistema”
Exit Sub
ElseIf ComboBox2.ListIndex = -1 Then
MsgBox “Seleccione una marca”
Exit Sub
End If
‘Calcular la última fila de la hoja Destino
ultfila = Sheets(“Destino”).Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
‘Mandar los datos del combobox1 (Tipo) y combobox2 (Marca) a la hoja Destino
Sheets(“Destino”).Cells(ultfila, 2).Value = ultfila – 7
Sheets(“Destino”).Cells(ultfila, 3).Value = ComboBox1.Text
Sheets(“Destino”).Cells(ultfila, 4).Value = ComboBox2.Text
‘Alinear y poner marco a la datos mandados a la hoja Destino
Sheets(“Destino”).Cells(ultfila, 2).VerticalAlignment = xlCenter
Sheets(“Destino”).Cells(ultfila, 2).HorizontalAlignment = xlCenter
Sheets(“Destino”).Cells(ultfila, 3).VerticalAlignment = xlCenter
Sheets(“Destino”).Cells(ultfila, 3).HorizontalAlignment = xlCenter
Sheets(“Destino”).Cells(ultfila, 4).VerticalAlignment = xlCenter
Sheets(“Destino”).Cells(ultfila, 4).HorizontalAlignment = xlCenter
Range(Cells(ultfila, 2), Cells(ultfila, 4)).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
End With
End Sub
CÓDIGO BOTÓN SALIR – EVENTO: CLICK
‘Evento: Click – Por cada clic en el botón Salir
Private Sub btnSalir_Click()
‘Salir del formulario
Unload Me
End Sub
MACRO PARA EJECUTAR EL FORMULARIO
Sub Botón1_Haga_clic_en()
‘Mostrar el formulario en pantalla
UserForm1.Show
End Sub
Para ejecutar esta macro vamos a insertar el botón – EJECUTAR.
Para que aprendas a insertar un botón – Control de Formulario te dejo aquí el enlace.
Hemos logrado crear una herramienta que facilite el registro de información, pero con la singularidad de tener listas desplegables dependientes que permiten ni siquiera visualizar la hoja donde esta la data.
Deja una respuesta