ต้องการให้ Code VBA copy file พร้อมกันหลายชีทค่ะ

[suka]

เรียนอาจารย์และท่านผู้รู้ค่ะ

ต้องการรวมโค๊ดสองชุดด้านล่างนี้ให้เหลือเป็นโค๊ดเดียวค่ะ ไฟล์แนบไฟล์ Form ชีท Copy มีปุ่ม Copy FG และ Copy RM
ความต้องการเมื่อกดก๊อบปี้แล้วให้นำข้อมูลชีท RM ไฟล์ RM_FG มาวางที่ชีท RM ไฟล์ Form
และนำข้อมูล ชีท FG ไฟล์ RM_FG มาวางที่ชีท FG ไฟล์ Form ค่ะ ขอบคุณค่ะ

Code: Select all

Sub CopyFG()
        Dim formBook As Workbook
        Dim wiShare As Workbook
        Set formBook = ThisWorkbook
        Set wiShare = Workbooks("RM_FG.xlsx")
                wiShare.Worksheets("FG").Activate
                Cells.Select
                Selection.Copy
                formBook.Worksheets("FG").Activate
                Cells.Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
                ActiveWorkbook.Save
End Sub

และ

Code: Select all

Sub CopyRM()
        Dim formBook As Workbook
        Dim wiShare As Workbook
        Set formBook = ThisWorkbook
        Set wiShare = Workbooks("RM_FG.xlsx")
                wiShare.Worksheets("RM").Activate
                Cells.Select
                Selection.Copy
                formBook.Worksheets("RM").Activate
                Cells.Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
                ActiveWorkbook.Save
End Sub

[snasui]

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

[suka]

อาจารย์คะ ลองเรียกใช้ Call CopyFG แล้ว มีแถบระบายสีเหลืองตามรูปไม่ทราบต้องปรับอย่างใดค่ะ

[suka]

ขออภัยค่ะอาจารย์ ได้แล้วค่ะ ที่ไม่ได้เพราะลืมเปิด ไฟล์ RM_FG ค่ะ