My goal is to autofilter the data in Column C Sheet 1 and have the
results placed in Column A Sheet 2 but it is not working, what am I
doing wrong?

Sheet1("C:C").AdvancedFilter
Action:=xlFilterCopy,Sheet1:=Range("C:C"),
CopyToRange:= Sheet2.Range(_"A6"),Unique:=True

Thanks in advance.

Untested

Sheet1("C:C").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheet2.Range("A6"), _
Unique:=True


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Nena" wrote in message
oups.com...
My goal is to autofilter the data in Column C Sheet 1 and have the
results placed in Column A Sheet 2 but it is not working, what am I
doing wrong?

Sheet1("C:C").AdvancedFilter
Action:=xlFilterCopy,Sheet1:=Range("C:C"),
CopyToRange:= Sheet2.Range(_"A6"),Unique:=True

Thanks in advance.

Thanks, I'll give it a try.


On Aug 16, 12:12 pm, "Bob Phillips" wrote:
Untested

Sheet1("C:C").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheet2.Range("A6"), _
Unique:=True

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Nena" wrote in message

oups.com...



My goal is to autofilter the data in Column C Sheet 1 and have the
results placed in Column A Sheet 2 but it is not working, what am I
doing wrong?

Sheet1("C:C").AdvancedFilter
Action:=xlFilterCopy,Sheet1:=Range("C:C"),
CopyToRange:= Sheet2.Range(_"A6"),Unique:=True

Thanks in advance.- Hide quoted text -

- Show quoted text -

By Excel design you can apply the advanced filter on the same worksheet only.
The best option is set the target location somewhere on the same worksheet
and then copy the data from this location to Sheet2.

In short, your code will never execute if you try to apply advanced filter
with unique records on different worksheet.
--
Pranav Vaidya
VBA Developer
PN, MH-India
If you think my answer is useful, please rate this post as an ANSWER!!


"Nena" wrote:

My goal is to autofilter the data in Column C Sheet 1 and have the
results placed in Column A Sheet 2 but it is not working, what am I
doing wrong?

Sheet1("C:C").AdvancedFilter
Action:=xlFilterCopy,Sheet1:=Range("C:C"),
CopyToRange:= Sheet2.Range(_"A6"),Unique:=True

Thanks in advance.