For Loop, jumpoing back all of a sudden

[Excel_vba]

In cells A2:A15 I have:

0801
0801
0801
0801
0803
0803
0804
0804
0805
0805
0807
0807
0809
0809

I am trying to insert a row wherever there is a blank. I am using the Step Into and the Local Window. On the 4th iteration, the code enters the IF statement. When I press F8 on the Set statement and the cursor moves to END IF, at this point, the value of "cell" is 0803 on row 7. This is what I am expecting to see at this point. Now press F8 two more times and the cursor lands on the IF statement. At this point however, the value of "cell" is empty on the 6th row.

If cell was on row 7, then the next iteration of the For loop occurs, how is it that cell is jumping back to row 6? I want it to stay on row 7.

Please Login or Register  to view this content.

[jaslake]

Hi Excel_vba

When adding or deleting rows it's better to iterate through the cells from the Bottom to the Top, like so

Please Login or Register  to view this content.

[contracting]

Hi,
Generally speaking, when you're inserting or deleting rows on a worksheet, it's a LOT easier to loop bottom to top. Otherwise you'll drive yourself crazy trying to keep track of the things to 'skip'.

Try this code:

Please Login or Register  to view this content.

To see what's going on in your code, add a couple of DEBUG.Print lines:

Please Login or Register  to view this content.

[Excel_vba]

Hi Excel_vba

When adding or deleting rows it's better to iterate through the cells from the Bottom to the Top, like so

Please Login or Register  to view this content.

Hello Jaslake. I don't understand the purpose of "For i = lr To 2"

[Excel_vba]

Hi,
Generally speaking, when you're inserting or deleting rows on a worksheet, it's a LOT easier to loop bottom to top. Otherwise you'll drive yourself crazy trying to keep track of the things to 'skip'.

Try this code:

Please Login or Register  to view this content.

To see what's going on in your code, add a couple of DEBUG.Print lines:

Please Login or Register  to view this content.

Hello Contracting. Thank you for your reply. What is the purpose of "For i = 15 To 3 "

[jaslake]

Hi Excel_vba

The Code is saying to start at the Last Row (defined as lr) and look at each Cell...if the Cell above it is a different Value, Insert a New Row. Keep doing this until you get to Row 2 then stop.