Copying data from one workbook to the last row or another

[Vbanoob98]

Hi everyone,

Here is the code I have so far:

Sub ValuePaste()
Dim loLastRow As Long

ThisWorbook.ActiveSheet.Range("E9").Copy

With Workbooks("test.xlsx").Worksheets("test")
loLastRow=.Cells(Rows.Count,3).End(xlUp).Row + 1
.Range("C & loLastRow).Paste.Special Paste:=xlPasteValues
EndWith

End Sub

What I want to add is a way to copy and paste more than one cell to another column
Like E11 to D, E14 to F, etc


I think it should be easy but Im having a hard time figuring out

Can anyone help?

Thanks in advance!

 

[steve the fish]

Hi. Just copy the additional cells eg

Range("E9:F9").Copy

Plus your paste line is a bit wrong. Try:

.Range("C" & loLastRow).PasteSpecial xlPasteValues

 

[Vbanoob98]

I'm trying to copy E1, E2, E3,etc to a new same line in another workbook

E1 goes in A2, E2 goes in B2, etc

But they all have to go in the same line. Is this possible?

Thanks for your help!

 

[steve the fish]

Try the paste special like this:

.Range("C" & loLastRow).PasteSpecial Paste:=xlPasteValues, Transpose:=True

 

[Vbanoob98]

Thanks a lot!

One more thing, how can I sum a range?

Like sum((e1:e2)+ (e4:e7)) and then pass that to the other worksheet

 

[LlebKcir]

fastest way is to perform the sum as you have listed above, than link that cell to the other worksheet or workbook even.

 

[Vbanoob98]

Yeah sadly I can't edit the source data, so I have to do the calculation in vba. It seems that will be tough