Solved

Excel 2010:  Macro Button Stop Watch

Posted on 2013-06-17
7
1,292 Views
Last Modified: 2013-06-20
Curious if someone has a stop watch macro that I can use.  I'd like to track how much time worked on each event on my spreadsheet.  If I had a macro button I could embed on each row, I could click on each button in each row to do this.  I could click on this button before I begin, then click on the button when finished.  It would then populate the total time worked in column L of my spreadsheet in each cell.  If it could compute a running total of timed worked that would be awesome too.  Thank you for your help.
0
Comment
Question by:itsmevic
  • 4
  • 3
7 Comments
 

Author Comment

by:itsmevic
ID: 39254739
i think i found a macro that works just need to enter proper syntax for entire L column range.  Any help is appreciated.  Thanks.

Private Sub TickTock()
Range ("L2").Value = Format (Time - t, "hh:mm:ss")
NextTick = Now + TimeValue ("00:00:01")
Application.OnTime NextTick, "TickTock"
End Sub
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 39254755
What do you mean by entire L column? Can you give an example?
0
 

Author Comment

by:itsmevic
ID: 39254782
Here is a screenshot of the spreadsheet and button set-up.  Hopefully this will help.
20130617-174458515382038.jpg
0
Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

 
LVL 43

Accepted Solution

by:
Saqib Husain, Syed earned 500 total points
ID: 39254807
Can  you consider having one set of buttons and select the desired cell? In this case your macro could be

Private Sub TickTock()
selection.Value = Format (Time - t, "hh:mm:ss")
NextTick = Now + TimeValue ("00:00:01")
Application.OnTime NextTick, "TickTock"
End Sub
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 39255224
Please upload your excel file so that we can continue from there. Fake the values if needed.
0
 

Author Comment

by:itsmevic
ID: 39256638
the module you provided was nice, however it doesnt track total time.  i.e. It doesnt start from 00:00:01 and count up.  Being able to click on the cell to start and stop is nice, the only problem with the current module is that it doesnt matter where you click on the worksheet it will embed a clock and not a timer.  I need a timer that can be stopped and started via a button or buttons (start and stop button) or stopped and started with a double-click and limit to one columns entire range if need be.  Hope that makes sense.
0
 

Author Comment

by:itsmevic
ID: 39258384
Here is a sample file...
Example.xlsx
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Microsoft Office Picture Manager was included in Office 2003, 2007, and 2010, but not in Office 2013. Users had hopes that it would be in Office 2016/Office 365, but it is not. Fortunately, the same zero-cost technique that works to install it with …
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question