Advanced Filter

[Mister Dolopo]

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

thanks

 

[papou]

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

Regards
Pascal

 

[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

 

[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

 

[Dave Peterson]

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

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