¿Cómo aplicar filtros a varias hojas?

Quisiera saber si puedes por favor ayudarme con una macro que me ayude a filtrar por elementos en la primera hoja y este filtro se replique en las hojas adyacentes, en la imagen que adjunto, tengo la misma cantidad de filas y columnas, pero al ser varios puntos de venta, en cada hoja tengo cada uno.

Hoy mi jefe me pregunto, filtra por por referencia y que ese mismo filtro se aplique a las demás hojas, así mismo que cuando lo quites, se quite en las demás hojas.

Revisando uno de los foros encontré que aplicaste esta macro, pero esta macro solo aplica el filtro a un solo nombre, ¿qué pasa si quiero que filtre por más de 10 nombres?, ¿Cómo quedaría la macro para que se restablezca todo a visualizar sin filtros?

Sub filtrar()
'Por.Dante Amor
    Set h2 = Sheets("Hoja2")
    Set h3 = Sheets("Hoja3")
    h2.ListObjects("Tabla2").Range.AutoFilter Field:=1, Criteria1:=h2.[A2]
    h3.ListObjects("Tabla3").Range.AutoFilter Field:=1, Criteria1:=h2.[A2]
End Sub

Agradezco tu ayuda.

1 Respuesta

Respuesta
1

[Hola 

Pon un ejemplo como deseas el resultado

¡Gracias! Si, tengo 6 pestañas con las información ubicada exactamente en las mismas celdas, lo que quiero es que si por ejemplo en la Hoja_1 que es el resumen, filtro 3 elementos como se muestra a continuación:

Las demás hojas muestren la misma info que estoy filtrando en la Hoja_1, caso contrario, si quiero volver a visualizar todas las filas, sea igual y se muestren todos los elementos en las demás hojas, es algo así como que el filtro de la Hoja_1, filtre con los mismos valores y argumentos todas las demás hojas del libro.

No se como mas podría explicarlo.

Sube tu archivo a la nube para revisarlo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas