Filtrar listbox dado dos valores en textbox
Necesito su ayuda, tengo una tabla que la muestro en un listbox. Tengo que filtrarla dado el valor de dos textbox, he logrado hacerlo sólo con uno, sin embargo, igual no se muestra toda la tabla filtrada, solo el valor. Espero me puedan ayudar, les dejo link del archivo.
https://www.dropbox.com/s/measmm954lz7ixj/instructivos2.xlsm?dl=0
1 Respuesta
Respuesta de Dante Amor
1
¡Gracias! Esperare su respuesta
H o l a:
Te anexo la macro para filtrar
Private Sub CommandButton2_Click()
'Por.Dante Amor
Set h1 = Sheets("Hoja3")
Set h2 = Sheets("filtro")
h2.Cells.Clear
If h1.AutoFilterMode Then h1.AutoFilterMode = False
u = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Range("A12:E" & u).AutoFilter Field:=4, Criteria1:="=*" & TextBox2 & "*"
h1.Range("A12:E" & u).AutoFilter Field:=5, Criteria1:="=*" & TextBox1 & "*"
h1.Range("A12:E" & u).Copy h2.[A1]
ListBox1.RowSource = h2.Name & "!" & h2.UsedRange.Offset(1, 0).Address
End Sub
