Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Puede ser fácil para nosotros aplicamos la función de filtro para filtrar los datos en una hoja de trabajo, pero, a veces, puede que tenga que filtrar a través de múltiples hojas de trabajo que tienen los datos comunes de formato con los mismos criterios de filtro. Filtrarlos uno por uno perderá mucho tiempo, aquí, puedo presentar una manera fácil de resolverlo de una vez.

Aplicar el mismo filtro a varias hojas de trabajo con código VBA


Filtrar datos por múltiples criterios u otras condiciones específicas, como por longitud de texto, por mayúsculas y minúsculas, etc.

Kutools for Excel, Súper filtro característica es una herramienta poderosa, puede aplicar esta característica para finalizar las siguientes operaciones:

  • Filtrar datos con múltiples criterios; Filtrar datos por longitud de texto;
  • Filtrar los datos por mayúsculas / minúsculas; Filtrar la fecha por año / mes / día / semana / trimestre

doc-super-filter1

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis ahora!


flecha azul burbuja derecha Aplicar el mismo filtro a varias hojas de trabajo con código VBA


Por ejemplo, tengo cuatro hojas de trabajo, ya que la siguiente captura de pantalla debe filtrarse con los mismos criterios que el Producto = KTE a la vez.

doc filter multiple sheets 1

No existe una manera directa de filtrar datos en varias hojas en Excel, pero el siguiente código de VBA puede ayudarlo a finalizar este trabajo, por favor haga lo siguiente:

1. Mantenga presionado el ALT + F11 teclas, luego se abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Módulo Ventana.

Código de VBA: aplique el mismo filtro a varias hojas de trabajo:

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

3. Y luego presione F5 clave para ejecutar este código, todos los productos de KTE se han filtrado en todas las hojas de trabajo a la vez, vea la captura de pantalla:

doc filter multiple sheets 2

Nota: Dentro del código anterior, en este xWs.Range ("A1"). AutoFilter 1, "= KTE" guión, A1 y TEC = indica la columna y los criterios sobre los que desea filtrar, el número 1 es el número de columna sobre el que se filtró, puede cambiarlos según sus necesidades. Por ejemplo, si desea filtrar el orden mayor que 50, solo necesita modificar este script de esta manera: xWs.Range ("B1"). AutoFilter 2, "> 50".


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    berenice · 4 months ago
    how to eliminate filtered rows?
  • To post as a guest, your comment is unpublished.
    Sibi · 10 months ago
    How to use "Filter Between" Function, for the same multiple sheets?

    (Example: Time range)
  • To post as a guest, your comment is unpublished.
    Suyash · 10 months ago
    Can we use cell name like Product instead of A1 in : xWs.Range("A1").AutoFilter 1, "=KTE"
    I have different column and some names comes in different column.
    • To post as a guest, your comment is unpublished.
      Suyash · 10 months ago
      I have used filter in every sheet. And I want to change s.no from 1 2 3 serially in every sheet after filter.


      Please let me know if you have vba code for it
  • To post as a guest, your comment is unpublished.
    jarred · 1 years ago
    HI, does the super filter across the entire workbook automatically reapply whenever theres an update of the file?
  • To post as a guest, your comment is unpublished.
    Sebastian · 1 years ago
    Thank you for the code!! is there a way to change the "=KTE" to use a value from a List or Drop down list?
  • To post as a guest, your comment is unpublished.
    Matthew · 1 years ago
    Is there a way to change the "=KTE" part for each sheet with a contain filter that is based on the sheet's name?
  • To post as a guest, your comment is unpublished.
    Monika · 1 years ago
    Hi,


    How this works if Product column is presented in different places in other sheets ?


    In sheet1, it is A1 in sheet2 it is in B1 and in sheet3 it is A1 again ?

    Thanks,
    Monika
  • To post as a guest, your comment is unpublished.
    Mahesh · 1 years ago
    Is there any option to filter by colors?
  • To post as a guest, your comment is unpublished.
    Justin · 1 years ago
    Can I use this to filter pivot tables in multiple sheets if all the pivots tables are from same data source and set up using same criteria?
  • To post as a guest, your comment is unpublished.
    donovan · 1 years ago
    How can you use the result of the auto-filter to set the filter for each other sheet instead of using =(specific name)
  • To post as a guest, your comment is unpublished.
    Donovan Hubbart · 1 years ago
    How do execute if the filter is on a different column on each sheet?
  • To post as a guest, your comment is unpublished.
    Grace · 1 years ago
    Hi,


    My data is in Column E and when I apply this filter with Range("E1") it still filters column A


    How can I troubleshoot?
    Thanks
    • To post as a guest, your comment is unpublished.
      VBA · 1 years ago
      You just have to write the Column number in AutoFilter, in this case: xWs.Range("E1").AutoFilter 5,
  • To post as a guest, your comment is unpublished.
    KABILAN · 2 years ago
    while filtering single word in multiple sheets it does not shows filtered data....all datas are hided.pleace resolve this.
  • To post as a guest, your comment is unpublished.
    AHMAD KALBOUNEH · 2 years ago
    Dear,

    i want to filter more than one value, i used this xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" and it worked
    but when i increase the wanted values to >2 an error occurs.
    this command i use xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr, "=518ZA", xlOr, "=223AM", xlOr, "=592IR"


    thanks,
  • To post as a guest, your comment is unpublished.
    Guy · 2 years ago
    how do you apply this filter formula: to a range of sheets? i have a workbook that has data on the first 5 sheets, and the workbook has 200 sheets i only need the filter to be applied to sheet 6-200.
    Sub apply_autofilter_across_worksheets()
    'Updateby Extendoffice 20160623
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
    xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
    End Sub
    • To post as a guest, your comment is unpublished.
      Cosmicbugaboo · 2 years ago
      Sub apply_autofilter_across_worksheets()

      Dim J As integer
      On Error Resume Next
      For J = 6 to Worksheets(worksheets.count)
      Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE"
      Next
      End Sub