Thread: Need Help with Code for Copy and Pasting between Workbooks
View Single Post
 
Old 03-09-2016, 01:23 PM
rsrasc rsrasc is offline Windows 10 Office 2013
Competent Performer
  
Join Date: Mar 2014
Location: Germany
Posts: 148
rsrasc is on a distinguished road
Default Need Help with Code for Copy and Pasting between Workbooks
Hi all,

I'm wondering if the below code can be re-written. I'm trying to copy and paste a range (multiple cells) from a workbook ("Text") to another workbook called "Template" but does not work for me and I can't figure it out.


Code:
Sub Macro5()
'
' Macro2 Macro
'

'
    Windows("Test.xls").Activate
    Range("A12:I12").Select
    Selection.Copy
    Windows("Template.xlsm").Activate
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C6").Select
End Sub

The purpose of my question is that I would like to copy multiple cells with the above "re-written" code or a new code so I can copy multiple cells like I did with the below code. The code shown below worked for me when copying and pasting from one sheet to another sheet in the same workbook.

Code:
Sheets("Interface").Range("C6,C10,C14,C18,C22,C26,C30,C34,C38,C42,C46,C50").Copy Destination:=Sheets("MyData").Range("B6")

Any help is appreciated.

Thanks,
Cheers!
Reply With Quote