[RESOLVED] Loop Debugging Issue

[firoz.raj]

here in the following Code .Last value is 9000.When i debug suppose i=1 and cursor is on next .when i press f8 during debugging using f8.it goes on mcol.remove 1.again it becomes i=2
at the next time.and when press f8 it goes on mcol.remove 1. but i simple want to go if i want to
go on i=5000.not till i wait i increase upto 1,2,3....5000. is their any way to go directly on any specific number suppose i want to skip loop and i want to go directly on i=8500.Kindly let me know the idea.Any help would be highly appreciated.

Public Function RemoveAll() As Boolean
Dim i As Integer, last As Integer
last = mCol.Count
For i = 1 To last
   mCol.Remove 1
Next
End Function

[moa]

Hello,
If, as we can guess it, you destroy a line, you need to loop from the bottom to the top !

For i =  last ti i step -1

If you do'nt, you will obviously refer to a non existing line !

[WoF]

That is not true, becaus he always removes column 1 and not column i.

But I think this was not the question...
You can set a breakpoint after the Next and then run until the breakpoint is encountered.
Although I have not yet worked with them, there are watched variables, as I recall, where you can set to break when a specific value is encountered.

[DataMiser]

As coded I do not see what good it would do you to skip to any specific number since you are always removing item 1 no matter what the variable = to. If you want to remove only 50 or 100 or whatever you could simply change the value of last at the top of the loop.

[WoF]

I think he just wants to 'skip' single stepping through the loop, not skipping execution, but continuing single stepping after say 8000 steps, without having to singlestep through all of it.

[DataMiser]

In that case a simple if statement with a breakpoint inside would do the trick

[WoF]

Yes, an If statement within the loop like

If i = 8000 Then
  debug.print i
End If

would allow to set a breakpoint to the debug.print i and let the loop run.
But I think setting a breakpoint after the Next does neatly. Why would you stop after 800 deletes and then go on single stepping. The deletes will work to the end, sure.
So you can resume single stepping after the loop.

[JonnyPoet]

Yes, an If statement within the loop like

If i = 8000 Then
  debug.print i
End If

Yes this is the way to stop at a defined point.
Your whole code would look like

Public Function RemoveAll() As Boolean
Dim i As Integer, last As Integer
last = mCol.Count
For i = 1 To last
   if i = 8000 then
     Debug.print i
   end if
   mCol.Remove 1
Next
End Function

And set F9 at the shown brown line

[dglienna]

I prefer MOD 100 (or whatever). Let the counter go as high as it can

[DataMiser]

With the mod function you can check to see if it is = to 0 and have it stop every 100 loops or whatever you choose to use in the mod statement. Just depends on what you want to do.

If i  mod 100= 0 Then
     Debug.Print i
   End If

Would stop at loop 100 then you could step through one or two if you like and hit F5 and it would stop again at 200 and again at 300 and so on.

Again just depnds on what you want to do