iki farklı tablodaki bilgileri karşılaştırma

[johnwick5208]

Kolay gelsin arkadaşlar. Elimde 10 bin kişilik ve 5 bin kişilik liste var. 5 bin kişilik listedeki kişileri 10 bin kişilik liste olup olmadığını bulmak istiyorum. 5 bin kişilik listedeki kişi diğer listede hücresi renklendirilmiş olarak görmek istiyorum. T.C kimlik numaralarına göre sorgulama yapması lazım. Yardımcı olma şansınız var mı?

 

[Necdet]

Merhaba,

Klasik yöntemle çözülmüş kodları deneyiniz.
Yalnız hangi sayfanın hangi sayfada aranacağını açıklamanızdan tam anlamadım.
Ben sayfa1 'eski liste) deki tc leri sayfa2(yeni liste) de arattırdım.

koddaki Sayfa1. ile başlayan Sheets("eski liste) anlamında kullanılmıştır.
Kod ters olursa sizde kodda değişiklik yapabilirsiniz.

Public Sub Karsilastir()

Dim i As Long
Dim c As Range

Application.ScreenUpdating = False
Sayfa1.Range("K:K").ClearContents
For i = 2 To Sayfa1.Cells(Rows.Count, "A").End(3).Row
    Set c = Sayfa2.Range("G:G").Find(Sayfa1.Cells(i, "G"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Sayfa1.Cells(i, "K") = "Var"
        Cells(i, "G").Interior.ColorIndex = 3
    End If
Next i

Application.ScreenUpdating = True

End Sub

 

[johnwick5208]

Merhaba,

Klasik yöntemle çözülmüş kodları deneyiniz.
Yalnız hangi sayfanın hangi sayfada aranacağını açıklamanızdan tam anlamadım.
Ben sayfa1 'eski liste) deki tc leri sayfa2(yeni liste) de arattırdım.

koddaki Sayfa1. ile başlayan Sheets("eski liste) anlamında kullanılmıştır.
Kod ters olursa sizde kodda değişiklik yapabilirsiniz.

Public Sub Karsilastir()

Dim i As Long
Dim c As Range

Application.ScreenUpdating = False
Sayfa1.Range("K:K").ClearContents
For i = 2 To Sayfa1.Cells(Rows.Count, "A").End(3).Row
    Set c = Sayfa2.Range("G:G").Find(Sayfa1.Cells(i, "G"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Sayfa1.Cells(i, "K") = "Var"
        Cells(i, "G").Interior.ColorIndex = 3
    End If
Next i

Application.ScreenUpdating = True

End Sub

bu kodun tam tersini yapar mısınız?

 

[Necdet]

koddaki sayfa1 leri sayfa2, sayfa2 leri de sayfa1 olarak değiştirin.
Bu kadar basit yani.

Public Sub Karsilastir()

Dim i As Long
Dim c As Range

Application.ScreenUpdating = False
Sayfa2.Range("K:K").ClearContents
For i = 2 To Sayfa2.Cells(Rows.Count, "A").End(3).Row
    Set c = Sayfa1.Range("G:G").Find(Sayfa2.Cells(i, "G"), LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Sayfa2.Cells(i, "K") = "Var"
        sayfa2.Cells(i, "G").Interior.ColorIndex = 3
    End If
Next i

Application.ScreenUpdating = True

End Sub