2 Sütundaki verileri karşılaştırma

[Hassy]

Merhabalar,
Benim şöyle bir problemim var, örnek dosyada görüleceği üzere, Veriler sayfasındaki A ve E sütunlarındaki STOK NO alanlarının birbirleriyle karşılaştırılıp A sütunundaki verilerin tek tek E sütunundaki verilerle karşılaştırıp, A olup E sütununda olmayan stokların STOK NO - ADI ve BİRİMİ sütunlarının Sonuç Sayfasına aktarılması,
İlginize şimdiden tşk.lederim

 

[Orion1]

Dosyanız ektedir.

Sub karsilastir_59()
Dim sat1 As Long, i As Long, s1 As Worksheet, s2 As Worksheet
Dim sat2 As Long, sat3 As Long
Set s1 = Sheets("Veriler")
Set s2 = Sheets("Sonuç")
sat1 = s1.Cells(65536, "A").End(xlUp).Row
sat2 = s1.Cells(65536, "E").End(xlUp).Row
sat3 = 2
Application.ScreenUpdating = False
s2.Range("A2:C65536").ClearContents
For i = 2 To sat1
    If WorksheetFunction.CountIf(s1.Range("E2:E" & sat2), s1.Cells(i, "A").Value) = 0 Then
        s2.Range("A" & sat3 & ":C" & sat3).Value = s1.Range("A" & i & ":C" & i).Value
        sat3 = sat3 + 1
    End If
Next i
s2.Select
Application.ScreenUpdating = True
MsgBox "A sütununda olmayanlar alktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Hassy]

tşk.ler ilginize de bende foruma yazdıktan sonra yapabildim; yinede ilginize ve alakanıza tşk.ler

 

[desk]

Bu koddaki çalışma şeklini ve satırlardaki mantıkları açıklayabilirmisiniz? İki listede aynı olanları sonuç verdirmek istiyorum fakat yazdığınız kodu anlayamadım. Her satırda anlatırsanız yapmak için çaba sarf edebilirim. Teşekkürler.