Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe hetzelfde filter op meerdere vellen toepassen In Excel?

Het kan voor ons gemakkelijk zijn om de filterfunctie toe te passen om gegevens in een werkblad te filteren, maar soms moet u filteren op meerdere werkbladen met gemeenschappelijke gegevensopmaak met dezelfde filtercriteria. Om ze één voor één te filteren zal veel tijd verspillen, hier kan ik een eenvoudige manier introduceren om het in één keer op te lossen.

Pas hetzelfde filter toe op meerdere werkbladen met VBA-code


Gegevens filteren op basis van meerdere criteria of een andere specifieke voorwaarde, zoals tekstlengte, hoofdlettergevoeligheid, enzovoort.

Kutools for Excel's Super filter functie is een krachtig hulpprogramma, u kunt deze functie toepassen om de volgende bewerkingen te voltooien:

  • Gegevens filteren met meerdere criteria; Gegevens filteren op tekstlengte;
  • Gegevens filteren op hoofdletters / kleine letters; Filter datum op jaar / maand / dag / week / kwartaal

doc-super-filter1

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!


pijl blauwe rechterbel Pas hetzelfde filter toe op meerdere werkbladen met VBA-code


Ik heb bijvoorbeeld vier werkbladen omdat het volgende screenshot moet worden gefilterd met dezelfde criteria als het Product = KTE tegelijk.

doc filter meerdere bladen 1

Er is geen directe manier om gegevens in meerdere bladen in Excel te filteren, maar de volgende VBA-code kan u helpen om deze taak af te maken. Ga hiervoor als volgt te werk:

1. Houd de toets ingedrukt ALT + F11 toetsen, opent dan de Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: pas hetzelfde filter toe op meerdere werkbladen:

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. En druk vervolgens op F5 sleutel om deze code uit te voeren, alle producten van KTE zijn in alle werkbladen tegelijk gefilterd, zie screenshot:

doc filter meerdere bladen 2

Notes: In bovenstaande code, hierin xWs.Range ("A1"). AutoFilter 1, "= KTE" script, A1 en = KTE geeft de kolom en criteria aan waarop u wilt filteren op basis van, het aantal 1 is het kolomnummer waarop u hebt gefilterd, op basis van, u kunt deze naar uw behoefte wijzigen. Als u bijvoorbeeld de volgorde groter dan 50 wilt filteren, moet u dit script als volgt wijzigen: xWs.Range ("B1"). AutoFilter 2, "> 50".


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
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