timer

[Steve]

Hi all,

HYCH.


Am looking for some code to creat a countdown timer, was hoping for
hh:mm:ss & if possible lower, not sure if it is possible, but any help
would be greatly appreciated.




Steve

 

[Steve]

Hi all,

HYCH.

Am looking for some code to creat a countdown timer, was hoping for
hh:mm:ss & if possible lower, not sure if it is possible, but any help
would be greatly appreciated.

Steve

Forget this, got the timer sorted,, found old post on this site.



But!

anyway to get a page to refresh after 20 secs?

Steve

 

[Matt Richardson]

Forget this, got the timer sorted,, found old post on this site.



But!

anyway to get a page to refresh after 20 secs?

Steve

Hi,

Try this.

Paste this into the worksheet's module:-

Private Sub Worksheet_Activate()
Call Recalculate
End Sub

Public Sub Recalculate()
Calculate
Application.OnTime earliesttime:=Now + TimeValue("00:00:20"), _
procedure:="Recalculate"
End Sub

This should recalculate your worksheet every 20 seconds. To change
the recalculation period just change the value in brackets after
'TimeValue'

Hope this helps,

Regards,
Matt Richardson
http://teachr.blogspot.com

 

[Dave Peterson]

You may want to take a look at Chip Pearson's notes on .ontime:
http://www.cpearson.com/excel/OnTime.aspx

 

[Steve]

Hi,

Try this.

Paste this into the worksheet's module:-

Private Sub Worksheet_Activate()
Call Recalculate
End Sub

Public Sub Recalculate()
Calculate
Application.OnTime earliesttime:=Now + TimeValue("00:00:20"), _
procedure:="Recalculate"
End Sub

This should recalculate your worksheet every 20 seconds.  To change
the recalculation period just change the value in brackets after
'TimeValue'

Hope this helps,

Regards,
Matt Richardsonhttp://teachr.blogspot.com- Hide quoted text -

- Show quoted text -

many thanks,

works great,

5 star service as usual

Steve