For Each statement

[DejaVu]

I have this block in my code:
For Each CurCell In iStateRange
ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
iRow = iRow + 18
ActiveCell.Offset(1, 0).Select
Next

This works perfectly (almost), but when it gets to the last CurCell in iStateRange, it does not enter the data. I changed the above to this:
For Each CurCell In iStateRange
ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
iRow = iRow + 18
ActiveCell.Offset(1, 0).Select
Next
ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow

And now everything works fine. I wanted to see what someone thought, because I'm sure this is not the best way to do it.


DejaVu

[Tom Ogilvy]

iRow = <the initial value>
For Each CurCell In iStateRange
CurCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
iRow = iRow + 18
Next

If that doesn't work, check the definition of iStateRange

--
Regards,
Tom Ogilvy


"DejaVu" <[email protected]> wrote in
message news:[email protected]...
>
> I have this block in my code:
> For Each CurCell In iStateRange
> ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
> iRow = iRow + 18
> ActiveCell.Offset(1, 0).Select
> Next
>
> This works perfectly (almost), but when it gets to the last CurCell in
> iStateRange, it does not enter the data. I changed the above to this:
> For Each CurCell In iStateRange
> ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
> iRow = iRow + 18
> ActiveCell.Offset(1, 0).Select
> Next
> ActiveCell.Formula = "='[MAY 2005.xls]IB'!$G$" & iRow
>
> And now everything works fine. I wanted to see what someone thought,
> because I'm sure this is not the best way to do it.
>
>
> DejaVu
>
>
> --
> DejaVu
> ------------------------------------------------------------------------
> DejaVu's Profile:
http://www.excelforum.com/member.php...o&userid=22629
> View this thread: http://www.excelforum.com/showthread...hreadid=383916
>

[DejaVu]

I'm not wanting to put the data into iStateRange.

Here is my setup:
iStateRange is Column A
I'm wanting to put the data into columns next to iStateRange. Here are some of my For Statements:
Range("B1").Select
For Each CurCell In iStateRange
ActiveCell.Formula = iValStr
iRow = iRow + 18
ActiveCell.Offset(1, 0).Select
Next
ActiveCell.Formula = iValStr

Range("F1").Select
For Each CurCell In iStateRange
ActiveCell.Formula = iValStr
iRow = iRow + 18
ActiveCell.Offset(1, 0).Select
Next
ActiveCell.Formula = iValStr

... and there are several more. I only use iStateRange as a marker for how many rows.

When I use your For Statement, it overwrites my iStateRange info, and thats now what I'm wanting. What I have right now is working, but I thought there had to be a better way to do this.

Tom, thanks for the help on this.

DejaVu