ขอทราบวิธีเขียน VBA ให้ไปเลือกเปิด SheetตามCell ที่เราระบุชื่อเอาไว้ค่ะ

[commongirl]

เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม 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

[bank9597]

เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม 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

[commongirl]

เดียร์อยากจะเปลี่ยนต้องตัวอักษรสีแดงให้ไปเปิดชีท หรือไฟล์ตาม 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

ขอบคุณมากเลยค่า แต่ยังไม่ได้ค่ะ ><
เดียอยากให้ตรง Sheets("Packing list_1").Select
ซึ่งคำว่า Packing list_1 ซึ่งเดียระบุชื่อไว้ที่ Cells(2, "V") เผื่อเวลาเดียอยากจะเลือกชีท Packing list_2 แทน ก็เปลี่ยนคำที่ Cells(2, "V") แล้วสามารถหาเลยค่ะ

[bank9597]

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

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

[commongirl]

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

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

เกือบได้แล้วค่ะ แต่ติดตรงนี้ พยายามปรับดูแล้วก็ยังทำไม่ได้ ต้องขอรบกวนอีกครั้งค่ะ ><

Code: Select all

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

[commongirl]

คุณ bank9597
เดียสามารถทำได้แล้วค่ะ ลองเปิดปิดใหม่ทั้งหมดค่ะ - -
ขอบพระคุณมากๆเลยนะคะ ^^