Çözüldü Vba Kullanıcı Giriş ve Şifre Form

[ERKAN YILMAZ]

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?

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

 

[Patron]

sifre_bul dan sonra = koyup deneyin.

 

[Refaz]

set syf= olan yerde yanlış sayfa adı.

 

[ERKAN YILMAZ]

Merhaba Üstad,

set syf= dan sonra ekran görüntüsü gönderdiğimde ki gibi sayfa adı PersonalKayt1 değil mi?

 

[Refaz]

Merhaba.
Set syf = Sheets("PersonalKayt1")

Set syf = PersonalKayt1

 

[ERKAN YILMAZ]

sifre_bul dan sonra = koyup deneyin.

Merhaba sayın Patron,

Önerini denedim ama olmadı.

 

[ERKAN YILMAZ]

Merhaba.
Set syf = Sheets("PersonalKayt1")

Set syf = PersonalKayt1

Merhaba Üstad,

Sanırım, sifre bul kodumda hata var. syf.range den sonra ki sütun ve satır aralıklarını mı yanlış yapıyorum acaba?

 

[Patron]

Merhaba sayın Patron,

Önerini denedim ama olmadı.

= işareti mutlaka olmalı.
bunun dışında başka sorunlarınız var demekki.
en azından eklediğiniz resimdekinden farklı bir hata veriyordur.

 

[ERKAN YILMAZ]

= işareti mutlaka olmalı.
bunun dışında başka sorunlarınız var demekki.
en azından eklediğiniz resimdekinden farklı bir hata veriyordur.

Tamam çözdüm şimdi teşekkür ederim.