Why does my Status Bar stop updating.

[ouadad]

I'm running a simulation with over 500,000 iterations. I've got screenupdating turned on on, statusBar display is on, and I've activated the status bar to print on the iteration number, but it prints out 6000+ and then stops. Could it be that the software is running faster than the screen can update the status bar?

 

[DanteAmor]

answering your question: no It can be the variable. You can put all your code to review it.

 

[Tetra201]

@ ouadad:

Sometimes it helps to have DoEvents after, say, every 100 iterations.

 

[ouadad]

I'm not familiar with DoEvents, but I tried it in my code and it didn't work. Could someone help me fix it please? code is:

Sub Extract_data_for_Friedman_Test()
Dim year As Integer, avg As Double, mos As Integer, group As Integer, irow As Long, irow2 As Integer, icol2 As Integer
Dim count As Long
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.DisplayStatusBar = True
count = 0
For irow = 2 To 501434
    year = Cells(irow, 1)
    avg = Cells(irow, 2)
    mos = Cells(irow, 3)
    group = Cells(irow, 4)
    For icol = 6 To 2678 Step 8
        If Cells(1, icol) = group Then
            For irow2 = 2 To 139
                If Cells(irow2, icol) = mos Then
                    For icol2 = icol + 1 To icol + 7
                        If Cells(1, icol2) = year Then
                            count = count + 1
                            Cells(irow2, icol2) = avg
                            Application.StatusBar = "Iteration = " & count
                            DoEvents
                            GoTo 10
                        End If
                    Next icol2
                End If
            Next irow2
        End If
    Next icol
10  Next irow
End Sub

 

[DanteAmor]

Try this.
I tried it and it worked up to 250 thousand and it continued.

Sub Extract_data_for_Friedman_Test()
Dim year As Integer, avg As Double, mos As Integer, group As Integer, irow As Long, irow2 As Integer, icol2 As Integer
Dim count As Long
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Application.DisplayStatusBar = True
count = 0
For irow = 2 To 501434
   [COLOR=#0000ff] Application.StatusBar = "Processing = " & irow
    DoEvents[/COLOR]
    year = Cells(irow, 1)
    avg = Cells(irow, 2)
    mos = Cells(irow, 3)
    group = Cells(irow, 4)
    For icol = 6 To 2678 Step 8
        If Cells(1, icol) = group Then
            For irow2 = 2 To 139
                If Cells(irow2, icol) = mos Then
                    For icol2 = icol + 1 To icol + 7
                        If Cells(1, icol2) = year Then
                            count = count + 1
                            Cells(irow2, icol2) = avg
                            Application.StatusBar = "Processing = " & irow & " Iteration = " & count
                            DoEvents
                            GoTo 10
                        End If
                    Next icol2
                End If
            Next irow2
        End If
    Next icol
10  Next irow
End Sub

 

[DanteAmor]

Being here, I waited for it to end, it took 12 minutes and the meter was always in motion

 

[ouadad]

Thank you. Funny, it only works if I execute the macro while in VBA. It doesn't work if I go through the Excel>macros menu.

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.