Compare Two Worksheets and give the Difference

**hakuna.matata** · 09-22-2012, 01:34 PM

Hello Everybody
I want to compare the two worksheets and after comparison it must gives the difference in the third worksheet, Although its the cross post because i need it really badly, the cross post link is here, http://www.ozgrid.com/forum/showthread.php?t=170048

**HSV** · 09-22-2012, 03:16 PM

Try it,

Sub hsv()
Dim cl As Range, c As Range
With Sheets(1)
 For Each cl In .Range("C4:C" & .Cells(Rows.Count, 3).End(xlUp).Row).SpecialCells(12)
   Set c = Sheets(2).Columns(3).Find(cl, , xlValues, xlWhole)
    If c Is Nothing Then
   Sheets(3).Cells(Rows.Count, 2).End(xlUp).Offset(1) = cl
    End If
   Next cl
 End With
End Sub