Paste Unique Values from Clipboard
 

At my previous job someone wrote a macro that was able to take the
information that was copied into the clipboard and only paste unique
values in the selected area. I've been searching online for a way to
do this but can't seem to find a solution. Can anybody help with this?

Paste Unique Values from Clipboard
 

This will do the trick

Sub Macro1()
Columns("A:A").Select
Range("A2:A6").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("B1" _
), Unique:=True
End Sub


wrote:
At my previous job someone wrote a macro that was able to take the
information that was copied into the clipboard and only paste unique
values in the selected area. I've been searching online for a way to
do this but can't seem to find a solution. Can anybody help with this?

Paste Unique Values from Clipboard
 

Thanks for the reply, but the macro you wrote does not allow me to
dynamically select what I want to copy and where I would like to paste
the information.


wrote:
This will do the trick

Sub Macro1()
Columns("A:A").Select
Range("A2:A6").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("B1" _
), Unique:=True
End Sub


wrote:
At my previous job someone wrote a macro that was able to take the
information that was copied into the clipboard and only paste unique
values in the selected area. I've been searching online for a way to
do this but can't seem to find a solution. Can anybody help with this?

Paste Unique Values from Clipboard
 

Nor did your question have any desire to have that functionality.. the
important part of the macro is the command..


[MySourceRange].AdvancedFilter
Action:=xlFilterCopy,CopyToRange:=Range([MyDestinationRange]),
Unique:=True

You should be able to work that command into whatever selection or
variable ranges that your program is using.

Best Rgds,
Will


wrote:
Thanks for the reply, but the macro you wrote does not allow me to
dynamically select what I want to copy and where I would like to paste
the information.


wrote:
This will do the trick

Sub Macro1()
Columns("A:A").Select
Range("A2:A6").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("B1" _
), Unique:=True
End Sub


wrote:
At my previous job someone wrote a macro that was able to take the
information that was copied into the clipboard and only paste unique
values in the selected area. I've been searching online for a way to
do this but can't seem to find a solution. Can anybody help with this?