Adding info from two tabs, to a third one using a macro Excel 2010

Hi
I am trying to add data from two tabs, to a third one, using a macro. Can someone tell me how to go about this please?
I color coordinated things. So everything in the report tab that has a yellow legend comes from the Order summary tab.
Everything in the report tab that has a red heading comes from the order details tab.
I also coordinate the columns too.
Can you help please?
Thank you.

I believe this is a start on what you want to achieve but believe it still needs some work. This adds the data to the next line on the Report worksheet. But it only adds the first item of info from the item Details page.

I think you need to be able to add data for each item of the detail? If so, the code likely needs to be modified further to add all of the detail first, then copy down the customer summary info for each line of detail.

Please Login or Register  to view this content.

Correct, I need to be able to add data for each item of the detail. Also need to paste the info from Order details called "product name" on to column R on the report tab, please and thank you.

This will add all 10 items in your detail.

But will you always have 10 items? What if you have more then 10 items?

Please Login or Register  to view this content.

Almost there..the only issue that it has is, when you put the cursor on the next available blank row. And press the macro button again, to add something else, it skips a row. Can you make it so it doesnt skip a row, and it add something on the next available blank row?

Originally Posted by celeazul

Almost there..the only issue that it has is, when you put the cursor on the next available blank row. And press the macro button again, to add something else, it skips a row. Can you make it so it doesnt skip a row, and it add something on the next available blank row?

Not sure what you are seeing. I am not seeing an extra blank or skipped row.

Your using Excel Table formatting as well. So it adds a row to the end of the table range/rows.

Do you want it add an extra blank row between each order?

Lets say i press the "add to report" button, it adds the info, which is good.
But lets say you go to the last column on the right. And press enter on your keyboard.
And go back to the next available row, on column A.
And you press the "add to report" button again, because you want to add say another order.
It skips a row. And instead of if it typing and replicating the info on row 16 it starts on row 17.
I prefer it starts on row 16. So it doesnt skips rows, you know what i mean?

Are you using the file I posted? I believe I follow what you are saying, but I do not see that behavior occurring.

but remember. the code is addding all 10 items from the detail, even it they item is 'blank'. There is no current checks if only 8 items were added, etc.

Yes I am using the file you attached. If you open it, you'll see what I mean. If you click on the add to report" button, it adds it correctly.
But if you click on it again, then it skips a row.
Its not supposed to skip a row.

You mean it should be this correct?

Sub AddToReport()
Dim i As Long, NextRow As Long
Dim NextAmount As Long, NextDescription As Long

'Get Next/Last Row
NextRow = Sheets("Report").Cells(Cells.Rows.Count, "C").End(xlUp).Row

NextRow = Sheets("Report").Range("C:C").Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row
'NextRow = Sheets("Report").Cells(Cells.Rows.Count, "C").End(xlUp).Row

NextAmount = 19
NextDescription = 21

For i = 1 To 10
'Copy Order Details to Report
'Row Offset to next item

Sheets("Report").Range("R" & NextRow + i) = Sheets("Order Details").Range("B" & NextAmount) 'Prod Name
Sheets("Report").Range("Q" & NextRow + i) = Sheets("Order Details").Range("C" & NextAmount) 'Item Num
Sheets("Report").Range("F" & NextRow + i) = Sheets("Order Details").Range("D" & NextAmount) 'Amount

Sheets("Report").Range("H" & NextRow + i) = Sheets("Order Details").Range("D" & NextDescription) 'Quantity
Sheets("Report").Range("S" & NextRow + i) = Sheets("Order Details").Range("B" & NextDescription) 'Item Description

'Copy Order Summary Data to each line of Detail Added
Sheets("Report").Range("A" & NextRow + i) = Sheets("Order Summary").Range("C7") 'Consultant
Sheets("Report").Range("C" & NextRow + i) = Sheets("Order Summary").Range("C17") 'Code
Sheets("Report").Range("D" & NextRow + i) = Sheets("Order Summary").Range("D17") 'Client

NextAmount = NextAmount + 8
NextDescription = NextDescription + 8
Next i
End Sub

I added the reputation. Thanks to both ptmuldoon and skywriter. You are the best!!!