Búsqueda o filtro con el evento click de un combobox
Estoy intentando programar un código que me devuelva los datos de una tabla al seleccionar un dato dentro del combobox.
Debería funcionar de la siguiente forma:
Busco los datos en un combobox y me rellena el txt_equipo, después selecciono en el cbo_tarea_prin una opción y los datos se me muestran en el listbox1.
Ahora mismo al ejecutar el cbo_tarea_prin el listbox se cargan los datos filtrados por el txt_equipo sin tener en cuenta la selección del cbo_tarea_prin.
Espero puedan instruirme.
Private Sub cbo_tarea_prin_Click()
Dim Fila, final As Integer
'
Fila = 2
With Hoja7
For Fila = 2 To final
If txt_equipo = Hoja7.Cells(Fila, 1) Then
cbo_tarea_prin = Hoja7.Cells(Fila, 2)
Exit For
End If
Next
If txt_equipo.Value = Empty Then
ListBox1.Clear
End If
Me.ListBox1.ColumnCount = 10
Me.ListBox1.ColumnWidths = "30pt;115pt;50pt;50pt;50pt;50pt;50pt;100pt;50pt;50pt"
ListBox1.Clear
items = Hoja7.Range("equipos").CurrentRegion.Rows.Count
For i = 2 To items
If LCase(Hoja7.Cells(i, 1).Value) Like "*" & LCase(txt_equipo.Value) Then 'LCase(txt_equipo.Value) Like "*" &
ListBox1. AddItem Hoja7.Cells(i, 3)
ListBox1. List(ListBox1.ListCount - 1, 1) = Hoja7.Cells(i, 7)
ListBox1. List(ListBox1.ListCount - 1, 2) = Hoja7.Cells(i, 8)
ListBox1. List(ListBox1.ListCount - 1, 3) = Hoja7.Cells(i, 9)
ListBox1. List(ListBox1.ListCount - 1, 4) = Hoja7. Cells(i, 10)
ListBox1. List(ListBox1.ListCount - 1, 5) = Hoja7. Cells(i, 11)
ListBox1. List(ListBox1.ListCount - 1, 6) = Hoja7. Cells(i, 12)
ListBox1. List(ListBox1.ListCount - 1, 7) = Hoja7. Cells(i, 13)
ListBox1. List(ListBox1.ListCount - 1, 8) = Hoja7. Cells(i, 14)
ListBox1. List(ListBox1.ListCount - 1, 9) = Hoja7. Cells(i, 15)
End If
Next i
Exit Sub
End With
End Sub
Respuesta de Programar Excel
1
