Self creating formulas

[antonov]

Hello everybody:
is it possible to have a macro or whatever to "replicate" the formulas in
the next row so that I have the formulas only in the cells I am actually
going to use and not on all the empty rows?

[Tom Ogilvy]

Dim rng as Range
ActiveCell.EntireRow.FillDown
On error resume Next
set rng = ActiveCell.EntireRow.SpecialCells(xlConstants)
On Error goto 0
if not rng is nothing then
rng.ClearContents
End if

--
Regards,
Tom Ogilvy


"antonov" <[email protected]> wrote in message
news:[email protected]...
> Hello everybody:
> is it possible to have a macro or whatever to "replicate" the formulas in
> the next row so that I have the formulas only in the cells I am actually
> going to use and not on all the empty rows?
>
>

[antonov]

Tom, thanks for the hint...
I've created a macro with the code you gave but when I run it it cancels all
formulas from the first row (the first row contains 54 cells, 16 of which
with formulas)
"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> Dim rng as Range
> ActiveCell.EntireRow.FillDown
> On error resume Next
> set rng = ActiveCell.EntireRow.SpecialCells(xlConstants)
> On Error goto 0
> if not rng is nothing then
> rng.ClearContents
> End if
>
> --
> Regards,
> Tom Ogilvy
>
>
> "antonov" <[email protected]> wrote in message
> news:[email protected]...
>> Hello everybody:
>> is it possible to have a macro or whatever to "replicate" the formulas in
>> the next row so that I have the formulas only in the cells I am actually
>> going to use and not on all the empty rows?
>>
>>
>
>

[antonov]

Tom, problem solved. I had a formula in cell A2 which I did forget about.
Your code now works perfectly... Thank you very very much again
"antonov" <[email protected]> wrote in message
news:[email protected]...
> Hello everybody:
> is it possible to have a macro or whatever to "replicate" the formulas in
> the next row so that I have the formulas only in the cells I am actually
> going to use and not on all the empty rows?
>
>

[Tom Ogilvy]

With a cell in row 2 selected, the code ran fine for me as expected.

--
Regards,
Tom Ogilvy


"antonov" <[email protected]> wrote in message
news:[email protected]...
> Tom, thanks for the hint...
> I've created a macro with the code you gave but when I run it it cancels
all
> formulas from the first row (the first row contains 54 cells, 16 of which
> with formulas)
> "Tom Ogilvy" <[email protected]> wrote in message
> news:[email protected]...
> > Dim rng as Range
> > ActiveCell.EntireRow.FillDown
> > On error resume Next
> > set rng = ActiveCell.EntireRow.SpecialCells(xlConstants)
> > On Error goto 0
> > if not rng is nothing then
> > rng.ClearContents
> > End if
> >
> > --
> > Regards,
> > Tom Ogilvy
> >
> >
> > "antonov" <[email protected]> wrote in message
> > news:[email protected]...
> >> Hello everybody:
> >> is it possible to have a macro or whatever to "replicate" the formulas
in
> >> the next row so that I have the formulas only in the cells I am
actually
> >> going to use and not on all the empty rows?
> >>
> >>
> >
> >
>
>