filteren op kolom met namen

[Mde]

Hallo,

Ik heb een tabblad met namen op deze namen wil ik filteren en het resultaat verplaatsen naar blad 2.
In werkelijkheid is de lijst langer en moeten de namen aanpasbaar zijn.

Wie kan mij een zetje in de juiste richting geven?

 

[VenA]

Zet in A1 Naam

Sub VenA()
 Sheets("Blad1").Cells(7, 1).CurrentRegion.AdvancedFilter xlFilterCopy, Sheets("Blad1").Cells(1).CurrentRegion.Resize(, 1), Sheets("Blad2").Cells(1), False
End Sub

 

[Mde]

Werkt, dank je:thumb:

 

[Mde]

toch nog een vraagje,
als ik nu meer kolommen wil kopieeren hoepas ik dat aan?
bv: ik heb gefilterd op de namen nu wil ik kolom A tm E kopieeren naar blad 2.

 

[cow18]

bovenin blad2 geef je de kolommen weer die je wenst mee te nemen, volgorde mag willekeurig

 

[Mde]

dank je