İki ayrı sütundaki isim listelerinden aynı olanları tespit etmek

[zerali]

Arkadaşlar iki ayrı sütunda farklı satırlarda ad soyad verilerim var. Birinde 200 kişi birinde 194 kişi bunların içinde 10-15 kişi aynı. Bunları nasıl tespit edebilirim.

 

[Bakigemlik]

Merhaba,

Koşullu biçimlendirme ile yapılabilir örnek dosya eklerseniz daha kolay yardımcı olabiliriz,

 

[zerali]

Merhaba, dosyayı ekliyorum.

 

[veyselemre]

Makro ile çözüm.

Sub test()

    ASon = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
    lst1 = Sheets("Sayfa1").Range("A2:A" & ASon)
    CSon = Sheets("Sayfa1").Cells(Rows.Count, "C").End(xlUp).Row
    lst2 = Sheets("Sayfa1").Range("C2:C" & ASon)

    Dim w(1 To 2)

    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare

        For i = 1 To UBound(lst1)
            key = Trim(lst1(i, 1))

            If Not .Exists(key) Then
                w(1) = 1
                w(2) = 0
                .Add key, w
            Else
                c = .Item(key)
                c(1) = c(1) + 1
                .Item(key) = c
            End If
        Next i
        For i = 1 To UBound(lst2)
            key = Trim(lst2(i, 1))

            If Not .Exists(key) Then
                w(1) = 0
                w(2) = 1
                .Add key, w
            Else
                c = .Item(key)
                c(2) = c(2) + 1
                .Item(key) = c
            End If
        Next i

        keys = .keys
        itms = .items

        [e:G].Clear
        For i = LBound(keys) To UBound(keys)
            Cells(i + 2, 5) = keys(i)
            Cells(i + 2, 6) = itms(i)(1)
            Cells(i + 2, 7) = itms(i)(2)
            If itms(i)(1) = itms(i)(2) Then Cells(i + 2, 5).Resize(1, 3).Interior.Color = vbYellow
            
        Next i

    End With

    Erase lst1, lst2, itms, keys

End Sub

 

[esahin1907]

Merhaba, dosyayı ekliyorum.

merhaba,
formül ile alternatif olsun.
d sütununa formulü girerseniz aynı olanların sayısını verir.

=egersay(A:A;C3)

 

[Murat OSMA]

İki tablonuz da ayrı ayrı sayfalarda olmuş olsa idi ve başlık olarak da örneğin t1 olsaydı;
ADO ile bu şekilde SubQuery yazılarak kolayca çözülebilirdi.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Set con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
        Range("E:J").Clear
        s = "Select [Sayfa1$].t1,1, (Select Count(*) From [Sayfa2$] Where [Sayfa1$].t1=[Sayfa2$].t1) From [Sayfa1$]"
        rs.Open s, con, 1, 1
        Range("E2").CopyFromRecordset rs: rs.Close
        s = "Select [Sayfa2$].t1,1, (Select Count(*) From [Sayfa1$] Where [Sayfa2$].t1=[Sayfa1$].t1) From [Sayfa2$]"
        rs.Open s, con, 1, 1
        Range("H2").CopyFromRecordset rs
    Columns.AutoFit
    Set con = Nothing: Set rs = Nothing: s = ""
End Sub[/SIZE][/FONT]

Örnek dosya ek'tedir.

İyi günler. k:: ​

 

[zerali]

Çok teşekkürler hocalarım elinize,emeğinize sağlık(Teşekkür etmeyi unutmuşum.Kusuruma bakmayın.Kafam yerinde değil Babamı kaybettim de)

 

[Korhan Ayhan]

Başınız sağ olsun. Allah sabırlar versin.

 

[Murat OSMA]

Başınız sağ olsun Sn. zerali.
Allah rahmet eylesin. Sizlere de sabırlar versin.​

 

[zerali]

Korhan Ayhan ve Murat OSMA hocam Allah Razı Olsun.Dostlar Sağolsun.

 

[esahin1907]

Başınız sağolsun. Allah sabırlar versin.

 

[zerali]

Allah Razı Olsun hocam