copy then paste to multiple ranges

  • Thread starter Thread starter MJKelly
  • Start date Start date
M

MJKelly

Hi,

I use the code below to copy formulas to additional cells. However, i
want to paste the copied formulas into multiple ranges instead of copy/
paste copy/paste etc. Can this be done?

Range("A1").copy Range("B1:B10")

I thought something like this but it doesnt work...

Range("A1").copy Range("B1:B10"), Range("F12:F45")


Any ideas?

Kind regards,
Matt
 
see if this works for you:

myformula = Range("A1").Formula
Range("B1:B10,F12:F45").Formula = myformula
 
this probably isn't what you want, but............. once you have it
copied, you can paste it multiple times........
'=====================
Sub multiple_paste()

ActiveSheet.Range("b2").Copy

ActiveSheet.Range("b4").PasteSpecial xlPasteAll
ActiveSheet.Range("b8").PasteSpecial xlPasteAll
ActiveSheet.Range("b10").PasteSpecial xlPasteAll

Application.CutCopyMode = False

End Sub
'======================
hope it helps!
:)
susan
 
Back
Top