PC Review


Reply
Thread Tools Rate Thread

Countdown Timer Followup

 
 
Mike B.
Guest
Posts: n/a
 
      25th Jun 2008
When I changed from "Sheet1" when clock was running, clock appeared in the
"Sheet2" as well in that specific cell and gave me hourglass cursor so I
couldn't go back to the orignial sheet. Is there anyway to overcome this? I
plan to switch between other sheets while the clock is running to input data
that will stop the clock.

This is the code written in the sheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
mPrev = Me.Range(WS_RANGE).Value
End Sub

Private Sub Worksheet_Calculate()

On Error GoTo ws_exit
Application.EnableEvents = False

If Me.Range(WS_RANGE).Value <> mPrev Then
With Me.Range(WS_RANGE)
If .Value = 1 Then
nCount1 = 60
Call RunTimer
ElseIf .Value = 0 Then
nCount1 = 0
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub


This is code written in the module:

Public nCount1 As Long
Public Sub RunTimer()
If nCount1 >= 0 Then
Range("W11") = nCount1
nCount1 = nCount1 - 1
Application.OnTime Now + TimeSerial(0, 0, 1), "RunTimer"
End If
End Sub
 
Reply With Quote
 
 
 
Reply

Thread Tools
Rate This Thread
Rate This Thread:

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to set up countdown timer to countdown days to a specific day Jenny Microsoft Excel Worksheet Functions 2 28th Jun 2009 04:42 PM
CountDown Timer jp2msft Microsoft C# .NET 4 1st Aug 2008 08:35 PM
Countdown timer =?Utf-8?B?Sm9jaw==?= Microsoft Excel Programming 15 21st May 2007 02:16 PM
Using a Timer to CountDown in VB.net WorldIsEnding@googlemail.com Microsoft VB .NET 5 7th Feb 2007 05:51 PM
Countdown Timer Frank Bohan Freeware 1 14th Nov 2005 09:12 PM


Features
 

Advertising
 

Newsgroups
 


All times are GMT +1. The time now is 04:39 PM.