Mostrar datos de hoja excel en listbox y filtrar búsqueda
Dante Amor.
Me ha venido un form de articulos. Y a ver si podemos hacerlo funcionar.
Necesito mostrar los datos de mi hoja "Articulos" en un listbox.
Y en un txt_buscar, si está vacío, que muestre todo el contenido. Si escribo cualquier texto ( por ejemplo "las" ) que me filtre los datos que contenga ese texto, da igual que este al principio, en medio o al final.
1 Respuesta
Te anexo el código para buscar
Private Sub txt_buscar_Change()
'Por.Dante Amor
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Set h1 = Sheets("ARTICULOS")
Set h2 = Sheets("TEMP")
h2.Cells.Clear
h1.Rows(1).Copy h2.Rows(1)
ListBox1.RowSource = ""
'
j = 2
For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
texto = ""
For k = Columns("A").Column To Columns("L").Column
texto = texto & h1.Cells(i, k)
Next
If LCase(texto) Like "*" & txt_buscar & "*" Then
h1.Rows(i).Copy h2.Rows(j)
h2.Cells(j, "M") = i
j = j + 1
End If
Next
rango = h2.Range("A2:M" & h2.Range("B" & Rows.Count).End(xlUp).Row).Address
ListBox1.RowSource = h2.Name & "!" & rango
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
¡Gracias!
Funciona bien, pero no me carga los items al listbox al iniciar el form.
Coloque el mismo código en en evento "UserForm_Initialize" y funciona perfecto. La búsqueda en cualquier columna. PERFECTO.
Ahora, me surge un problema. Intento adaptar los códigos que usted me paso de los botones cmb_modificar y cmb_eliminar y me sale:
Error 13: No coinciden los tipos.
