excel tc kimlik no visual basic hatası

Question

hatamız iş yerinde kullandığımız kayıtlarda bulunan tc kimlik no doğrulama ile ilgili.

internetten bulduğum ve halen win10 hariç gayet güzel çalışan kodu paylaşıyorum. kodun kalın lacivert yazıları hata içeren kısımlar olarak görünmekte ama bu işlerden çok anlamadığım için yapamıyorum.

windows 10 ve office 365 excel hata veriyor. diğer seçenekler hata vermiyor(WİN7,WİN8,OFFİCE '16,OFFİCE '13 VS.) 

şimdiden teşekkür ediyorum.

Private Sub Worksheet_Change(ByVal Target As Range)

'On Error Resume Next

If Intersect(Target, Range**(["d2:d2000"]))** Is Nothing Then Exit Sub

If Len(Target) <> 11 Then

MsgBox "TC Kimlik numarası 11 Rakamdan oluşmalıdır.", vbCritical, "Hatalı !" 'X

'Target.Text = ""

Exit Sub

End If

Dim mod1 As Integer, mod2 As Integer, TC1 As Integer, TC2 As Integer, TC3 As Integer, TC4 As Integer, TC5 As Integer, TC6 As Integer, TC7 As Integer, TC8 As Integer, TC9 As Integer, TC10 As Integer, TC11 As Integer

TC1 = Mid(Target, 1, 1)

TC2 = Mid(Target, 2, 1)

TC3 = Mid(Target, 3, 1)

TC4 = Mid(Target, 4, 1)

TC5 = Mid(Target, 5, 1)

TC6 = Mid(Target, 6, 1)

TC7 = Mid(Target, 7, 1)

TC8 = Mid(Target, 8, 1)

TC9 = Mid(Target, 9, 1)

TC10 = Mid(Target, 10, 1)

TC11 = Mid(Target, 11, 1)

mod1 = ((((TC1 + TC3 + TC5 + TC7 + TC9) * 7) - (TC2 + TC4 + TC6 + TC8)) Mod 10)

mod2 = ((TC1 + TC2 + TC3 + TC4 + TC5 + TC6 + TC7 + TC8 + TC9 + TC10) Mod 10)

If mod1 = TC10 And mod2 = TC11 Then

Else

MsgBox Target & " Geçersiz TC kimlik numarası", vbExclamation, "Dikkat !"

End If

End Sub

Answer 1

Bu işe yaramadıysa - Ben Onedrive veya başka bir bulut paylaşım sitesi için kukla veri (hiçbir üretim / gerçek veri) ile dosya göndermek ve burada bağlantı göndermek isteyebilir miyim? Nasıl yapacağınız konusunda yardıma ihtiyacınız varsa - https://support.office.com/en-us/article/share-...

Answer 2

Kullanıcılarımıza yardımcı olmak için çeviri hizmeti kullanmaktayız. Lütfen dil bilgisi hatalarını affedin.

Merhaba 11147

Ben V. Arya, Bağımsız Danışman, bu konuda sizinle çalışmak için. Kapanış parantezin yok. Bir gelişme olarak, Me. Dolayısıyla bu kullanın hak

Kesişen(Hedef, Me.Range(["d2:d2000"])) Hiçbir şey o zaman Çıkış Sub