filldown with formula

[Peruanos72]

Hello,

i have the following code and it works, however it does not filldown the
formula.
It fillsdown the result of the formula only. I need it to filldown the
formula from the
original activecell.

thanks in advance for any help.

Set c = ActiveCell
mc = Application.Count(Range(c.Offset(0, -1), c.Offset(0,
-1).End(xlDown)))
MsgBox mc
c.Offset(0, 0).Resize(mc) = c.Offset(0)

 

[Per Jessen]

Hello

Using FillDown, this should do it:

LastRow = ActiveCell.Offset(0, -1).End(xlDown).Row
Col = ActiveCell.Column
FormulaRow = ActiveCell.Row
Range(Cells(FormulaRow, Col), Cells(LastRow, Col)).FillDown

Regards,
Per

 

[Peruanos72]

Thanks Per Jessen. The code worked perfectly and is very clean.