COPY & SORT

[P1649]

Code: Select all

Sub Clone()
    Dim Cbook As Workbook, CheckFile As Boolean
    Set Cbook = ThisWorkbook
    Cbook.Sheets(1).Range("C1:N700").Copy
    Cbook.Sheets(7).Range("A1:L700").Offset(0, 0).PasteSpecial xlPasteValues
    ThisWorkbook("Sheet7").Range("B1:L700").Sort _
        Key1:=ThisWorkbook("Sheet7").Columns("B"), _
        Order1:=xlDescending, Header:=xlYes
        'Order1:=xlAscending, Header:=xlYes
    
End Sub

ต้องการ copy จากsheet1 ไปงานบนsheet7 จากนั้นให้ Sort data แต่มีปัญหาตามรูปครับ

[snasui]

ลองแนบไฟล์ตัวอย่างมาด้วย โดยแนบเฉพาะ Code ที่ติดปัญหามาก็พอครับ

[P1649]

แก้ไขใหม่ใช้ได้แล้วครับ

Code: Select all

Sub Clone()

    Workbooks("final.xlsm").Worksheets("Sheet1").Range("C1:N630").Copy
    Sheets(7).Activate
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Workbooks("final.xlsm").Worksheets("sheet7").Range("B1:L630").Sort _
        Key1:=Workbooks("final.xlsm").Worksheets("sheet7").Columns("B"), _
        Order1:=xlDescending, Header:=xlYes
    'Order1:=xlAscending, Header:=xlYes

End Sub