filteren met vba

[mlc1]

hallo allemaal

Ik kom uit onderstaande niet uit.
Ik wil het filteren automatiseren en heb dat via een macro in vb vertaald

maar tijdens het bouwen van de macro moet ik in het filter(ontvanger) steeds een vinkje zetten voor a b en c

VERSCHEPER ONTVANGER
jansen a
jansen a
flipse a
karelse b
groot c
karelse b
groot b
jansen c
flipse c
flipse c
jansen a
groot a
groot b
groot a
flipse a
jansen b
jansen b
jansen b
groot c

Het gefilterde wordt naar blad 2 gekopieerd

dat vertaalt zich in VBA als volgT

Sub Macro3()
'
' Macro3 Macro
'Sheets("blad1").Select
    ActiveSheet.Range("$A$2:$B$20").AutoFilter Field:=2, Criteria1:="a"
    Range("A1:B31").Select
    Range("B31").Activate
    Selection.Copy
   Sheets("Blad2").Select
   Range("a1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("blad1").Select
    ActiveSheet.Range("$A$2:$B$20").AutoFilter Field:=2, Criteria1:="b"
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad2").Select
    Range("D1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Sheets("blad1").Select
    ActiveSheet.Range("$A$2:$B$20").AutoFilter Field:=2, Criteria1:="c"
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Blad2").Select
    Range("G1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Range("G21").Select
End Sub

maar een volgende keer staat er een D of F enz tussen

Hoe regel ik dit dat hij automatsch het filter scant ? (dus de vinkjes zelf zet)


Bijvoorbaat voor je snelle hulp

Groet Ron

 

[Wigi]

Lees dit artikel van 5 pagina's volledig door, en ga ermee aan de slag:

http://users.skynet.be/fa436118/wim/autofilter20071.htm

Dan moet het wel lukken. Bijkomend voordeel is dat je VBA code gaat schrijven in plaats van opnemen met de macro recorder. (al kan dat uiteraard wel de eerste stap zijn richting een macro).

Wigi

 

[mlc1]

Lees dit artikel van 5 pagina's volledig door, en ga ermee aan de slag:

http://users.skynet.be/fa436118/wim/autofilter20071.htm

Dan moet het wel lukken. Bijkomend voordeel is dat je VBA code gaat schrijven in plaats van opnemen met de macro recorder. (al kan dat uiteraard wel de eerste stap zijn richting een macro).

Wigi

Dank je Wim

Ik heb de uitleg en het voorbeeldbestand doorgenomen maar kom er niet uit.
Ik wil dat automatisch alle personen een voor een gefilterd worden met bijbehorende landen.
en de uitkomst per persoon naar een nieuw blad kopieert
Ik ben niet erg goed in VBA maar denk dat er een loop in moet komen
die elke persoon die voorkomt in kolom B scant.
Het kan zijn dat bijvoorbeeld dat " hij " een keer niet voorkomt
Kan je me op weg helpen?

Bijvoorbaat dank
Groet Ron