time delay refresh on random number

  • Thread starter Thread starter Bertrand
  • Start date Start date
B

Bertrand

Is it possible to have a time delay on a random number. For example the
random number refresh every x seconds.
 
Bertrand,

You could use the OnTime method to fire a macro that writes the random
number to a cell or a variable once every six seconds or so. Run Random6
once manually, and it will keep going until you decide to stop it. I have
chosen a 2 digit random number between 0 and 100 - you can change that
easily.

Dim DT As Date

Sub Random6()
DT = Now() + TimeValue("00:00:06")
Application.OnTime DT, "Random6"
Cells(Rows.Count, 1).End(xlUp)(2).Value = Round(Rnd() * 100, 2)
End Sub

Sub StopIt()
Application.OnTime DT, "Random6", , False
End Sub

To stop it, use StopIt


HTH,
Bernie
MS Excel MVP
 
Back
Top