PDA

View Full Version : STOPWATCH



CPINNA1
08-17-2010, 12:05 PM
I have seen many different types of scripts for developing a stopwatch in excel. To sum it up, using the below script, where can I insert a command designating a specific cell or range or cells to stop the timer. Commencing the timer is fine, but i find that when i begin typing the timer stops, hence the reason for wanting the specific cell designation. Thanks

Public stopMe As Boolean
Public resetMe As Boolean
Public myVal As Variant
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target.Value = myVal And Target.Value <> "" Then
'Changed
Dim startTime, finishTime, totalTime, timeRow
startTime = Timer
stopMe = False
resetMe = False
myTime = Target.Offset(, 2).Value
Target.Offset(, 1).Select
startMe:
DoEvents
timeRow = Target.Row
finishTime = Timer
totalTime = finishTime - startTime
Target.Offset(, 1).Value = Format(myTime + totalTime, "0.0000") & " Seconds"
If resetMe = True Then
Target.Offset(, 1).Value = 0
Target.Offset(, 2).Value = 0
stopMe = True
End If
If Not stopMe = True Then
Target.Offset(, 2).Value = totalTime
Goto startMe
End If
Cancel = True
End
Else
'Not Changed
stopMe = True
Cancel = True
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
myVal = Target.Value
End Sub

rbrhodes
08-17-2010, 07:00 PM
Hi.

Well that is impossible to read. Put some code tags around the code and maybe someone will look at it!