2 Sayfada 2 sutun karşılaştırma

[Subjugate]

Merhaba

1 sorum olacak sayfa1 ve sayfa2 adında iki listem var birinde 6000 küsür sayfa 2 de 35000 civarı tc kimlik no var safya1 A sutunun 3. hücresinden tc kimlik noları başlıyor sayfa 2 de ise C sutunun 3. hücresinden bu iki listeyi karşılaştırıp aynı olanları sayfa 3 te herhangi bir sutuna yazabilirmiyiz. Unutmadan iki listede numaralar karışık halde.

Şimdiden teşekkürler

 

[apocalyt]

Meraba,
öncelikle sayfa 1 b3 hücresine =EĞERSAY(Sayfa2!$C$3:$C$35000;Sayfa1!A3)
formülünü kopyalayıp sağ alt köşesine çift tıklayıp 6000 satıra uygulanmasını sağlayın..

Sonrasında şu kodu bir modüle kopyalayın..sayfa 3 te sonuçlarınız mevcut olucaktır..

Sub deneme()
Application.ScreenUpdating = False
y = 2
For x = 3 To Sheets(1).[b10000].End(3).Row
If Sheets(1).Cells(x, "b") = 1 Then
Sheets(3).Cells(y, "a") = Sheets(1).Cells(x, "a")
y = y + 1
End If
Next x
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[dEdE]

Merhaba,
Alternatif olarak şu da olabilir.

Sub Karşılaştır()
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    Set s3 = Sheets("Sayfa3")
    
    For i = 3 To s1.Range("A" & Rows.Count).End(3).Row
    Set Aranan = s2.Range("C:C").Find(s1.Cells(i, 1).Value, , xlValues, xlWhole)
        If Not Aranan Is Nothing Then
            s = s + 1
            s3.Cells(s, 1).Value = s1.Cells(i, 1).Value
        End If
    Next i
    MsgBox "Karşılaştırma Tamamlandı.", vbInformation, "dEdE " & Application.UserName & "'e Başarılar diler."
End Sub