Unique Filter Macro not working correctly

  • Thread starter Thread starter Jay
  • Start date Start date
J

Jay

The folloiwng macro is intended to look at a list of numbers in column "M"
and copy unique records only to column "B".
But I'm still getting duplication in column "B".

Macro:
Sub Macro1()

' copy unique Work Order numbers to columb "B"
Range("M6:M200").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range( _
"B6"), Unique:=True

End Sub

column "M"
73369
73369
73369
75817
75817

results in column "B"
73369
73369
75817
 
Check you data in column M, you probably have spaces at the beginning or end
of entries causing it to appear duplicated.

Use Trim to remove leading and trailing spacers
 
That's what i suspected at first.
But when I manually type the values in (witn no leading or trailing
spacers), I get the same results.
 
This command requires a column header. You should include the column header
for column M in the source range as well as the copy_to range.
Assuming your header for M is in M5 it will put the header in B5 followed by
the unique results under it.

Range("M5:M200").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range( _
"B5"), Unique:=True
 
Back
Top