Hoe kan ik hetzelfde filter toepassen op meerdere werkbladen in Excel?

Het is misschien eenvoudig om de Filterfunctie te gebruiken om gegevens in een werkblad te filteren, maar soms moet je mogelijk filteren op meerdere werkbladen die een gemeenschappelijke gegevensopmaak hebben met dezelfde filtercriteria. Het filteren van elk werkblad één voor één kost veel tijd. Hier introduceer ik een eenvoudige manier om dit in één keer op te lossen.

Pas hetzelfde filter toe op meerdere werkbladen met VBA-code

Pas hetzelfde filter toe op meerdere werkbladen met VBA-code

Bijvoorbeeld, ik heb vier werkbladen zoals in de volgende schermafbeelding die tegelijkertijd moeten worden gefilterd met hetzelfde criterium: Product = KTE.

Er is geen directe manier om gegevens in meerdere werkbladen in Excel te filteren, maar de volgende VBA-code kan je helpen om deze taak te voltooien. Volg de onderstaande stappen:

1. Houd de toetsen ALT + F11 ingedrukt, waarna het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.

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

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. Druk vervolgens op de F5-toets om deze code uit te voeren. Alle producten van KTE zijn in één keer gefilterd in alle werkbladen. Zie onderstaande schermafbeelding:

Opmerking: In bovenstaande code, in dit script xWs.Range("A1").AutoFilter 1, "=KTE", duiden A1 en =KTE de kolom en criteria aan waarop je wilt filteren. Het getal 1 is het kolomnummer waarop je filtert, en je kunt ze naar behoefte wijzigen. Als je bijvoorbeeld de bestellingen groter dan 50 wilt filteren, hoef je alleen dit script als volgt aan te passen: xWs.Range("B1").AutoFilter 2, ">50".