Snasui Excel Forum

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

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

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

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

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

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

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

[code]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]
และ
[code]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[/code]