Falconander
New Member
- Joined
- Dec 1, 2016
- Messages
- 1
Simple little program trying to update values on a scatterplot. The values are changing in the data but the scatterplot is not updating until it is finished running.
Thanks for any help,
Sub Bounce1()
Application.ScreenUpdating = True
Range("G5").Value = 2
Range("H5").Value = 9
'ActiveWorkbook.RefreshAll
'DoEvents
ActiveSheet.Calculate
Application.Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 11
Range("H5").Value = 7
'ActiveWorkbook.RefreshAll
'DoEvents
'Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 3
Range("H5").Value = 5
ActiveWorkbook.RefreshAll
DoEvents
'Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 9
Range("H5").Value = 3
ActiveWorkbook.RefreshAll
DoEvents
'Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 5
Range("H5").Value = 2
End Sub
Thanks for any help,
Sub Bounce1()
Application.ScreenUpdating = True
Range("G5").Value = 2
Range("H5").Value = 9
'ActiveWorkbook.RefreshAll
'DoEvents
ActiveSheet.Calculate
Application.Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 11
Range("H5").Value = 7
'ActiveWorkbook.RefreshAll
'DoEvents
'Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 3
Range("H5").Value = 5
ActiveWorkbook.RefreshAll
DoEvents
'Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 9
Range("H5").Value = 3
ActiveWorkbook.RefreshAll
DoEvents
'Calculate
Application.Wait (Now + TimeValue("0:00:01"))
Range("G5").Value = 5
Range("H5").Value = 2
End Sub