For Each statement
 

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

For Each statement
 

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" wrote in
message ...

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

For Each statement
 

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 ar
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 fo
how many rows.

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

Tom, thanks for the help on this.

DejaV

--
DejaV
-----------------------------------------------------------------------
DejaVu's Profile: http://www.excelforum.com/member.php...fo&userid=2262
View this thread: http://www.excelforum.com/showthread.php?threadid=38391