Snasui Excel Forum

Code: Select all

Sub Macro2()
Dim wb As Workbook
Dim ws As Worksheet

    Set wb = Workbooks.Open(Filename:= _
        "path และชื่อไฟล์ที่ต้องการนำข้อมูลไปวาง")
    Set ws = wb.Worksheets(3) '-----ชีทที่ต้องการนำข้อมูลไปวาง
    With ws
    
        nextrow = .Cells(.Rows.Count, "D").End(xlUp).Row + 1   '-----------กำหนดคอลัมที่ต้องการให้โปรแกรมหาบันทัดสุดท้ายและนำค่าไปวางในบันทัดถัดไป
    End With
    
    With Workbooks("Test.xlsm").Worksheets '-----------------ชื่อไฟล์ที่มีข้อมูลตั้งต้น
    
        Worksheets("Plan1").Range("X1:AB1").Copy   '-----------------ชื่อชีทที่มีข้อมูลตั้งต้น
        ws.Cells(nextrow, "A").PasteSpecial Paste:=xlPasteValues    '-----------------เซลที่จะวางข้อมูล
        Worksheets("Plan2").Range("C56").Copy
        ws.Cells(nextrow, "D").PasteSpecial Paste:=xlPasteValues
        
End With
    
    wb.Save
    wb.Close
        
    Set ws = Nothing
    Set wb = Nothing
End Sub