şifre girişi

[ali_babayigit]

merbaha arkadaşlar
şifre giriş sayfa yaptım ama bir türlü çalıştıramadım.
nerde hata yapıyorum yardım olursanız sevinirim.

 

[Huseyinkis]

merbaha arkadaşlar
şifre giriş sayfa yaptım ama bir türlü çalıştıramadım.
nerde hata yapıyorum yardım olursanız sevinirim.

kodları ekteki ile değiştirip denermisiniz.

Private Sub CommandButton1_Click()
Dim i, say, s As Byte
If TextBox1.Text = "" And TextBox2.Text = "" Then
MsgBox "Kullanıcı Adı veya Şifrenizi Girmediniz", vbExclamation, "Dikkat"
Exit Sub
End If
say = 0
s = 0

kisi = WorksheetFunction.CountIf(Sheets("Kullanıcı").Range("B1:B" & Sheets("Kullanıcı").Range("A65000").End(3).Row), TextBox1)

If kisi <= 0 Then
MsgBox "kulanıcı kayıtşı değil"
Exit Sub
End If

For i = 2 To Sheets("Kullanıcı").Range("A65000").End(3).Row
If Sheets("Kullanıcı").Range("B" & i).Value = TextBox1.Text And Sheets("kullanıcı").Range("H" & i).Value = TextBox2.Text Then
Sheets("Kullanıcı").Range("I" & i).Value = 1
s = s + 1
End If
Next i

If s > 0 Then
Sheets("Kullanıcı").Cells(1, 250).Value = 0
menü.Show
Unload Me
Else
Sheets("Kullanıcı").Cells(1, 250).Value = Sheets("Kullanıcı").Cells(1, 250).Value + 1
If Sheets("Kullanıcı").Cells(1, 250).Value >= 3 Then
MsgBox "3 denemede doğru giriş yapamadınız, Çalışma kapatılacaktır."
Sheets("Kullanıcı").Cells(1, 250).Value = 0
ActiveWorkbook.Save
ActiveWorkbook.Close
Else
TextBox1.Text = ""
TextBox2.Text = ""
MsgBox "Kullanıcı Adı veya Şifrenizi Yanlış Girdiniz Kalan Deneme Şansınız " & 3 - Sheets("Kullanıcı").Cells(1, 250).Value & " ", vbInformation, "Yanlış Bilgi Girişi"
End If
End If
End Sub

 

[ali_babayigit]

Hüseyinkis Önce ilgin için sağol
iş yarinde olduğum için biraz geç bakabildim
formu girdim ama
aşağıdaki satırda hata veriyor

For i = 2 To Sheets("Kullanıcı").Range("A65000").End(xIUp).Row

 

[Huseyinkis]

Hüseyinkis Önce ilgin için sağol
iş yarinde olduğum için biraz geç bakabildim
formu girdim ama
aşağıdaki satırda hata veriyor

For i = 2 To Sheets("Kullanıcı").Range("A65000").End(xIUp).Row

Benim verdiğim kodlar arasında yukardaki kod yok. sizin yazdığınız kodları baştan düzenleme yapmıştım.

siz kodu bu şekilde değiştirin.

For i = 2 to Sheets("Kullanıcı").Range("A65000").End(3).Row

 

[333666]

Hüseyinkis Önce ilgin için sağol
iş yarinde olduğum için biraz geç bakabildim
formu girdim ama
aşağıdaki satırda hata veriyor

For i = 2 To Sheets("Kullanıcı").Range("A65000").End(xIUp).Row

Hüseyinkis Önce ilgin için sağol
iş yarinde olduğum için biraz geç bakabildim
formu girdim ama
aşağıdaki satırda hata veriyor

For i = 2 To Sheets("Kullanıcı").Range("A65000").End(xIUp).Row

for i = 2 to 500
Sheets("Kullanıcı").Range("A65000").End(xIUp).Row
olarak değiştirip denermisin.

Bu arada Kullanıcı isimli Sheetiniz Çalışma sayfanız mevcut mu?

 

[Huseyinkis]

for i = 2 to 500
Sheets("Kullanıcı").Range("A65000").End(xIUp).Row
olarak değiştirip denermisin.

Bu arada Kullanıcı isimli Sheetiniz Çalışma sayfanız mevcut mu?

Sayın 333666 vermiş olduğunuz kod ne işe yarıyor?

 

[ali_babayigit]

sayın hüseyin kis öncelikle size ilginiz için teşekür ederim
dün iş yeri yoğundu o yüzden size dönemedim kusura bakma
akşam sisin gönderdiğiniz kodları yazdım ama yine hata veliyor
şifre değiştirme sayfasıda çalışmıyor
sizden rica etsem teklar baka bilirmiziniz

 

[Huseyinkis]

sayın hüseyin kis öncelikle size ilginiz için teşekür ederim
dün iş yeri yoğundu o yüzden size dönemedim kusura bakma
akşam sisin gönderdiğiniz kodları yazdım ama yine hata veliyor
şifre değiştirme sayfasıda çalışmıyor
sizden rica etsem teklar baka bilirmiziniz

excel gizlemeyi iptal ettim dosyanız bittikten sonra aktif edersiniz.

İ harfinde problem vardı dosyada bazı yerlerde küçük i harfini büyük İ olarak yazmışsınız.

 

[ali_babayigit]

Hüseyinki çok sağolun teşekür ederim