ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Countdown Timer Followup (https://www.excelbanter.com/excel-programming/413162-countdown-timer-followup.html)

Mike B.

Countdown Timer Followup
 
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


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

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com