ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Selçuk TURAN]

Belli bir kurala bağlı olarak verilen TC kimlik numarasının geçerlilik kontrolünü ekteki dosyadaki gibi formülle veya kodlar ile yapabilirsiniz.

Bozuk Link

[OrkmesB]

Bizlerle paylaştığınız için teşekkürler..

[Erhan Yavuz]

[Erkan Akayay]

Bununla ilgili aşağıdaki makalenizi inceledim. Çok faydalıydı. Bana gelen bir mailde T.C. nosunun son karakteri çift sayı olan kimseye rastlayamadık denmişti. T.C. nosunun son karakteri çift sayı olan varmı ?

Kod: Tümünü seç

TC kimlik numaraları verilirken sorgularda kolaylık sağlanması açısından belli bir kural çerçevesinde oluşturulmuş 11 haneli rakamlardan oluşan bir numara ile karşılaşılmaktadır. Bu yazımızda TC kimlik numarası oluşturulurken kullanılan kuraldan bahsedeceğim. Ayrıca excelde formülle ve userform üzerinde basit bir algoritma ile makro oluşturdum.


Öncelikle aşağıda bahsedeceğim TC kimlik numarasının oluşturulma kuralıyla ilgili formül ve makro kodu içeren dosyamı anasayfadaki dosyalarımdan indirebilirsiniz.

indir

Web tabanlı uygulamalarda öncelikle kendi birimleri için olmak üzere sorguda direkt 70 küsür milyon numarayı bir anda sorguya sokmamak için basit bir TC kimlik numarası geçerlilik algoritması oluşturulmuştur. Bu basit algoritma ile eğer geçersiz bir numara girildiğinde sorguya hiç girmeden kodlamadan çıkılır. Bu uygulamayı kendi çalışmalarınızdada en azından geçerlilik kontrolü yapmak için kullanabilirsiniz. Çok uzatmadan bu kurallar zincirine geçelim.

Öncelikle TC kimlik numarası 11 haneli rakamlar dizisinden oluşur. Örneğimiz için 12345678950 gibi 11 haneli bir kimlik numarası kullanalım.

1. Aşama=

TC kimlik numarasının 1, 3, 5, 7 ve 9. karakterleri toplanır ve 7 ile çarpılır.

1 + 3 + 5 + 7 + 9 = 25 ==> 25 * 7 = 175

2. Aşama=

TC kimlik numarasının 2, 4, 6 ve 8. karakterleri toplanır. Çıkan sonuç 1. aşamada elde edilen sonuçtan çıkartılır ve çıkan sonucun 10 bölümünden kalan sayı bulunur (mod'u hesaplanır). Bu sayının TC kimlik numarasının 10. karakterine eşit olması gerekir.

2 + 4 + 6 + 8 = 20 ==> mod((175-20)/10) = 5 çıkan sayı TC kimlik numarasının 10. karakteri olan 5'e eşit.

İşleme devam edin;

3. Aşama=

İlk iki aşamadaki doğruluk sağlandıktan sonra 3. aşamayla işlem tamamlanır. TC kimlik numarasının ilk 10 karakteri toplanır ve çıkan sonucun modu yani 10'a bölümünden kalan sayı hesaplanır. Çıkan bu sayının ise TC kimlik numarasının 11. karakterine eşit olması gerekiyor.

1 + 2 + 3 + 4 + 5 + 6 + 7 + 8 + 9 + 5 = 50 ==> mod(50/10) = 0  çıkan sayı TC kimlik numarasının 11. karakteri olan 0'a eşit.

yukarıdaki yöntemle çalışmalarınızda TC kimlik numarası geçerlilik denetimini yapabilirsiniz.

[Tarkan VURAL]

Benim sıfır. Çift olmuyor mu?

[Erkan Akayay]

0 'ın ne olduğunu bilen bana bir anlatsa

[Abidin Özçelik]

Benimki sonu 4 bizim ailede tek olan yok

[Erkan Akayay]

Neyse ben bu konuyu kapatayım. Ucu başka yerlere gidecek. Komplo teorileri var işin ucunda.

[Abidin Özçelik]

işin ilginç tarafı benim baktıklarımda hepsi sonu çift rakam bende tek rakam bulamadım

[Erkan Akayay]

Bana gelen mailde bunun bir fişleme olduğu yazıyordu. Dedim ya komplo teorisi olabilir.

[erman]

benimki, hanımınki ve anneminkide çift rakamla bitiyor.. bizde mi fişlendik?

[Abidin Özçelik]

Günaydın
Arkadaşlar bunu hücrelerde yapmak istiyorum. Örneğin B6:B46 hüreleri arasında TC Kimlik geçerlilik kontrolü yapacak şekilde yapılabilir mi?

[Erdinç E Karaçam]

Günaydın
Arkadaşlar bunu hücrelerde yapmak istiyorum. Örneğin B6:B46 hüreleri arasında TC Kimlik geçerlilik kontrolü yapacak şekilde yapılabilir mi?

Günaydın,

A1 hücresinde TC kimlik no olsun;

A1 hariç herhangi bir hücrede aşağıdaki formülü giriniz;

Kod: Tümünü seç

=EĞER(VE(MOD(((TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;9;1)*1)*7)-(TOPLA(PARÇAAL(A1;2;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;8;1)*1)));10)<>PARÇAAL(A1;10;1)*1;MOD(TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;2;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;8;1)*1;PARÇAAL(A1;9;1)*1;PARÇAAL(A1;10;1)*1);10)<>PARÇAAL(A1;11;1)*1);"TC Kimlik Noda Hata Var";"TC Kimlik No Doğrulaması Başarılı")

[Abidin Özçelik]

Günaydın,

A1 hücresinde TC kimlik no olsun;

A1 hariç herhangi bir hücrede aşağıdaki formülü giriniz;

Kod: Tümünü seç

=EĞER(VE(MOD(((TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;9;1)*1)*7)-(TOPLA(PARÇAAL(A1;2;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;8;1)*1)));10)<>PARÇAAL(A1;10;1)*1;MOD(TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;2;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;8;1)*1;PARÇAAL(A1;9;1)*1;PARÇAAL(A1;10;1)*1);10)<>PARÇAAL(A1;11;1)*1);"TC Kimlik Noda Hata Var";"TC Kimlik No Doğrulaması Başarılı")

Erdinç hocam teşekkür ediyorum. Benim istediğim TC kimlik no sabit değil. Örnekte olduğu gibi alt alta tckilik ve bilgilerini giriyorum. Hatalı girildiği zaman kaydetmeyecek ve uyaracak şekilde.

[Erdinç E Karaçam]

Perhiz:

Günaydın
Arkadaşlar bunu hücrelerde yapmak istiyorum. Örneğin B6:B46 hüreleri arasında TC Kimlik geçerlilik kontrolü yapacak şekilde yapılabilir mi?

Lahana turşusu:

...Benim istediğim TC kimlik no sabit değil. Örnekte olduğu gibi alt alta tckilik ve bilgilerini giriyorum. Hatalı girildiği zaman kaydetmeyecek ve uyaracak şekilde.

İlk isteğinizde, ikinci isteğinizi yazsa idiniz, daha güzel olmaz mıydı? Aynı iş için bir kereden fazla uğraşmak beni boğuyor dostum. Ancak, isteğinize cevap verecek arkadaşlarımız olacaktır diye düşünüyorum...

[Yasin KARACA]

Günaydın
Arkadaşlar bunu hücrelerde yapmak istiyorum. Örneğin B6:B46 hüreleri arasında TC Kimlik geçerlilik kontrolü yapacak şekilde yapılabilir mi?

Günaydın,

A1 hücresinde TC kimlik no olsun;

A1 hariç herhangi bir hücrede aşağıdaki formülü giriniz;

Kod: Tümünü seç

=EĞER(VE(MOD(((TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;9;1)*1)*7)-(TOPLA(PARÇAAL(A1;2;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;8;1)*1)));10)<>PARÇAAL(A1;10;1)*1;MOD(TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;2;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;8;1)*1;PARÇAAL(A1;9;1)*1;PARÇAAL(A1;10;1)*1);10)<>PARÇAAL(A1;11;1)*1);"TC Kimlik Noda Hata Var";"TC Kimlik No Doğrulaması Başarılı")

TC nolarının hepsinin son rakamı çifttir. Bu formül son rakamı tek olanları da doğruluyor. Yani 10 rakam doğru ise 11. rakamı ne yazarsanız yazın doğru kabul ediyor. Son iki rakam zaten ilk 9 rakamda gizli. Otomatik çıkarılabilirse hata engellenmiş olur.

[aafa1921]

Erdinç E Karaçam 'ın paylaştığı formülde hata var. Ben aldım ve kullandım ancak hatalı olduğunu tespit ettim. Erdinç bey'ın formülünden feyz alarak tekrar kendim hatasız sonuç veren formül oluşturdum. Yanlız formül TC No.nun 11 rakam olup olmadığını kontrol etmiyor, bu kontrolü de veri doğrulama ile sağlayabilirsiniz. Düzenlediğim formül aşağıdadır.

=EĞER(VE((MOD((TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;9;1)*1)*7)-TOPLA(PARÇAAL(A1;2;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;8;1)*1);10)*1=PARÇAAL(A1;10;1)*1);(PARÇAAL(A1;11;1)*1=(MOD(TOPLA(PARÇAAL(A1;1;1)*1;PARÇAAL(A1;2;1)*1;PARÇAAL(A1;3;1)*1;PARÇAAL(A1;4;1)*1;PARÇAAL(A1;5;1)*1;PARÇAAL(A1;6;1)*1;PARÇAAL(A1;7;1)*1;PARÇAAL(A1;8;1)*1;PARÇAAL(A1;9;1)*1;PARÇAAL(A1;10;1)*1);10))));"TC Kim.No Doğru";"TC Kim.No Hatalı")

[selimileri0623]

https://www.excel.web.tr/threads/t-c-ki ... ma.183690/



Linki inceleyiniz