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

thanks

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

Regards
Pascal

"Mister Dolopo" a écrit dans le message de
...
How with code would I do an auto filer - unique values and
copy these values to another sheet?

thanks

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



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Mister Dolopo" wrote in message ...
How with code would I do an auto filer - unique values and
copy these values to another sheet?

thanks

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


-----Original Message-----
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



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Mister Dolopo" wrote in message
...
How with code would I do an auto filer - unique values
and
copy these values to another sheet?

thanks


.

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

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



Mister Dolopo wrote:

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

-----Original Message-----
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



--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Mister Dolopo" wrote in message
...
How with code would I do an auto filer - unique values
and
copy these values to another sheet?

thanks


.


--

Dave Peterson