[حل شده] مشکل در فرم ورود به فرم

[majidartoor]

با سلام و درود خدمت اساتید گرامی
و عرض خسته نباشید بابت زحمات بی وقفتون
بنده یه فرمم ورود کاربر دارم که شامل نام کاربری(textbox1) و رمز ورود(textbox2) می باشد.
تو شیت user ستون اول شامل نام کاربری و ستون دوم شامل رمز ورود می باشد.
اینم کدش :

   Dim c As Range
For Each c In Sheets("user").Range("a2:a5")
If c.Text = TextBox1.Text And c.Offset(0, 1).Text =TextBox2.Text Then
    
main.Show
   
Else
MsgBox ".نام کاربري و يا رمز عبور وارد شده صحيح نمي باشد", vbOKOnly, "توجه"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
Exit For
End If
Next

End Sub

ولی وقتی نام کاریری و رمز ورود رو وارد میکنم فقط اطلاعاتی که تو ردیف a2 وجود داره رو قبول میکنه،نمیدونم کجای حلقم اشتباست...!
ممنون میشم راهنماییم کنید.

[iranweld]

با سلام

کدها اصلاح شد در حلقه ای که شما تعریف کردید در صورتیکه اولین آیتم شیت user با تکست باکس ها برابر نباشد، پیغام اخطار نمایش داده میشود و برای دفعات بعدی هم همین حالت تکرار میگردد

Private Sub CommandButton1_Click()

Dim c As Range

Dim t As Boolean

t = False

For Each c In Sheets("user").Range("a2:a5")

If c.Text = TextBox1.Text And c.Offset(0, 1).Text = TextBox2.Text Then
    
main.Show

t = True

Exit For

End If

Next

If t = False Then

MsgBox "User or Password is incorrect", vbOKOnly, "Alert"

TextBox1.Text = ""

TextBox2.Text = ""

TextBox1.SetFocus

End If

End Sub 

[majidartoor]

خیلی ممنون،مشکلم حل شد.