ดึกข้อมูลจากอีก sheet มาแสดงใน textbox

[piman]

สวัสดีครับ

ผมได้ทำการสร้าง ปุ่มสำหรับ กดเข้าไปที่ userform ไว้ที่ ชีท Program สองปุ่ม

1.ปุ่มสำหรับเพิ่มข้อมูล เมื่อกรอกข้อมูลเสร็จแล้ว กดปุ่มบันทึก จะบันทึกข้อมูลไปที่ ชีท Data (สามารถใช้งานได้)

2.ปุ่มสำหรับค้นหาและแก้ไข ใส่ชื่อเข้าไปในช่องค้นหา จะต้องดึงข้อมูลจากชีท Data มาแสดงใน textbox แต่ไม่มีข้อมูลใดๆมาแสดงครับ****

รบกวนด้วยครับ

ขอบคุณครับ

[snasui]

ช่วยยกตัวอย่างค่าที่ต้องการจะค้นหา Object ไหนเลือกหรือกรอกอะไรบ้าง สิ่งเหล่านี้จะต้องแจ้งมาเสมอ หากพบจะได้ค่าที่ Object ไหนเป็นอย่างไร จะได้เข้าถึงปัญหาโดยไวครับ

[piman]

ตัวอย่าง เช่น ผมจะทำการค้นหาคนชื่อ สมฤทัย ครับ พิมพ์ สมฤทัย ในช่องค้นหาข้อมูล จากนั้น กดปุ่มค้นหาจากชื่อ ถ้ามี ทั้งข้อมูลส่วนตัวและข้อมูลการทำงาน จะขึ้นแสดงในช่อง Textbox ต่างๆครบถ้วนครับ

หมายเหตุ : ก่อนหน้านี้ผมทำให้ปุ่ม กับ ข้อมูลตารางใน sheet "Data" อยู่ใน sheet เดียวกันครับ พอนำปุ่มแยก sheet ออกมาก็ไม่สามารถดึงข้อมูลมาได้ครับ

[snasui]

ผมลองหาชื่อสมฤทัยก็พบข้อมูลตามปกติครับ

[piman]

ผมลองแนบรูปมาให้ครับ ไม่มีข้อมูลใดๆมาเลยครับ

จะมีที่เปลี่ยนแปลงคือ active cell ครับ ไม่ว่าจะไปกดที่ช่องใดๆ พอกดปุ่มค้นหาจากชื่อ ตัว active cell จะมาอยู่ที่ช่อง A2 ของ sheet Program ครับ

[snasui]

เพิ่มการเลือกชีต Data เข้าไปตามด้านล่างครับ

Code: Select all

'Other code
    GoTo nNext
    End If
        Sheets("Data").Activate
        txtID.Value = Cells(nRow, 1)
'Other code

[piman]

ได้แล้วครับผม

ขอบคุณมากครับ