Snasui Excel Forum

commongirl wrote:เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets("Packing list_1").Select
2.ตรง Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate

Code: Select all

Sub Macro7()
        Range("D10:q23").Copy
        
        Workbooks.Open Filename:=Cells(2, "X")
        Sheets("Packing list_1").Select
        
        Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate
        Range("D19").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
End Sub

Public Sub CopyPaste()
        
    Range("D10:q23").Copy
        
    Workbooks.Open Filename:=Cells(2, "X")
    
    ActiveWorkbook.Sheets("Packing list_1").Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

bank9597 wrote:

commongirl wrote:เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม cell นั้นๆค่ะ
รบกวนหน่อยนะคะ
พยายามลองปรับเองแล้วทำไม่ได้ซักทีค่ะ ><
1.ตรง Sheets("Packing list_1").Select
2.ตรง Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate

Code: Select all

Sub Macro7()
        Range("D10:q23").Copy
        
        Workbooks.Open Filename:=Cells(2, "X")
        Sheets("Packing list_1").Select
        
        Windows("Export INVPL_Sea BILBAO SPAIN LC 4515000509 X04 1cont.xlsm").Activate
        Range("D19").Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
       
End Sub

ลองปรับโค๊ดตามนี้ครับ

Code: Select all

Public Sub CopyPaste()
        
    Range("D10:q23").Copy
        
    Workbooks.Open Filename:=Cells(2, "X")
    
    ActiveWorkbook.Sheets("Packing list_1").Range("D19").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

End Sub

bank9597 wrote:ผมไม่เห็นไฟล์ตัวอย่าง ยังไงลองปรับเอาจากตัวอย่างโค๊ดนี้ดูครับ

Code: Select all

Public Sub CopyPaste()
    
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim strWbName As String
    Dim strShName As String
    Dim strPath As String
    
    Set wb1 = ThisWorkbook
    
    wb1.Sheets(1).Range("A2:A10").Copy
    strWbName = wb1.Sheets(1).Range("B2")
    strShName = wb1.Sheets(1).Range("C2")
    strPath = "C:\Users\Kwan\Desktop\" & strWbName & ".xlsx"
        
    Workbooks.Open Filename:=strPath
    
    ActiveWorkbook.Sheets(strShName).Range("A1").PasteSpecial xlPasteValues
    

End Sub

Option Explicit
Public Sub CopyPaste()
    
    Dim wb1 As Workbook
    Dim wb2 As Workbook
    Dim strWbName As String
    Dim strShName As String
    Dim strPath As String
    
    Set wb1 = ThisWorkbook
    
    wb1.Sheets(2).Range("D10:Q23").Copy
    strWbName = wb1.Sheets(2).Range("U4")
    strShName = wb1.Sheets(2).Range("V2")
    strPath = "C:\Users\h390260\Desktop\Draft invoice\13May\05\" & strWbName & ".xlsm"
        
    Workbooks.Open Filename:=strPath
    
    ActiveWorkbook.Sheets(strShName).Range("D19").PasteSpecial xlPasteValues
    
End Sub