pls help

[Guest]

I have data for 6 months Like

Item,Jan,Feb,Mar,Apr,May and Jun more than 1200.
I want to fill function next 5 column.

I have function call sum in column Jan and than some rows with numbers than
again function.

How can i find function in a column and if there is a function than it
should fill that function to next 5 columns cell.
E.G.

if function in cell B12 than it should fill that function to C12,D12,E12,F12
AND G12

Is this possible and help.

Thanks in advance.

Shital

 

[Guest]

Dim rng as Range, ar as Range
set rng = columns(2).specialcells(xlFunctions)
for each ar in rng.areas
for each cell in ar
cell.Resize(1,6).Formula = cell.formula
Next
Next

 

[Guest]

Thanks Tom Ogilvy for reply me.
But when i run it gives erroer 400 .
any more help possible.
Thanks
Shital

 

[Dave Peterson]

Try replacing
xlfunctions
with:
xlCellTypeFormulas

 

[Guest]

I thought that looked strange. xlFormulas will work as well. Sorry for the
typo.