• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Kimlik Numaraları

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
🕒 Konu sahibi 1 saat önce aktifti
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Y

Yasar PİSKİN

Yeni Üye
Katılım
18 Nis 2021
Mesajlar
479
Çözümler
2
Aldığı beğeni
108
Excel V
Office 365 TR
Konu Sahibi
Windows 10 Microsoft Edge 138
D Sütununa girilen kimlik numaraları doğru olmasına rağmen hata veriyor. Bu hususunu giderilmesi için yardımalrınızı talep ediyorum.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Windows 10 Google Chrome 144
Module3 te
Public Sub HandleChange(ByVal ws As Worksheet, ByVal Target As Range)
prosedüründe, aşağıdaki blokta

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.

Kodlarda, Kırmızı Koyu ile işretlediğim 2 yerde hata görüyorum.
TC No 10. rakam Tek toplamlaının 7 katı ve Çift toplamlarının 9 katı toplamının son rakamı olacak.
Yani
If (((tek * 7) - cift) Mod 10)
yerine
If (((tek * 7) + (cift * 9)) Mod 10)
şeklinde olacak
2. hata ise
Tek ve çift hanelerin toplamlarını aldırnak için yazılan
For k = 2 To 9 Step 2
kısmında
Tek haneler 1,3,5,7,9
Çift haneler ise 2,4,6,8
k = 2 To 9 Step 2 dendiğinde k=2, 4, 6 ve 8 olacaktır. 9 a uğramadan döngü tamamlanır. Bu durumda 9. hanedeki (tek hanedeki) rakam toplama dahil edilmeden döngü tamamlanır.

Ben makroyu pek beceremem.
Bunun için önerim şu. Ama, daha iyisini arkadaşlar önerecektir.
k 1 den 4 e kadar olup, k=4 olduğunda 2*k+1 nci haneyi de toplama dahil etsin şeklinde bir ekleme...
HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst