copy then paste to multiple ranges

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
 
J

john

see if this works for you:

myformula = Range("A1").Formula
Range("B1:B10,F12:F45").Formula = myformula
 
S

Susan

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top