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.

****al

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

--
Regards,
Tom Ogilvy


"****al shah" wrote:

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.

****al

Thanks Tom Ogilvy for reply me.
But when i run it gives erroer 400 .
any more help possible.
Thanks
****al
"Tom Ogilvy" wrote:

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

--
Regards,
Tom Ogilvy


"****al shah" wrote:

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.

****al

Try replacing
xlfunctions
with:
xlCellTypeFormulas

****al shah wrote:

Thanks Tom Ogilvy for reply me.
But when i run it gives erroer 400 .
any more help possible.
Thanks
****al
"Tom Ogilvy" wrote:

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

--
Regards,
Tom Ogilvy


"****al shah" wrote:

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.

****al


--

Dave Peterson

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

--
Regards,
Tom Ogilvy


"Dave Peterson" wrote:

Try replacing
xlfunctions
with:
xlCellTypeFormulas

****al shah wrote:

Thanks Tom Ogilvy for reply me.
But when i run it gives erroer 400 .
any more help possible.
Thanks
****al
"Tom Ogilvy" wrote:

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

--
Regards,
Tom Ogilvy


"****al shah" wrote:

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.

****al


--

Dave Peterson