running timer in excel with start, pause and end button

need your help... i tried my best to google a solution for this but all my searches just doesn't fit right... so i now turn to the experts...

i need to create three buttons in excel which will do as follows:

start button - put in cell k4 the actual time a task will start and at the same time start a running countup timer in k3.
Pause button - it will pause the countup timer in k3. Then the word "pause" will turn to "resume" so user can click on it when he wants to restart the timer. Note that when user clicks on pause/resume button, the time recorded in k4 should NOT be changed (because all this data needs to be transfeered in a database).
stop button - put in cell l4 the actual time a task was stopped and at the same time stops the timer in k3

Really appreciate any help you could give me

hello sktneer..

first thanks for taking time in this macro.. just need some revisions please...

in the running clock, would it be possible to change it to a timer (like 1 2 3 4 5 and so on) instead of a clock? the reason is because when i clicked on stop, the total time spent being recorded is from the time started - time stopped. it was not able to deduct the time a task was paused. i need to see the total time a certain task was performed, not including when the timer was paused

thanks again for your help dear.

i did see L4 but when i checked on it, it was including the time when it was paused.. i'll check again and let you know.

i have re checked and i do not know if i am doing something wrong but L4 is just subtracting time start and time stop, even if i have paused the timer in between.

forgive my ignorance.. hope you can point me in the right direction.

hello sktneer.. sorry for my very delayed response. i had to attend to some things.

regarding above, thanks very much!!! it's doing exactly what i need. reallyappreciate your help.

one question though, when i start the timer and then try to open a new excel file, the running timer is transferred to the new file i opened. is it possible to remove this feature? but the timer should continue to run in the background.

here is a stop watch and count down timer on a userform.

sktneer.. thanks so much.. i'm checking on your attachment now.

Cobralad.. thanks too for your attaced file. im not familiar with userform.. question, how do i use your attached file? how do i launch the user form? and would it be able to save the data in excel file?

sktneer... im really really sorry if i have too many requests.. when i tried using your latest file... at first the timer works ok... but while the timer is running, and then i open a new excle file.. the timer resets its counting... is it possible that the running clock would continue to run even if i transferred to another excel file? similar to the first file you did?

thank you soooooooooooooo much!!! you are a life saver

Dear sktneer,

I would like to use the timer file with a few changes to it. But, unfortunately, I couldn't succeed and here I'm. Here's what I'm trying to accomplish.

I want my users to capture start and stop timing in column 5 & 6 for all the individual activities they record in the sheet, which is done.

The problem I encounter is
1. When I select a different cell in column 5 the timer starts again and stops the prior one.
2. When I select a different cell in the different column the timer starts again and stops prior and give me the popup message. Here's the code with changes made so far, correct me, please.

Sub Start_Timer()
If Selection.Column <> 5 Then
MsgBox "Incorrect Selection"
Else
Application.OnTime Now + TimeValue("00:00:01"), "IncreamentTimer"
End If
End Sub

Sub IncreamentTimer()
If Cells(Application.ActiveCell.Row, 5).Value = "" Then Cells(Application.ActiveCell.Row, 5).Value = TimeValue(Now)
If Cells(Application.ActiveCell.Row, 6).Value = "" Then Cells(Application.ActiveCell.Row, 6).Value = TimeValue(Now)
Cells(Application.ActiveCell.Row, 6).Value = Cells(Application.ActiveCell.Row, 6).Value + TimeValue("00:00:01")
If Range("J3").Value = "" Then Range("J3").Value = "Timer ON"
Range("J4").Value = "Timer Start Time"
Range("J3").Font.Color = vbGreen
sTimer = True
Start_Timer
End Sub

Thank you,

I am trying to figure out how to use this sheet to track someones time on more then one task at the same time. can I copy code to each tab?

Hi all, i was wondering if there is a way to modify the timer that was posted by sktneer so it can count milliseconds as well and have this format hh:mm:ss.00?