xlFilterCopy Help!!

[Guest]

I currently am working on a fairly large sheet where i want to extract/copy
data to another area using two different criterea. currently it seems to be
copying all the data. Any suggestions will be appreciated

Sub DataM()
Range("R1:Y2400").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
:=Range("AJ4:AK4"), CopyToRange:=Range("AG9:AN9"), Unique _
:=True
End Sub

 

[Tom Ogilvy]

:=Range("AJ4:AK4"),

I would expect to be at least 4 cells.

 

[Guest]

Tom Thanks for your input. Yest the range for the criterea contains the
collumn headings and the specific data
--
Thanks,
VinceT

:=Range("AJ4:AK4"),

I would expect to be at least 4 cells.

 

[Ron de Bruin]

collumn headings and the specific data

Your criteria have only one row

--
Regards Ron de Bruin
http://www.rondebruin.nl

Tom Thanks for your input. Yest the range for the criterea contains the
collumn headings and the specific data

 

[Tom Ogilvy]

Range("A1:A21").AdvancedFilter Action:=xlFilterCopy,
CriteriaRange:=Range( _
"D1:E2"), CopyToRange:=Range("G1"), Unique:=True

worked for me as an example. My criteria range is two rows. If you have
an OR condition, then it should have more rows.

But you can't have a criteria range with 1 row.

--
Regards,
Tom Ogilvy

Tom Thanks for your input. Yest the range for the criterea contains the
collumn headings and the specific data