# A loop counter

#### JLouis

##### Board Regular
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:
Code:
``ctr = ctr + 1``
To see how many times it ran, after the loop ends, you can simply return a message box, i.e.
Code:
``MsgBox "The loop ran " & ctr & " times"``
Here is a real simple example:
Code:
``````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``````

Last edited:

#### JLouis

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

Thanks again.

You are welcome.

1,078,491
Messages
5,340,683
Members
399,389
Latest member
JayNExcel

### This Week's Hot Topics

• Problem with Radio Button's format control
I am creating an employee evaluation template (a sample is below) Column A is the category Column B, C D, E and F will be ratings (unacceptable...
• Last Display on userform to a Listbox
[CODE=vba] lstdisplay.ColumnCount = 15 lstdisplay.RowSource = "A1:O600000" [/CODE] So when i do this it Displays everything on the sheet i am...
• Rename and move files to a new location
Dear all, I have an excel file with the following information. The actual file name is at column A but i want to rename it using the following...
• Help with True/False Formula
Hello! Am stumped how to fix this formula, in which my result returns 'True', but it should return False. =IF(AG2=True...
• Clear extra characters from a provided range of cells
Dear All, I have following code which gives me desired output to remove extra characters from a provided range. But it takes too much time when...
• Help with Current and highest streaks
Hi there, I've just joined the forum and this is my first post. I've already spent quite a bit of time searching the net and this forum for a...