Herhalende opdracht vergemakkelijken

[blmsth]

Maandelijks krijg ik van onze boekhouding een overzicht van onze rekeningen (proef- en saldibalans), +/- 400 lijnen.
Hieruit filter ik steeds dezelfde rekeningen (+/20-tal), die verspreid zijn over de 400 lijnen.
Het maandelijks instellen van de filter van deze rekeningen kost me te veel tijd. is er een manier om dit sneller te laten gaan (1 druk op de knop bijvoorbeeld)?

Alvast bedankt
Tom

 

[Niels28]

Je geeft wel heel weinig informatie om mee te werken, dus ook kort antwoord.

Sub filter()
Cells(1).CurrentRegion.AutoFilter
End Sub

Niels

 

[blmsth]

Daar vreesde ik al voor. Hierbij een voorbeeldbestand.
Elke maand krijg ik dus een update van dit bestand en moet ik telkens opnieuw een selectie maken van de rekeningen die ik wens te zien.

 

[Cobbe]

Je kan dan deze eens testen:

Sub filteren()
   Range("A1:M1").AutoFilter
    ActiveSheet.Range("$A$1:$M$223").AutoFilter Field:=1, Criteria1:=Array( _
        "100000", "212000", "230009", "240000", "241100", "411000"), Operator:= _
        xlFilterValues
End Sub

 

[blmsth]

Dit gaat me al een stuk verder helpen, dankuwel!