- Katılım
- 15 Mart 2005
- Mesajlar
- 42,770
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selam arkadaşlar,
Aşağıdaki kodda C ve D sütunlarını tanımlamak istiyorum fakat kodlar istediğim gibi çalışmıyor nerde hata yapıyorum.
A ve B sütunları için aşağıdaki kodu kullanıyorum doğru çalışıyor.
Private Sub CommandButton1_Click()
Static HATA As Integer
Dim KULLANICI As Long
On Error GoTo HATALI_GİRİÃ
With Sheets("USERS").Range("A1:A65536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Row
End With
If KULLANICI = 0 Then GoTo HATALI_GİRİÃ
If Sheets("USERS").Cells(KULLANICI, 2) <> TextBox2.Text Then GoTo HATALI_GİRİÃ
Sheets("USERS").Range("F1") = TextBox1.Value
Call TEMİZLE
LOGİN.Hide
MsgBox "Sisteme girişiniz onaylanmıştır.", vbInformation, "HOÃGELDİNİZ " & TextBox1.Value
Call MENÜ.Show
Exit Sub
HATALI_GİRİÃ:
MsgBox "Girdiğiniz kullanıcı adı veya parolası hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı adını ve parolasını kontrol ediniz.", vbCritical, "DİKKAT !"
Call TEMİZLE
HATA = HATA + 1
If HATA = 3 Then Application.Quit
End Sub
C ve D sütunu için aşağıdaki gibi değişiklik yapıyorum fakat doğru parola girmeme rağmen hata mesajına yönlendiriyor.
With Sheets("USERS").Range("C1:C65536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 3), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Row
End With
If KULLANICI = 0 Then GoTo HATALI_GİRİÃ
If Sheets("USERS").Cells(KULLANICI, 4) <> TextBox2.Text Then GoTo HATALI_GİRİÃ
....
Yardımlarınız için şimdiden teşekkür ederim.
Aşağıdaki kodda C ve D sütunlarını tanımlamak istiyorum fakat kodlar istediğim gibi çalışmıyor nerde hata yapıyorum.
A ve B sütunları için aşağıdaki kodu kullanıyorum doğru çalışıyor.
Private Sub CommandButton1_Click()
Static HATA As Integer
Dim KULLANICI As Long
On Error GoTo HATALI_GİRİÃ
With Sheets("USERS").Range("A1:A65536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Row
End With
If KULLANICI = 0 Then GoTo HATALI_GİRİÃ
If Sheets("USERS").Cells(KULLANICI, 2) <> TextBox2.Text Then GoTo HATALI_GİRİÃ
Sheets("USERS").Range("F1") = TextBox1.Value
Call TEMİZLE
LOGİN.Hide
MsgBox "Sisteme girişiniz onaylanmıştır.", vbInformation, "HOÃGELDİNİZ " & TextBox1.Value
Call MENÜ.Show
Exit Sub
HATALI_GİRİÃ:
MsgBox "Girdiğiniz kullanıcı adı veya parolası hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı adını ve parolasını kontrol ediniz.", vbCritical, "DİKKAT !"
Call TEMİZLE
HATA = HATA + 1
If HATA = 3 Then Application.Quit
End Sub
C ve D sütunu için aşağıdaki gibi değişiklik yapıyorum fakat doğru parola girmeme rağmen hata mesajına yönlendiriyor.
With Sheets("USERS").Range("C1:C65536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 3), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Row
End With
If KULLANICI = 0 Then GoTo HATALI_GİRİÃ
If Sheets("USERS").Cells(KULLANICI, 4) <> TextBox2.Text Then GoTo HATALI_GİRİÃ
....
Yardımlarınız için şimdiden teşekkür ederim.