Macro to find duplicates and display non-duplicates in different sheet

[tacosauce31]

I'm looking to build a macro that will find duplicates from two different ranges on two different sheets. The data I'd like to compare is usually on column E on both worksheets. I would like the macro to also display non-duplicates on a new sheet.

Can I have some help on this?

Thank you!

 

[tacosauce31]

mse330,

I've debugged the code line by line and it works until the very last line of code. It somehow does not remove all the duplicates. I don't know if that helps.

 

[tacosauce31]

I removed the two statements from mse330's code inserted the following code to get the results I needed:

Dim Cell as Range
Dim DSO as Object
Dim DstRng as Range
Dim Key as Variant
Dim RngEnd as Range
Dim SrcRng as Range
Dim Wks as Worksheet

'Set the ranges on the worksheet
Set DstRng = Wks.Range("D1")
Set SrcRng = Wks.Range("A1")


'Determine the SrcRng size
Set RngEnd = Wks.Cells(Rows.Count, SrcRng.Column).End(xlUp)
Set SrcRng = IIf(RngEnd.Row < SrcRng.Row, SrcRng, Wks.Range(SrcRng, RngEnd))


'Clear the desintation range
Set RngEnd = Wks.Cells(Rows.Count, DstRng.Column).End(xlUp)
Set DstRng = IIf(RngEnd.Row < DstRng.Row, DstRng, Wks.Range(DstRng, RngEnd))
DstRng.ClearContents


'Create the Dictionary Object
Set DSO = CreateObject("Scripting.Dictionary")
'Set text comparisons not to be case sensitive
DSO.CompareMode = vbTextCompare


'Save each entry along with the number of times it occurs
For Each Cell In SrcRng
    Key = Trim(Cell.Value)
    If Key <> "" And Not DSO.Exists(Key) Then
        DSO.Add Key, 1
    Else
        DSO(Key) = DSO(Key) + 1
    End If
Next Cell


'List only entries that appear once
For Each Key In DSO.Keys
    If DSO(Key) = 1 Then
        R = R + 1
        DstRng.Cells(R, 1) = Key
    End If
Next Key


'Release the object and memory it uses
Set DSO = Nothing

Thank you guys so much for your help!

 

[mse330]

tacosauce31, have you tried the code provided by Fluff in post #10 ?