fischero
07-14-2014, 10:58 AM
Hello,
I am trying to create a stopwatch that doesn't stop or reset unless I click on the cell that has the running time. With this stopwatch, the goal is to have the ability to click on any cell and copy and paste the time (though the stopwatch will continue counting). I am conducting a time study, and I a just want to create a simple, user-friendly set-up.
Here is the code I have so far (I didn't create this code)
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
As of now, this code will start timing when you double click on a cell in column A (that you have inputted a value in). The time will then stop with you click any other cell..
I don''t want the stopwatch to stop unless I click on the cell that is counting, and I want to have the ability to double click on any cell and be able to paste the time at that very instant.
Can anyone help?
Thanks
I am trying to create a stopwatch that doesn't stop or reset unless I click on the cell that has the running time. With this stopwatch, the goal is to have the ability to click on any cell and copy and paste the time (though the stopwatch will continue counting). I am conducting a time study, and I a just want to create a simple, user-friendly set-up.
Here is the code I have so far (I didn't create this code)
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
As of now, this code will start timing when you double click on a cell in column A (that you have inputted a value in). The time will then stop with you click any other cell..
I don''t want the stopwatch to stop unless I click on the cell that is counting, and I want to have the ability to double click on any cell and be able to paste the time at that very instant.
Can anyone help?
Thanks