Textboxa Hücrelerden veri cekme Kullanıcı girişi

[murat14100]

iyi aksamlar arkadaslar benim bir sorum olacak arkadaslar ben formuma kullanıcı girişi yapıyorum daha doğrusu yapamıyorum kodlar diye sayfam var M de kullanıcı adı N de şifreler depolanıyor ben kullanıcı girisi yaparken M deki bütün satırları sorgulayacak ve N 'yi sorgulayacak eşleşirse ana sayfa acılacak tek hücrede sorgulama yaptırabiliyorum ama m deki bütün hücreleri sorgulatamıyorum lütfen yardım edin
not: kodlardaki admin ve 123456 direk admin şifrem bunla giriş yapabiliyorum




Private Sub CommandButton1_Click()

'Sheets(" kodlar").Activate

If TextBox2.Text = Sheets(" kodlar").Cells(2, "M").Value Or TextBox1.Value = "admin" Then

GoTo Kontrol2
Else
Unload Kullanici_girisi
MsgBox "Üzgünüm girdiğiniz kullanıcı adı hatalı.", vbCritical, "HATA"
'ActiveWorkbook.Close 0
Exit Sub
End If
Kontrol2:

If TextBox2.Text = Sheets(" kodlar").Cells(2, "M").Value Or TextBox2.Value = "123456" Then
MsgBox "Programa girişiniz onaylanmıştır.", vbInformation
Sheets("Sayfa1").Activate
Yukleniyor.Show
Unload Me
Application.Visible = True
Else
Unload Kullanici_girisi
MsgBox "Üzgünüm girdiğiniz parola hatalı.", vbCritical, "HATA"
'ActiveWorkbook.Close 0
Exit Sub
End If

End Sub

 

[Muzaffer Ali]

Merhaba.
Dosyanız ekte.
https://www.dosyaupload.com/juKY

 

[murat14100]

Araştırdım bulamamıştım Teşekkür ederim dalgalikur