โค้ด Search ไม่ค้นหาให้ค่ะ

[thinatda]

โค้ด Search เวลากดไม่ค้นหาให้ค่ะ
ฟร์อม ชื่อ ของเหลวค่ะ ต้องการค้นหาข้อมูลจาก sheet6 ค่ะ

Code: Select all

cmdAdd.Enabled = False
Dim X As Long
Dim Y As Long
X = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
For Y = 6 To X
If Sheet6.Cells(Y, 2).Value = TextBox1.Text Then
If Sheet6.Cells(Y, 7).Value = TextBox2.Text Then
TextBox3 = Sheet6.Cells(Y, 1).Value
Tllist = Sheet6.Cells(Y, 2).Value
TMolcular = Sheet6.Cells(Y, 3).Value
ComGrade = Sheet6.Cells(Y, 4).Value
TPurity = Sheet6.Cells(Y, 5).Value
TCasNo = Sheet6.Cells(Y, 6).Value
TBottle = Sheet6.Cells(Y, 7).Value
TLot = Sheet6.Cells(Y, 8).Value
ComCompany = Sheet6.Cells(Y, 9).Value
TSize = Sheet6.Cells(Y, 10).Value
TTemperature = Sheet6.Cells(Y, 11).Value
TInputday = Sheet6.Cells(Y, 12).Value
TOutputday = Sheet6.Cells(Y, 13).Value
TExpire = Sheet6.Cells(Y, 14).Value
TStatus = Sheet6.Cells(Y, 15).Value
ComType = Sheet6.Cells(Y, 16).Value
TCoa = Sheet6.Cells(Y, 17).Value
cmdUpdate.Visible = True
Me.cmdDelete.Visible = True
Comopen.Visible = True
End If
End If
Next Y

[snasui]

จาก Code นี้

Code: Select all

X = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
For Y = 6 To X

หากค่า X น้อยกว่าค่า Y ย่อมจะไม่มีการดำเนินการใด ๆ เกิดขึ้นใน For...Next ครับ

[thinatda]

จาก Code นี้

Code: Select all

X = Sheet6.Range("A" & Rows.Count).End(xlUp).Row
For Y = 6 To X

หากค่า X น้อยกว่าค่า Y ย่อมจะไม่มีการดำเนินการใด ๆ เกิดขึ้นใน For...Next ครับ

ลองเปลี่ยนแล้วค่ะแต่ยังไม่ได้

Code: Select all

X = Sheet8.Range("A" & Rows.Count).End(xlUp).Row
For Y = 17 To X

[snasui]

กรุณาตรวจสอบว่าค่า X เป็นค่าใด ค่า Y เป็นค่าใดครับ

ตราบใดที่ Y มากกว่า X หรือ X น้อยกว่า Y ย่อมจะไม่เกิดการ Loop ตลอดกาลไม่ว่าจะเปลี่ยนทั้งสองตัวแปรเป็นตัวเลขใดก็ตาม

[thinatda]

กรุณาตรวจสอบว่าค่า X เป็นค่าใด ค่า Y เป็นค่าใดครับ

ตราบใดที่ Y มากกว่า X หรือ X น้อยกว่า Y ย่อมจะไม่เกิดการ Loop ตลอดกาลไม่ว่าจะเปลี่ยนทั้งสองตัวแปรเป็นตัวเลขใดก็ตาม

ขอบคุณค่ะ แก้ได้แล้วค่ะ