¿Cómo aplicar el mismo filtro a varias hojas en Excel?

Puede que nos resulte fácil aplicar la función Filtro para filtrar datos en una hoja de cálculo, pero, a veces, es posible que necesites filtrar en múltiples hojas de trabajo que tienen un formato de datos común con los mismos criterios de filtro. Filtrarlas una por una sería una pérdida considerable de tiempo; aquí te presento una manera sencilla de resolverlo de una vez.

Aplicar el mismo filtro a múltiples hojas de trabajo con código VBA

Aplicar el mismo filtro a múltiples hojas de trabajo con código VBA

Por ejemplo, tengo cuatro hojas de trabajo como se muestra en la siguiente captura de pantalla que necesitan ser filtradas con el mismo criterio: Producto = KTE, todo a la vez.

No hay una forma directa de filtrar datos en múltiples hojas en Excel, pero el siguiente código VBA puede ayudarte a realizar esta tarea. Por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11, luego se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Aplicar el mismo filtro a múltiples hojas de trabajo:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. Luego presiona la tecla F5 para ejecutar este código, todos los productos de KTE habrán sido filtrados en todas las hojas de trabajo al mismo tiempo, ver captura de pantalla:

Nota: Dentro del código anterior, en este script xWs.Range("A1").AutoFilter 1, "=KTE", A1 y =KTE indican la columna y los criterios en los que deseas basar el filtro, el número 1 es el número de columna en la que se basa el filtro, puedes cambiarlos según tus necesidades. Por ejemplo, si deseas filtrar los pedidos mayores a 50, solo necesitas modificar este script de la siguiente manera: xWs.Range("B1").AutoFilter 2, ">50".