Advanced Filter

M

Mister Dolopo

How with code would I do an auto filer - unique values and
copy these values to another sheet?

thanks
 
P

papou

Sheets("Sheet1").Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Sheets("Sheet2").Range("A1"), Unique:=True

Regards
Pascal
 
R

Ron de Bruin

Try this Mister

Column A must have a header cell

Sub test()
ActiveSheet.Columns("A:A").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets("Sheet2").Range("A1"), Unique:=True
End Sub
 
M

Mister Dolopo

Thanks Guys,

Small problem, this macro copies my heading value as well
as the data below. Can this be rectified to only copy the
data?

thanks
 
D

Dave Peterson

Just delete the cell (and shift up) or delete the whole row after you do the
copy.

....
sheets("sheet2").rows(1).delete
....
 
Top