bir kaç rakamı yanlış girilmiş tc numaraları

[setere]

merhaba elimde iki sütun halinde tc kimlik numarası var. birinci sütundaki bazı tc kimlik numarası ikinci sütunda da var. ancak bir veya iki tane rakam yanlış yazıldığı için ikinci sütunda aratıp bulamıyorum. ilk sütundaki tc leri ikinci sütunda aratıp en yakın tcyi bulabilecek bir folmül ya da kod olabilir mi?teşekkürler

 

[Huseyinkis]

yakın olanı getirme ile ilgili formul değil ama girilen tc numaralarını doğru olup olmadığını ekteki linkten kontrol edebilirsiniz.

http://www.excel.web.tr/f125/veri-giri-i-yaparken-tc-kimlik-nosunun-sistematik-t23050.html

 

[kdr20_88]

merhaba elimde iki sütun halinde tc kimlik numarası var. birinci sütundaki bazı tc kimlik numarası ikinci sütunda da var. ancak bir veya iki tane rakam yanlış yazıldığı için ikinci sütunda aratıp bulamıyorum. ilk sütundaki tc leri ikinci sütunda aratıp en yakın tcyi bulabilecek bir folmül ya da kod olabilir mi?teşekkürler

yada basit bi öneri;

her iki sütunuda yan yana koy ve sırala, daha sonra da çıkarma işlemi ile kontrol edebilirsin.

 

[setere]

yakın olanı getirme ile ilgili formul değil ama girilen tc numaralarını doğru olup olmadığını ekteki linkten kontrol edebilirsiniz.

http://www.excel.web.tr/f125/veri-giri-i-yaparken-tc-kimlik-nosunun-sistematik-t23050.html

linkteki araç çok güzel,ama listeyi tamamen koyunca çalışmıyor, dah doğrusu hata veriyor.tek tek koymak gerek

 

[setere]

yada basit bi öneri;

her iki sütunuda yan yana koy ve sırala, daha sonra da çıkarma işlemi ile kontrol edebilirsin.

olmaz ki öyle, kaçıncı rakamın yanlış olduğunu bilmiyorum.ilk rakamda olabilir ortalarda bir rakam da olabilir...hem listeler farklı tamamen,sadece içinde benzer numaralar var,aradıklarım onlar

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz, bir modüle kopyalayıp çalıştırınız.

Benzer değerine verdiğiniz rakamdan büyük benzerleri C sütununda Listeler.
A sütunundaki değerleri B sütnunda arar.

Sub BenzerBul()
 
    Dim i       As Long
    Dim j       As Long
    Dim ASon    As Long
    Dim BSon    As Long
    Dim k       As Long
    Dim Adet    As Integer
    Dim Benzer  As Integer
 
    Application.ScreenUpdating = False
 
    Benzer = 6
    ASon = Cells(Rows.Count, "A").End(3).Row
    BSon = Cells(Rows.Count, "B").End(3).Row
    Range("C:C").ClearContents
 
    For i = 1 To ASon
        For j = 1 To BSon
            Adet = 0
            For k = 1 To 11
                If Mid(Cells(i, "A"), k, 1) = Mid(Cells(j, "B"), k, 1) Then Adet = Adet + 1
            Next k
            If Adet > Benzer Then Cells(j, "C") = Cells(j, "C") & " " & i & " : " & Cells(i, "A")
        Next j
    Next i
 
    Application.ScreenUpdating = True
 
    MsgBox "KARŞILAŞTIRMA BİTMİŞTİR...", vbInformation, "N. YEŞERTENER ---> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
 
End Sub

 

[Necdet]

Necdet Bey kodlar çalışıyor ama msgbox ta hata veriyor.

foruma verilen web adresinde fazladan kodlar koyuyor. Ya onları çıkartın ya da msgbox ı tamamen silin.