I have this formula:
..Range(.Cells(cStartRow, 9), .Cells(cStartRow + nRows, 9)).FillDown

cStartRow=12 and nRows=counter that counts the number of rows. 9=column.

I want to use this formula for column 9 through 15. I could repeat formula
7 times and change the column number but surely there is a better way!

Thanks in advance!

Hi

This should do it (untested)

..Range(.Cells(cStartRow, 9), .Cells(cStartRow + nRows, 15)).FillDown

Regards,
Per

"Mona" <(E-Mail Removed)> skrev i meddelelsen
news:20D1091F-809B-4E41-AB20-(E-Mail Removed)...
>I have this formula:
> .Range(.Cells(cStartRow, 9), .Cells(cStartRow + nRows, 9)).FillDown
>
> cStartRow=12 and nRows=counter that counts the number of rows. 9=column.
>
> I want to use this formula for column 9 through 15. I could repeat
> formula
> 7 times and change the column number but surely there is a better way!
>
> Thanks in advance!

dim iCol as long
for icol = 9 to 15
'do what you want...
.range(.cells(cstartrow,icol),.cells(cstartrow+nrows,icol)).filldown
next icol



Mona wrote:
>
> I have this formula:
> .Range(.Cells(cStartRow, 9), .Cells(cStartRow + nRows, 9)).FillDown
>
> cStartRow=12 and nRows=counter that counts the number of rows. 9=column.
>
> I want to use this formula for column 9 through 15. I could repeat formula
> 7 times and change the column number but surely there is a better way!
>
> Thanks in advance!

--

Dave Peterson

perfect!!

"Per Jessen" wrote:

> Hi
>
> This should do it (untested)
>
> ..Range(.Cells(cStartRow, 9), .Cells(cStartRow + nRows, 15)).FillDown
>
> Regards,
> Per
>
> "Mona" <(E-Mail Removed)> skrev i meddelelsen
> news:20D1091F-809B-4E41-AB20-(E-Mail Removed)...
> >I have this formula:
> > .Range(.Cells(cStartRow, 9), .Cells(cStartRow + nRows, 9)).FillDown
> >
> > cStartRow=12 and nRows=counter that counts the number of rows. 9=column.
> >
> > I want to use this formula for column 9 through 15. I could repeat
> > formula
> > 7 times and change the column number but surely there is a better way!
> >
> > Thanks in advance!
>
>