Búsqueda de un combobox horizontal
Quisiera saber si alguien me puede ayudar:
En el Form en el combobox1 me tiene que traer la información de la Hoja4 rango c6:m6
Y que si en el combobox1 pongo por ejemplo la categoría ingresos_ventas en el combobox2 me aparezca las opciones del rango c8:c11 y así sucesivamente.
Espero que se haya entendido, de ante mano muchas gracias. Adjunto imagentes
1 Respuesta
Respuesta de Dante Amor
Pon el siguiente código dentro del userform.
Cambia "Hoja1" por el nombre de la hoja donde tienes los datos.
Dim sh As Worksheet
'
Private Sub ComboBox1_Change()
Dim col As Long, lr As Long
ComboBox2.Clear
If ComboBox1.ListIndex = -1 Then Exit Sub
col = ComboBox1.ListIndex + 3
lr = sh.Cells(Rows.Count, col).End(3).Row
ComboBox2.List = sh.Range(sh.Cells(7, col), sh.Cells(lr, col)).Value
End Sub
'
Private Sub UserForm_Activate()
Set sh = Sheets("Hoja1")
ComboBox1.List = Application.Transpose(sh.Range("C6", sh.Cells(6, Columns.Count).End(1)).Value)
End Sub
