¿Se puede hacer una Macro para filtrar varios datos?
Me pueden apoyar de favor con un macro que filtre en la columna "c", lo siguiente de la hoja 1
(Mis encabezados se encuentra en la fila1)
Que me filtre todo lo que empiece con "Ventas",
que me filtre todo lo que contenga "Multiva"
Que me filtre todo lo que contenga "8457"
Que me filtre todo lo que contenga "0165253780"
Y por último que me filtre todo lo que contenga la palabra "Banregio"
1 Respuesta
Te anexo la macro
Sub Macro1()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
If h1.AutoFilterMode Then h1.AutoFilterMode = False
uf = h1.Range("C" & Rows.Count).End(xlUp).Row
uc = h1.Cells(1, Columns.Count).End(xlToLeft).Column
h1.Range(h1.Cells(1, 1), h1.Cells(uf, uc)).AutoFilter Field:=3, _
Criteria1:=Array("0165253780", "8457", "banregio", "multiva", "ventas"), _
Operator:=xlFilterValues
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
No me filtra nada
lo de ventas no será necesario algo así como left?
y los otros criterios algo así como * *?
Te anexo otra macro para filtrar con filtro avanzado
En la columna Z pon los datos de esta forma:
Si no tienes disponible la columna Z, entonces pon los datos en otra columna; y cambia todas las Z's de la macro por la columna que tengas disponible:
Sub Macro1()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
If h1.AutoFilterMode Then h1.AutoFilterMode = False
If h1.FilterMode Then h1.ShowAllData
h1.Range("Z1") = h1.Range("C1")
uf = h1.Range("C" & Rows.Count).End(xlUp).Row
uc = "E"
h1.Range(h1.Cells(1, 1), h1.Cells(uf, uc)).AdvancedFilter _
Action:=xlFilterInPlace, _
CriteriaRange:=h1.Range("Z1:Z6"), Unique:=False
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
