ต้องการ Copy cells จากชีทที่ถูกซ้อน ไปอีกชีท โดยใช้ VBA

[kio2002]

เรียนสมาชิกทุกท่านครับ
ผมต้องการ Copy cells จากชีทที่ถูกซ้อน ไปอีกชีท โดยใช้ VBA ครับ
ซึ่งข้อมูลต้นทางอยู่ Sheet2 และจะ copy ข้อมูลจากsheet2 ไปยังsheet1
โดยที่sheet2 จะถูกซ้อนไว้ครับ
ผมได้เขียน code VBA ไว้ตามนี้ครับ แต่มันใช้กับกรณีที่Sheet2ถูกซ้อนไม่ได้ครับ
จึงรบกวนสมาชิกทุกท่านช่วยแนะนำปรับ code ให้หน่อยครับ

Code: Select all

Sub สี่เหลี่ยมผืนผ้า1_Click()
        Sheets("sheet2").Select
        Cells.Select
        Selection.Copy
        Sheets("sheet1").Select
        Cells.Select
        ActiveSheet.Paste
End Sub

ผมได้แนบไฟล์ตัวอย่างมาให้ด้วยนะครับ
ขอบคุณครับ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub สี่เหลี่ยมผืนผ้า1_Click()
    Sheets("Sheet2").UsedRange.Copy Sheets("Sheet1").Range("a1")
End Sub

ความหมายคือให้คัดลอก Sheet2 เฉพาะพื้นที่ที่ใช้งานจริงไปวางที่ Sheet1 เซลล์ A1

[kio2002]

ตัวอย่าง Code ครับ

Code: Select all

Sub สี่เหลี่ยมผืนผ้า1_Click()
    Sheets("Sheet2").UsedRange.Copy Sheets("Sheet1").Range("a1")
End Sub

ความหมายคือให้คัดลอก Sheet2 เฉพาะพื้นที่ที่ใช้งานจริงไปวางที่ Sheet1 เซลล์ A1

ขอบคุณครับ ท่านอาจารย์ snasui ผมทดลองแล้วใช้ได้ครับ
แต่เวลา Copy มาแล้ว Column หรือ row ไม่ปรับขนาด column หรือ row ตามต้นฉบับ
ผมเลยเปลี่ยนจาก UsedRange เป็น Cells แทนครับ ก็ใช้ได้ตามที่ผมต้องการครับ
เดี๋ยวจะลองเอาไปปรับใช้จริงครับ หากติดตรงไหนจะมาสอบถามอีกที ขอบคุณมากครับ