Page 1 of 1
COPY & SORT
Posted: Tue Jun 25, 2013 10:08 pm
by 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 แต่มีปัญหาตามรูปครับ
Re: COPY & SORT
Posted: Tue Jun 25, 2013 10:24 pm
by snasui
![Very Happy :D](./images/smilies/icon_e_biggrin.gif)
ลองแนบไฟล์ตัวอย่างมาด้วย โดยแนบเฉพาะ Code ที่ติดปัญหามาก็พอครับ
Re: COPY & SORT
Posted: Wed Jun 26, 2013 9:05 pm
by 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