Búsqueda y el resultado aparezca el listbox
Tengo un archivo que por medio de 2 columnas y quiero filtrar para que en me aparezca las celdas no vacías en un listbox según lo que se busca de esas 2 opciones cuando ponga en textbox el dato aparazcan las celdas no vacías
Yo lo tengo de la siguiente manera
Un textbox de busqueda
Un listbox que muestra los resultado
HojaX es la hoa tuja osea hoja1 o hoja2 no se cual es la tuya
c:c Es la columna donde se encuentra los datos a buscar
Nombre de tu hoja es donde esta la base de dato
En el textbox en el evento change
Private Sub TextBox1_Change()
hojaX.select
LIstBox1.Clear
valor = TextBox1.Value
Set busca = Sheets("nombre de tu hoja").Range("C:C").Find(valor, LookIn:=xlValues, lookat:=xlPart)
If Not busca Is Nothing Then
ubica = busca.Address
Do
ubica2 = "$A$" & busca.Row
ListBox1.AddItem Range(ubica2)
i = ListBox1.ListCount - 1
ListBox1.List(i, 1) = Range(ubica2).Offset(0, 1)
ListBox1.List(i, 2) = Range(ubica2).Offset(0, 2)
ListBox1.List(i, 3) = Range(ubica2).Offset(0, 3)
ListBox1.List(i, 4) = Range(ubica2).Offset(0, 4)
Set busca = Sheets("nombre de tu hoja").Range("C:C").FindNext(busca)
Loop While Not busca Is Nothing And busca.Address <> ubica
End If
End Sub
Si te silve valor para cerrar la pregunta
