ดึงข้อมูลจากอีก sheet มาใส่ใน textbox ครับ

[piman]

ผมต้องการดึงข้อมูล รหัสพนักงาน มาใส่ใน txtID โดย มีช่อง txtSerch ในการใส่คำค้นหา ใช้ชื่อจริงในการค้นหา แล้วกดปุ่มค้นหาครับ
ลองแล้วไม่มีค่าใดๆ มาเลยครับ ขอบคุณครับ

Code: Select all

Private Sub butName_Click()
Dim i As Long, LastRow As Long
LastRow = Sheets("Data").Range("D" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
If Sheets("Data").Range("D" & i).Value = (Me.txtSerch) Then
Me.txtID = Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1
End If
Next i
End Sub

[snasui]

แนบไฟล์ที่มี Code นี้มาด้วยจะได้ช่วยทดสอบให้ได้ครับ