A loop counter

[JLouis]

Hello.

I am working on a workbook that uses random numbers that loops until a certain condition is met; a specific number.

I am wanting to be able to count how many times the loop has to cycle until the number is calculated correctly. Essentially a counter of the cycles.

Any help is appreciated.

 

[Joe4]

What kind of loop are you using?

Just insert a variable and increment it within your loop.
So, somewhere within your loop, you might have something like:

ctr = ctr + 1

To see how many times it ran, after the loop ends, you can simply return a message box, i.e.

MsgBox "The loop ran " & ctr & " times"

Here is a real simple example:

Sub Test()

    Dim i As Long
    Dim ctr As Long
    
    For i = 1 To 100
        ctr = ctr + 1
        If i > 14 Then Exit For
    Next i
        
    MsgBox "The loop ran " & ctr & " times"

End Sub

 

[JLouis]

Thank you for the quick reply & solution. It worked perfectly. I knew it was something simple....

Thanks again.

 

[Joe4]

You are welcome.