beginnersproblem copying 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.
 
Fam,

Change

Range(Cells(2, i)).Copy

to

Cells(2, i).Copy

Range() can take two range objects separated by a comma, but not a single
range object.

You could also rewrite it:

Range(Cells(2, i).Address).Copy

HTH,
Bernie
MS Excel MVP
 
Back
Top