formule aanpassen

[vrouw]

Hallo.

Ik wil een selectie dmv een uitgebreid filter kopiëren naar een ander tabblad.

Ik heb wel onderstaande formule maar ik weet niet hoe ik die dus moet aanpassen dat het naar een ander tabblad gaat ipv naar de range die nu in de code staat.

Range("A9:T300").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
        "Sheet3").Range("A1:A9"), CopyToRange:=Range("A26:H26"), Unique:=False

 

[ExcelAmateur]

Misschien zo?

Range("A9:T300").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
        "Sheet3").Range("A1:A9").CopyToSheets("Sheets4").Range("A26:H26"), Unique:=False

 

[Roncancio]

Range("A9:T300").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
        "Sheet3").Range("A1:A9"), CopyToRange:=Sheets("NAAM ANDER WERKBLAD").Range("A26:H26"), Unique:=False

Met vriendelijke groet,


Roncancio

 

[vrouw]

Misschien zo?

Range("A9:T300").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
        "Sheet3").Range("A1:A9").CopyToSheets("Sheets4").Range("A26:H26"), Unique:=False

Jammer maar nee,

Foutmelding:
Object doesn`t support this property of method.

 

[vrouw]

Range("A9:T300").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Sheets( _
        "Sheet3").Range("A1:A9"), CopyToRange:=Sheets("NAAM ANDER WERKBLAD").Range("A26:H26"), Unique:=False

Met vriendelijke groet,


Roncancio

Yep, dit is `m:thumb:

 

[vrouw]

Maar toch nog niet helemaal goed.

Ik heb criteria in sheet3 A1:A9 staan en daar word nu niet op gefilterd.
Alles word nu naar sheet 4 gekopieerd.
terwijl alleen waarvan de criteria in sheet 3 staan en overeenkomen in kolom E van de activeworksheet mogen worden gekopieerd.

 

[vrouw]

Hmm ik zie het al.....

Dat filter werkt alleen als de criteria tekst is!
En ik werk met de criteria met getallen, is dat op te lossen??