Stopwatch

I'm not sure this is what you really want but this is what I think you want. You already had macros that I modified to automatically place a time at the last cell in the row of either Start or End time.

Private Sub CommandButton1_Click()
Cells(Rows.Count, 6).End(xlUp).Offset(1, 0) = Time
End Sub

Private Sub CommandButton2_Click()
Cells(Rows.Count, 7).End(xlUp).Offset(1, 0) = Time
End Sub

Hope this help

final stopwatch.jpg

Sorry this is not what I want. I want to see the time in stopwatch The buttons I have created in this MIS just only to produce the end result how much time I have taken to complete a request.

I want to see the time second by second, minute by minute..

I have attached one more screen-print & excel sheet by the name of final stopwatch to mention my query. Pleases find.

Thanks

Take a look at this Web site
http://www.vbaexpress.com/kb/getarticle.php?kb_id=242
It should help you.

actully I am not a VBA Master .. I have taken a look at this site but I need your help .. I need the buttons start time & End time in sheet . when I click on start time button the stop watch pop up begin the time..when I click on end time button . It should stop. plz help me.. Thanks

bittu2010,

Try the attached.

Regards,

BigDawg15

Hi BigDawg15,

This attached file of yours is so helpful. Just because of it I have made the excel sheet as per my requirement but still one thing is missing. I have made one more button in my sheet.

What I want by this button that when I click on this button, it should get reset to 0:00:00 & start with next 1 second (0:00:01)

I have attached one more sheet & screen print to relay that what I want .. please do the needful..(please modify if it required)

Thanks

Javed Khan

You should change the StartCycle sub like the one below to make it more accurate. If you work on your excel while timer is running, your macro might stop working while other macros run and your timer will loose some steps. With the modification, you always refer to the computer timeclock so it will always be accurate.

Sub StartCycle()
    Counter = Now - StrtTime
     UserForm1.Label1.Caption = Format(Counter, "h:mm:ss")
    RunWhen = Now + TimeSerial(0, 0, 1)
    Application.OnTime RunWhen, "StartCycle", , True
End Sub

Thanks All. I have got my solution just because of you guys.

Now my last question is how I can use one button for two things:

1 thing: When I click on a button time get started & when I click again timer again get started with 1st second. ( It has already been resolved but I want this function to joint with 2 thing)

2 thing : when I click on same button it should give me current time in active cell.

My simple code is “activecell= time”

I want to use both thing happens by clicking on 1 button. Is it possible then plz tell what I need to do.

I have attached a screenshot to rely what I want with final timer sheet. Please find.
Regards,

Javed Khan

Look at attached file and macros. If you click on a cell, it will place the start time in that cell. When you'll click on the Stop/Reset button the elapsed time will be placed in the cell next to the start time.
Regards

Hi

Actually I a having a problem .. Problem is that when I am minimizing this excel sheet, timer also gets minimized.

I want to see timer all the the time on my desktop even I have minimized its excel sheet.

Please do the needful.

Thanks

As the stopwatch is a userform ((which is part of Excel), I think it is impossible.