Kod Karşılaştırma..

[fazli77]

Değerli forumdaşlar ekteki dosya ile ilgili elinde makro olan veya herhangi bir fomülü olan varsa yardımlarını bekler saygılar.sunarım

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub listele()
For a = 2 To [e65536].End(3).Row
If WorksheetFunction.CountIf([a:a], Cells(a, "e")) = 0 Then
c = c + 1
Cells(c, "c") = Cells(a, "e")
End If
Next
End Sub