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

--
Thanks,
VinceT

:=Range("AJ4:AK4"),

I would expect to be at least 4 cells.

--
Regards,
Tom Ogilvy

"VinceT" wrote in message
...
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

--
Thanks,
VinceT

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


"Tom Ogilvy" wrote:

:=Range("AJ4:AK4"),

I would expect to be at least 4 cells.

--
Regards,
Tom Ogilvy

"VinceT" wrote in message
...
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

--
Thanks,
VinceT

collumn headings and the specific data

Your criteria have only one row

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


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


"Tom Ogilvy" wrote:

:=Range("AJ4:AK4"),

I would expect to be at least 4 cells.

--
Regards,
Tom Ogilvy

"VinceT" wrote in message
...
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

--
Thanks,
VinceT

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

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


"Tom Ogilvy" wrote:

:=Range("AJ4:AK4"),

I would expect to be at least 4 cells.

--
Regards,
Tom Ogilvy

"VinceT" wrote in message
...
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

--
Thanks,
VinceT