T.C kimlik no düzeltme

[okanpolat]

Arkdaşlar pazartesiye ytiştirmem greken 3000 tc kimlik numarası var. Bu tc kimlik numaraları bir proğramda kayıtlı aslına fakat proğramdaki bir hatadan dolayı tc kimlik numaralarının son rakamını kaydedemedim proğrama.
Yine bu forumdan aldığım hatalı tc kimlik numaralarını bulan bir kod içine eksik kimlik numaralarını girdim. Şimdi bu eksik kimliğin son numarasını proğramının kendisinin deneyerek bulmasını sağlayan bir kod lazım bana.
Örnek dosyayı ekliyorum yardım ederseniz çok minnettar kalırım.

 

[okanpolat]

Arkadaşlar lütfen yardım edin.

 

[veyselemre]

Sub TCKimlikNoTamamla()
For x = 2 To [a65536].End(3).Row
    If Len(Cells(x, 1)) = 10 Then
        Cells(x, 3) = TCKimlikSon2CDKodEkle(Trim(Left(Cells(x, 1), 9)))
    End If
Next x
End Sub

 

[okanpolat]

Veysel Emre Çok TeŞekkÜr Ederİm Bu Kodu VerdİĞİm Örnekte MÖdÜlÜn İÇİne Mİ Yazicam Acaba?

 

[okanpolat]

sayın veyselemre bne bunu beceremedim rica etsem verdiğim dosyaya ekleyip göndere bilirmisin. İstediğim şey ordaki hatalı tc kimlik numaralarının son rakamları 0 den 9 a kadar deneyerek doğru tc kimlik numarasını bulması. Bunu bir butona bastığımda yapmasmasını sağlaya bilirsen ayrıca müteşekkir olurum.

 

[veyselemre]

eki inceleyin

 

[okanpolat]

Sayın veyselemre yardımınız için çok teşekkür ederim inanın çok makbule geçti. Çok ama çok teşekkürler.