EXCEL VBA 尝试将数据从一个工作表上的非连续单元格复制到单独工作表上的下一个可用行

Question

I am very new to all this and have been taking bits from here and there on various excel websites and have managed to get most of what i need working macro-wise. But this one has me stumped..

I have an order from on a worksheet labeled "Order Form" that is filled in by my colleagues for each new order, i need them to be able to click a button and then all the data they have filled in will be copied to another worksheet labeled "Orders". I have managed to get the data copied but the best i could get was the data pasted into the exact same cells on the "Orders" worksheet.

Heres what i have code wise this works for copying...

Dim copyRng As Range, cel As Range, _
    pasteRng As Range

Set copyRng = ThisWorkbook.Sheets("Order Form").Range("B3,F3,C10,C11,C12,C13,C14,C15,D21,D22,D23,D24,D25,D26,D27,D28,D29,D30,D31,D32,D33,D34,E48,D36,G10,C40,G40")
Set pasteRng = ThisWorkbook.Sheets("Orders").Range("A2") 

What i need is to paste the data that is copied above into the next blank row on the "orders" worksheet. I know that code is very messy and is probably overkill for copying those cells and its probably really simple to do but i cannot work it out... Please someone help its doing my head in lol

Answer 1

You can't copy and paste multiple selections. Quick and easy solution is to do one cell at a time.

Dim pasterange As Long
pasterange = ThisWorkbook.Sheets("Orders").Range("A" & Rows.Count).End(xlUp).Row + 1 ' the plus 1 is to get the next blank row

ThisWorkbook.Sheets("Order Form").Range("B3").Copy Destination:=ThisWorkbook.Sheets("Orders").Range("A" & pasterange)
ThisWorkbook.Sheets("Order Form").Range("F3").Copy Destination:=ThisWorkbook.Sheets("Orders").Range("B" & pasterange)
ThisWorkbook.Sheets("Order Form").Range("C10").Copy Destination:=ThisWorkbook.Sheets("Orders").Range("C" & pasterange)

I would just copy and paste that down and add the additional cells you need copied and continue the A,B,C, etc in the destination portion.