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