Soru Eşleştirme

[husocan005]

Merhaba,

Bir apartman düşünün. Bu apartmanda 5 tane aynı isimden dogalgaz aboneliği var. Bu aboneliklerin isimsoyisim, adres ve bazılarında tc kimlik numaraları mevcut. Yapmak istediğim tcsi olmayan abonelere binadaki diğer abonelerde bulunan tc nin gelmesi. Ama burda dikkat edilecek püf noktalar var. Mesala; abonenin birisinde Deniz Mah. Su Sokak No:5/1 Diğeri No:5/2 olacaktır. Yani kısacası tc li abone ile tcsiz abonenin adresleri birebir aynı olmayacaktır. En azından isimsoyisim mahalle veya sokak adıyla eşleştirme yapılabilir mi?

Not: Yaklaşık 200.000 adet abone bulunmaktadır.

Örnek:

Ornek.xlsx dosyasını indir - download

Ornek.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Haluk]

Sub Test()
'   Haluk - 07/09/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/

    Dim NoA As Long, i As Long, j As Long
    Dim tempIsim As String, tempTC As String
    
    NoA = Range("A" & Rows.Count).End(xlUp).Row
    
    For i = 2 To NoA
        tempIsim = Range("D" & i)
        tempTC = Range("F" & i)
        
        If tempTC <> "" Then
            For j = 2 To NoA
                If Range("D" & j) = tempIsim Then Range("F" & j) = tempTC
            Next
        End If
    Next
End Sub

.

 

[husocan005]

Merhaba Haluk Hocam Kod Çalıştı teşekkür ederim. Acaba kodun çalışma mantığını da anlatırmısınız. yukarda belirtmiş olduğum püf noktalarda da doğru tespit yapabilecek mi?

 

[Haluk]

İsme göre işlem yapıyor......Bir isme ait herhangibir TC No bulursa, o isme ait tüm TC No'larda bulduğu TC No'yu kullanıyor. Adres, mahalle sokakla falan ilgilenmiyor, bunlar aynı da olabilir değişik veya yanlış da yazılmış olabilir...

.

 

[husocan005]

Haluk hocam evet şimdi ana listede denedim. İsmi aynı olanların tc'sini getiriyor. Tabi bu tclerde doğru değil. Buraya mahalle ve sokak adreslerini de eşleştirme şansımız yokmu hocam.

 

[Haluk]

Kimisinde mahalle adı var, kimisinde yok, aynı şekilde sokak isimleri de öyle ...... dolayısıyle, çok uğraşmak gerekir. işinize yaradığı kadarıyla bu şekilde idare edin bence.

.

 

[husocan005]

Teşekkür ederim Haluk Hocam Emeğine sağlık