beginnersproblem copy formulas to cells

  • Thread starter Thread starter Fam.Vink
  • Start date Start date
F

Fam.Vink

Hello, I want to copy several formulas in a row to the cells beneath them.
I'm using the following code
For i = 3 To 30 Step 3
intAantal = Range("A1").Value + 1
Range(Cells(2, i)).Copy
Range(Cells(3, i), Cells(intAantal, i)).Select
ActiveSheet.Paste
Next i

I get an error message at the line with the Copy text but I don't understand
what I'm doing wrong. Can someone help me out.
 
Hi Frank,

You are trying to use a single range as the argument to a range, not
necessary.

Try this instead

Cells(2,i).Copy

Also, to copy formulae, you need to pastespecial, like so

Range(Cells(3, i), Cells(intAantal, i)).PasteSpecial Paste:=xlFormulas

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Sorry Fred, I saw Fam Vink, put 2 and 2 together, and got 5! At least I got
the answer right<vbg>

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top