Help with VBA Code Loop

[johnbird1988]

This piece of VBA code is looping through a range of around 200 rows but for some reason it keeps looping even after all rows have been addressed. I’m not sure if the reason it is looping so much is because of the part highlighted. Can someone explain what “Last To 1 Step -1” does and how I can get this to only loop through a range of circa 200 rows?<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
<o></o>
<o> </o>
Last = Cells(Rows.Count, "AC").End(xlUp).Row<o></o>
For i = Last To 1 Step -1<o></o>
If (Cells(i, "AC").Value) = "N" Then<o></o>
Cells(i, "A").EntireRow.Delete<o></o>
End If<o></o>
Next i<o></o>
<o> </o>
Last = Cells(Rows.Count, "AB").End(xlUp).Row<o></o>
For i = Last To 1 Step -1<o></o>
If (Cells(i, "AB").Value) = "Yes" Then<o></o>
Cells(i, "A").EntireRow.Delete<o></o>
End If<o></o>
Next i<o></o>

Thank you

 

[ISY]

Hello

Open the following Link:
http://www.rondebruin.nl/delete.htm
check if you have the sheet at the end of the range of cells affected by soil type fields: " "

 

[Ruddles]

I’m not sure if the reason it is looping so much is because of the part highlighted.

I couldn't see anything highlighted - all the code looked uniform.

Last = Cells(Rows.Count, "AC").End(xlUp).Row<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p>

This attempts to find the last cell in column AC which contains any sort of value.

For i = Last To 1 Step -1

This creates a loop which starts at the cell identified in the previous step and loops upwards until it gets to the cell in row 1 of column AC. (The code which follows it deletes any row where there's an "N" in the cell.)

A good start would be to find out where it thinks the last cell is. Insert this before each of the FOR statements:-

MsgBox "Last cell is in row " & Last

Now run the macro again. Two messages boxes will appear during execution. What are they telling you? What were you expecting them to say?