Screen refresh

[fireslguk]

Struggling to see screen refresh on gauges

Have vba code that on click of button waits 3 seconds then changes specific cell value then waits and again changes value

The actual cells change but the needle on gauge doesn’t move whilst code running it will change when code finishes to reflect final cell value

Thoughts anyone ?

 

[JackDanIce]

Try inserting this line after the cell value change line:

DoEvents

 

[shaowu459]

add following code under Sub() or Button1.clikc()

application.screenupdating=false

I misunderstand your question...please ignore my answer and refer to floor 2.

 

[fireslguk]

Unfortunately DoEvents no luck

 

[JackDanIce]

Maybe force the sheet to recalculate after the value updates? Without your code, difficult to suggest anything more and not sure disabling the screen updating is what you're after..

 

[fireslguk]

Sub RectangleBeveled9_Click()

Application.Wait (Now + TimeValue("0:00:04"))
Range("p6").Select
ActiveCell.FormulaR1C1 = ".2"
Application.Wait (Now + TimeValue("0:00:01"))
Range("p7").Select
ActiveCell.FormulaR1C1 = ".3"
Range("p8").Select
Application.Wait (Now + TimeValue("0:00:04"))
Range("p6").Select
ActiveCell.FormulaR1C1 = ".4"
Application.Wait (Now + TimeValue("0:00:01"))
Range("p7").Select
ActiveCell.FormulaR1C1 = ".6"
Range("p8").Select
Application.Wait (Now + TimeValue("0:00:04"))
Range("p6").Select
ActiveCell.FormulaR1C1 = ".7"
Application.Wait (Now + TimeValue("0:00:01"))
Range("p7").Select
ActiveCell.FormulaR1C1 = ".8"
Range("p8").Select

End Sub

 

[JackDanIce]

Try:

Sub RectangleBeveled9_Click()

Dim x as Long

Application.ScreenUpdating = True

For x = 6 to 8
  Application.Wait (Now + TimeValue("0:00:04"))
  Cells(x, 16).Value = 0.1 * (x-4)
  ActiveSheet.Calculate
Next x

For x = 6 to 8
  Application.Wait (Now + TimeValue("0:00:04"))
  Cells(x, 16).Value = 0.1 * x
  ActiveSheet.Calculate
Next x

End Sub

 

[fireslguk]

Try:

Sub RectangleBeveled9_Click()

Dim x as Long

Application.ScreenUpdating = True

For x = 6 to 8
  Application.Wait (Now + TimeValue("0:00:04"))
  Cells(x, 16).Value = 0.1 * (x-4)
  ActiveSheet.Calculate
Next x

For x = 6 to 8
  Application.Wait (Now + TimeValue("0:00:04"))
  Cells(x, 16).Value = 0.1 * x
  ActiveSheet.Calculate
Next x

End Sub

Thanks for code but the needles still don’t move each step

Also a value being deposited in 8:16 using your code

 

[Jaafar Tribak]

Thanks for code but the needles still don’t move each step

Also a value being deposited in 8:16 using your code

Is that a gauge chart you are using ? Can you upload a workbook example somewhere so we can take a look ?

 

[fireslguk]

Is that a gauge chart you are using ? Can you upload a workbook example somewhere so we can take a look ?

Yes it is a gauge chart that I made- I have 2 guages and they both update when I put a new value in a cell