Solved: Help Removing Duplicates

[markmrw]

Good morrow

i need some help with my code (attached)

i have a module that removes duplicate values then does some other gumphf!

But what i would like is for the macro not to just remove the duplicate values, but also the original values.

For example

123 ' i would like this deleted
125
124
123 ' and this

thank you this has caused me much brain already.

Mark
Attachment 10727

[lucas]

Some of us don't have 2007 so we can't look at your file. Is this in the sheet or a combobox in a userform, etc.

Can you post the code?

[markmrw]

i will do it better

have a compatible version

Mark

Attachment 10728

[lucas]

So, are the duplicates on sheet Totals Pallet (8) and are they the box number?

[georgiboy]

Try this

[VBA]Sub RemoveDuplicates()
Dim rCell As Range

For Each rCell In Range("A2:A70").Cells

If WorksheetFunction.CountIf(Range("A:A"), rCell.Value) > 1 Then
Range("A:A").Replace What:=rCell.Value, Replacement:=""
End If

Next rCell

End Sub[/VBA]

Hope this helps

[georgiboy]

Like this

[markmrw]

Thats fantastic
thank you ver much i will post the final code when i get it up and running thank you very much

Mark