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
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
