Snasui Excel Forum

ต้องขอโทษที่หายไปนานครับ

จากโค้ดที่ผมเขียน

'Sheet1
x.Sheets("1.CB-BKE").Range("N14:Y14").Copy
y.Sheets("1.CB-BKE").Range("N14:Y14").PasteSpecial

อธิบาย คือ ให้ทำการ Copy Sheet "1.CB-BKE" ที่ "Range14" จากไฟล์ X ที่เป็นไฟล์ต้นทาง --> และ Paste ลงในไฟล์ Y ที่ Sheet "1.CB-BKE" ที่ "Range14" ที่เป ...

แนบไฟล์ตัวอย่างด้วยครับ พร้อมทำตัวอย่างคำตอบที่ต้องการมาดูด้วยครับ

ผมได้แนบไฟล์ตัวอย่างมาให้แล้วครับ ไฟล์ที่ต้องการจริง จะมีข้อมูลครบทุกช่องตามรหัส OP BD FA ตาม Sheet ย่อยที่ไม่ใช่ Sheet Consol ครับ

บ้างไฟล์ Range ที่ดึงมา ก็ไม่ได้เรียงติดกันครับ จะมีข้ามไปมาครับ ตัวเลขที่ผมใส่เป็นตัวแรกสมมุต ...

เนื่องจาก ผมต้องทำการ Copy ข้อมูล จากหลาย Range ในหนึ่ง Sheet และเป็นการ Copy จากหลาย Sheet ในไฟล์ เดียวกัน

ผมขออธิบายเป็น Code อย่างง่ายที่ผมเขียนน่ะครับ

Sub IT()

Dim x As Workbook
Dim y As Workbook

Application.ScreenUpdating = False
Application.DisplayAlerts = False

'IT
Set x = Workbooks ...

ต้องขอโทษจริงๆ ครับ ที่ไม่ได้โพส Code ให้เป็นรูปแบบ Code ตอนนี้ผมแก้ปัญหาโดยการเขียน Code ซ้ำหลายๆ รอบ แทนการเขียน loop แล้ว

รบกวนถ้าผมต้องการหาหนังสือมาอ่านเพิ่มเติม ท่านใดมีแนะนำหนังสือที่ละเอียดๆ ไหมครับ เผอิญผมมือใหม่จริงๆ

ขอบคุณครับ

รบกวนตรวจสอบสูตร vba สำหรับคัดลอก Sheet ไปยัง Workbook อื่น ให้ทีครับ

้คือผม ต้องการดึง Sheet สุดท้ายจาก workbook ของแต่ละสาขา ไปร่วมกันที่ workbook เดียว ซึ่งจากสูตรด้านล่าง ผลที่ได้ คือ Sheet ของทุกเอกสาร ถูกดึงมาหมด ไม่ทราบว่าจะไหนที่ผมต้องแก้ไขครับ

**Sheet สุดท้ายของแต่ละไฟล์จะชื่อว่า Sum-BKE ...