VBA to transfer data from one workbook to another

[Robert_Conklin]

I have this particular piece of code that transfer data from a source workbook to a repository workbook. The problem that I am having is that it will not post the data to the bottom of the list. It overwrites the top rows of data. I have tried setting up tables on the destination workbook, but that did not work. All of the other code that transfers data between the two workbooks works perfectly and is set up the exact same way. Does anyone have any suggestions?

Below is the piece of code:

sLR = .Range("A" & Rows.Count).End(xlUp).Row dLR = dAE.Range("A" & Rows.Count).End(xlUp).Row + 1
.Range(.Cells(2, "E"), .Cells(sLR, "E")).Copy Destination:=dEXT.Range("A" & dLR)
.Range(.Cells(2, "C"), .Cells(sLR, "C")).Copy Destination:=dEXT.Range("B" & dLR)
.Range(.Cells(2, "G"), .Cells(sLR, "G")).Copy Destination:=dEXT.Range("C" & dLR)
.Range(.Cells(2, "J"), .Cells(sLR, "J")).Copy Destination:=dEXT.Range("D" & dLR)
.Range(.Cells(2, "T"), .Cells(sLR, "T")).Copy Destination:=dEXT.Range("E" & dLR)
.Range(.Cells(2, "K"), .Cells(sLR, "K")).Copy Destination:=dEXT.Range("F" & dLR)
.Range(.Cells(2, "U"), .Cells(sLR, "U")).Copy Destination:=dEXT.Range("G" & dLR)
.Range(.Cells(2, "V"), .Cells(sLR, "V")).Copy Destination:=dEXT.Range("H" & dLR)
.Range(.Cells(2, "H"), .Cells(sLR, "H")).Copy Destination:=dEXT.Range("I" & dLR)

 

[mumps]

Place the macro in a regular module in the "PLANT PARTS...." workbook. I didn't look at any other macro that was already there. I simply wrote a new one based on your request. Does that not work for you?

 

[Robert_Conklin]

No, the code does not transfer the data. The only data that transfers is the EXTEND data that I already had coded. If you will look at the code in the "mBASIC_4x4" module in the "PLANT PARTS MAINTENANCE V 2.7 (RAW DATA) workbook, you will see the code that transfers data from another worksheet to the same worksheets in the destination file. There should be a way to tie into the code that already exists to do the transfer from the "RAW DATA" tab as well.

On another note, the "RAW DATA" tab will be hidden from my end-users. This particular tab is only used by me and my team.

 

[mumps]

I'm sorry but it's difficult for me to follow what your macros are doing. The macro I suggested works as you requested on the two workbooks. You can simply add the code to an existing module and it should work provided that the "RAW DATA" sheet is the active sheet.

 

[Robert_Conklin]

Ok, I will play around with it. Thank you for your help! Since my team and I will be the only people using this particular worksheet and code, I will probably replace the code I have with the code you wrote.

Thanks again, and have a Happy New Year!!

 

[mumps]

You are very welcome. Thank you and the same to you.