Update chart after cell gets updated

[leal72]

Trying to find a way to have the chart update as macro is running. I can see the cells update each time B11 changes but can not get chart to update until marco finishes loop.

Private Sub CommandButton1_Click()

    For x = 0 To 44
    Range("B11").Value = x
    Application.Wait (Now + TimeValue("00:00:03"))
    ActiveSheet.ChartObjects("Chart 3").Chart.Refresh
    Range("B11").Value = x + 1
    Next x


    
End Sub

[paulked]

There are many differing thoughts on DoEvents, but it does work in instances like this, but for reliable updating I had to put it in 4 times!

I changed the order of the code to update the chart before the wait command:

Private Sub CommandButton1_Click()    Dim x As Long, dummy As Long
    For x = 0 To 5
    Range("B11").Value = x
    ActiveSheet.ChartObjects("Chart 3").Chart.Refresh
    DoEvents: DoEvents: DoEvents: DoEvents
    Application.Wait (Now + TimeValue("00:00:01"))
    Range("B11").Value = x + 1
    Next x




    
End Sub

There are probably better ways to do it, but I can't help there, sorry.

[leal72]

Thank you for this, I do appreciate it!