Kod içindeki sütun tanımını değiştirmek

[Korhan Ayhan]

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.

 

[Levent Menteşoğlu]

Sorunuzu bu şekilde cevaplamak zor görünüyor, dosyanızı eklermisiniz.

 

[Korhan Ayhan]

Selamlar,

Dosya ektedir. Yapmak istediğim kullanıcı isimleri C sütununda parolalarda D sütununda iken giriş kontrolü yaptırmak. Birşeyler denedim ama başarılı olamadım.

İyi çalışmalar dilerim.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:e8ea4565c2]Private Sub CommandButton1_Click()
Static HATA As Integer
Dim KULLANICI As Integer
On Error GoTo HATALI_GİRİÞ

With Sheets("USERS").Range("C1:C65536")
KULLANICI = .Find(What:=TextBox1.Value, After:=.Cells(1, 1), LookIn:=xlValues, LookAt _
:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase _
:=True, SearchFormat:=False).Row
End With

On Error GoTo HATALI_GİRİÞ
If KULLANICI = 0 Then GoTo HATALI_GİRİÞ
If Sheets("USERS").Cells(KULLANICI, 4) <> TextBox2.Text Then GoTo HATALI_GİRİÞ

Sheets("USERS").Range("E1") = TextBox1.Value
Call TEMİZLE
LOGİN.Hide
MsgBox "Sisteme girişiniz onaylanmıştır.", vbInformation, "HOÞGELDİNİZ " & Sheets("USERS").Range("E1")
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[/vb:1:e8ea4565c2]

 

[Korhan Ayhan]

Çok teşekkür ederim Sn. leventm,

Ben aşağıdaki bölümüde değiştirmiştim. Hatam bu bölümdeymiş.

After:=.Cells(1, 1)

:hey: