Geavanceerd filter / Excel VBA

[HelpMaKu]

Goedemorgen. Ik ben nieuw op dit forum en wil een vraag voorleggen omdat ik vastloop met mijn macro. Het betreft een keuringsrapport voor noodverlichting dat ik moet maken.

Uitgangspositie:

• Ik heb een Excel file met een aantal werkbladen: Voorblad | Tekstblad | Kelder | Begane grond | Verd 1+2 | Afkeurpunten
• Voorblad, Tekstblad en Afkeurpunten staan vast, de tussenliggende werkbladen zijn variabel in aantal en inhoud. Op deze tussenliggende werkbladen wil ik een geavanceerd filter toepassen op kolom C ("Fout"), kopiëren en de uitkomst plakken op het laatste werkblad “Afkeurpunten”.

Stand van zaken:

• Het lukt mij om de gegevens van één werkblad d.m.v. een geavanceerd filter te kopiëren en te plakken op het werkblad Afkeurpunten.
• Het lukt mij NIET om hier een loop van te maken zodat alle gegevens onder elkaar op het werkblad Afkeurpunten komen.

Kan iemand mij helpen?

Ik voeg een testdocument bij. Hier staat de volgende code in. De rest van mijn geëxperimenteer heb ik maar weggelaten.

Sub UseAdvancedFilterCopyAll()

    Dim rgData As Range, rgCriteria As Range, rgOutput As Range
    
    Set rgData = ThisWorkbook.ActiveSheet.Range("A5").CurrentRegion
    Set rgCriteria = ThisWorkbook.ActiveSheet.Range("K1").CurrentRegion
    Set rgOutput = ThisWorkbook.Worksheets("Afkeurpunten").Range("A3:G3")
    
    rgData.AdvancedFilter xlFilterCopy, rgCriteria, rgOutput

End Sub

 

[AccessGuru]

Ik vermoed dat je vraag een Excel vraag is, en niks met websites te maken heeft. Dus dat je hem gewoon in het Excel forum kan (laten) zetten. Dan krijg je ook geheid meer Excel kenners binnen. Ik heb je code proberen te draaien, maar hij geeft een foutmelding op rgData.AdvancedFilter. Ik zie ook nergens een Advanced filter ingesteld. Dus foutje in je bestand?
(en voordat je, als nieuwe gebruiker, denkt dat de Quote knop de enige manier is om antwoord te geven: dat is-ie niet . Gebruik ofwel het prachtige en grote tekstvak <Snel reageren>, of de knop <Reageer op bericht>. Sla jezelf op de vingers met een hamer als je hand tóch met onbedwingbare dwang naar de Quote knop toe wil )