For next döngüsü problemi

[Korhan Ayhan]

Selam arkadaşlar,

Aşağıdaki kodda bir yerde hata yapıyorum fakat çözemedim. Next kısmında hata veriyor. Farklı bir uygulamamı gerekir. Yardımlarınızı bekliyorum.

Option Explicit
Private Sub CommandButton1_Click()
Static HATA As Integer
Dim i As Integer, KULLANICI As Integer, PAROLA As Integer
On Error GoTo 10
If TextBox1 = "" And TextBox2 = "" Then
Exit Sub

For i = 1 To [C65536].End(xlUp).Row
KULLANICI = StrComp(Cells(i, 3).Value, TextBox1.Value, 0)
If KULLANICI = 0 Then
PAROLA = StrComp(Cells(i, 4).Value, TextBox2.Value, 0)
If PAROLA = 1 Then
Exit Sub
End If

TextBox1 = ""
TextBox2 = ""
LOGİN.Hide
MENÜ.Show
Exit Sub

10
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 !"
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
HATA = HATA + 1
If HATA = 3 Then ThisWorkbook.Close
Exit Sub
Next
End Sub

İyi çalışmalar dilerim. :hey:

 

[TheBest]

Hatanın Next ile ilgisi yok.
Kodları çalıştırıp denemedim, ama şöyle bir baktığımda hatanın sebebi açmış olduğun IF blokunu END IF ile kapamamanızdan kaynaklanıyor gibi görünüyor.

IF şartına yazdığınız kodlar ayni satırda ise END IF gerekmez, aksi takdirde gerekir.
Bu bloka ait kodları ya tek satıra yazın, yada END IF ile kapatın.

 

[Korhan Ayhan]

Verdiğiniz bilgiler için teşekkür ederim. Sorunumu hallettim. Tamamen bitirdikten sonra foruma örnek dosyayı ekleyeceğim.

İyi çalışmalar dilerim. :hey: