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?

This will do the trick

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


cheungm@gmail.com 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?

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.


Will.Cairns@gmail.com 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
>
>
> cheungm@gmail.com 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?

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.


Will.Cairns@gmail.com 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
>
>
> cheungm@gmail.com 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?

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


cheungm@gmail.com 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.
>
>
> Will.Cairns@gmail.com 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
> >
> >
> > cheungm@gmail.com 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?