Copy two separate ranges from another workbook

NoSparks · #3 06-03-2018, 08:43 AM

Couple of options...
easiest to understand is copy and paste as values

Code:

range1.Copy
  yourdestinationsheet.Range("A2").PasteSpecial (xlPasteValues)

more difficult to understand is to use an array

Code:

arr = range1.value
  yourdestinationsheet.Range("A2").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

If you put the formula that's wanted into H2 and make it the active cell,
then go to the Immediate window, Ctrl + g, from the VBE, type in
? activecell.formulaR1C1
hit enter and you will see what Excel sees as being the formula in that cell
include H2 in the autofill range

Code:

  Range("H2").FormulaR1C1 = "=xxx"
  Range("H2").AutoFill Destination:=Range("H2:H" & lastrow)

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Copy data as well as formatting from one workbook to another.	LearnerExcel	Excel	1	03-10-2018 01:35 PM
Copy from one workbook to another	MartinExcel11	Excel Programming	1	03-28-2017 09:49 AM
Take String of numbers, expand ranges, sort, then compress back into ranges	AustinBrister	Word VBA	19	08-22-2016 05:18 PM
How to make a shared workbook and allow user to edit ranges	prdecina	Excel	1	07-25-2016 11:42 PM
Storing and retreiving text from a separate workbook	Benjamin92	Excel Programming	4	03-08-2015 04:20 PM