การรวม CODE VBA

[sakajohn]

ผมต้องการ รวม 2 code ให้สามารถทำได้ในขั้นตอนเดียวครับ
codeที่1 ทำการ copy cell AD10ถึงAN10 ไปวางที่ book2

Code: Select all

Application.Goto Reference:="OFFSET(R10C30,0,0,1,11)"
   Selection.Copy
    Workbooks("Book2.xlsx").Activate
      Sheets("Sheet1").Select
    Application.Goto Reference:="OFFSET(R1C1,COUNTA(C1),0)"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
     ActiveWorkbook.Save

code 2 ทำการ copy cell BQ10ถึงBR10 ไปวางที่ cell AMกับ AN

Code: Select all

 ThisWorkbook.Activate
   Application.Goto Reference:="OFFSET(R10C30,0,39,1,2)"
   Selection.Copy
    Workbooks("Book2.xlsx").Activate
    Sheets("Sheet1").Select
    ThisWorkbook.Activate
     Application.Goto Reference:= _
        "OFFSET('[Book2.xlsx]Sheet1'!R1C1,MATCH(R10C30,INDEX('[Book2.xlsx]Sheet1'!R2C1:R50000C1,0),0),38)"
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

*** ผมต้องการสั่งให้ copy cell AD10ถึงAN10 และ cell BQ10ถึงBR10 พร้อมกันและไปวางตาม cell ที่กำหนดไว้ในขั้นตอนเดียวเลยโดยไม่ต้องเขียน code สั่งให้ทำ 2 ครั้ง ได้มั้ยครับ

[parakorn]

นำ Code ทั้ง 2 Code มาต่อกัน แล้วแก้ตรงบรรทัดแรกของ Code ที่2
จาก ThisWorkbook.Activate เป็น Location ที่ต้องการครับ
เช่น
Workbooks("Book1.xlsx").Activate
Sheets("Sheet1").Select