ERKAN YILMAZ
Yeni Üye
- Katılım
- 16 Ocak 2022
- Mesajlar
- 431
- Aldığı beğeni
- 144
- Excel V
- Office 365 TR
Konu Sahibi
Merhaba Üstadlarım,
Ek'te göndermiş olduğum dosyada KullanıcıGirişi userformun da aşağıda ki kodları kullandım ancak ekran görüntüsü göndermiş olduğum hatayı aldım . Nerede hata yapıyorum acaba?
Yardımcı olabilirseniz sevinirim.
Private Sub CommandButton1_Click()
Dim syf As Worksheet
Set syf = Sheets("PersonalKayt1")
kullanicikodu = Me.TextBox1
kullaniciadisoyadi = Me.TextBox2
sifre = Me.TextBox3
kullanici_varmi = WorksheetFunction.CountIf(syf.Range("A:A"), kullanicikodu)
If kullanici_varmi < 1 Then
MsgBox "Kullanıcı Adı Hatalı"
Exit Sub
Else
sifre_bul WorksheetFunction.VLookup(kullanicikodu, syf.Range("A2:C"), 3, 0)
If CStr(sifre_bul) = sifre Then
MsgBox "Hoş Geldiniz"
Unload Me
Else
MsgBox "Hatalı Şifre"
syf.Range("C2") = syf.Range("C2") + 2
End If
End If
If syf.Range("C2") = 3 Then
MsgBox "3 Kez Hatalı Şifre Girdiniz"
End If
End Sub
Ek'te göndermiş olduğum dosyada KullanıcıGirişi userformun da aşağıda ki kodları kullandım ancak ekran görüntüsü göndermiş olduğum hatayı aldım . Nerede hata yapıyorum acaba?
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
Yardımcı olabilirseniz sevinirim.
Private Sub CommandButton1_Click()
Dim syf As Worksheet
Set syf = Sheets("PersonalKayt1")
kullanicikodu = Me.TextBox1
kullaniciadisoyadi = Me.TextBox2
sifre = Me.TextBox3
kullanici_varmi = WorksheetFunction.CountIf(syf.Range("A:A"), kullanicikodu)
If kullanici_varmi < 1 Then
MsgBox "Kullanıcı Adı Hatalı"
Exit Sub
Else
sifre_bul WorksheetFunction.VLookup(kullanicikodu, syf.Range("A2:C"), 3, 0)
If CStr(sifre_bul) = sifre Then
MsgBox "Hoş Geldiniz"
Unload Me
Else
MsgBox "Hatalı Şifre"
syf.Range("C2") = syf.Range("C2") + 2
End If
End If
If syf.Range("C2") = 3 Then
MsgBox "3 Kez Hatalı Şifre Girdiniz"
End If
End Sub
