Stopwatch 100th of Seconds

Let me give it a try based on the minimum requirement you have written.

This can be used as a starting point and you can improve on the tool or ask for further help.

Steps:
1. On Sheet1 enter 4 headings in A1 to D1 "Number, Start, End, Time"
2. Create three Named Cells (Insert -> Name -> Define) anywhere in the workbook. "Started, Number, Start" (which will be used for storting temp. values)
3. Create a user form in VBE ( Ctrl + F11 to see VBE and then insert -> userform)
4. Create one Text box and one command button on the user form.
5. Paste following code in the code window for user form.

Private Sub CommandButton1_Click()
If Range("Started").Value <> "Stared" Then
    If Not (IsNumeric(UserForm1.TextBox1.Value)) Then MsgBox ("Not valid Number"): Exit Sub
    Range("Started").Value = "Stared"
    Range("Number").Value = UserForm1.TextBox1.Value
    Range("Start").Value = Now()
    UserForm1.CommandButton1.Caption = "Stop"
    UserForm1.TextBox1.Enabled = False
Else
    Sheet1.Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.Value = UserForm1.TextBox1.Value
    Selection.Offset(0, 1).Value = Range("Start").Value
    Selection.Offset(0, 2).Value = Now()
    Selection.Offset(0, 3).Formula = "=RC[-1]-RC[-2]"
    Range("Started").Value = "Stopped"
    Range("Number").Value = ""
    Range("Start").Value = ""
    UserForm1.CommandButton1.Caption = "Start"
    UserForm1.TextBox1.Enabled = True
    Unload Me
End If


End Sub

This should help you record the timings for different players (numbers).

If this is fine with you, we can work on getting the fastest etc.

Following code will give you your desired output.

The only change fron the previous solution is that, there is only one Named Rage "Start" and there is no command button. The stop watch starts as soon as the user form is initialized (in our case with a control button from the worksheet.

Hope this helps

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 And IsNumeric(TextBox1.Value) Then
    Sheet1.Range("A65536").End(xlUp).Offset(1, 0).Select
    Selection.Value = UserForm1.TextBox1.Value
    Selection.Offset(0, 1).Value = Range("Start").Value
    Selection.Offset(0, 2).Value = Now()
    Selection.Offset(0, 3).Formula = "=RC[-1]-RC[-2]"
    TextBox1.Value = ""
End If
End Sub


Private Sub UserForm_Initialize()
    Range("Start").Value = Now()
End Sub


Private Sub UserForm_Terminate()
    Range("Start").Value = ""
End Sub

Re: VBA : anyone know how to create a stopwatch?? more...

i have tried the code and it works fine but the difference between the start and the end time is formatted as Decimal numbers which is hard to be understand. can anyone format it as (mintues:seconds)

i will be greatful if you could ..

i am newbie in VBA but i am pretty good in VB.nET and Asp.NEt

thank you

Fugitive Mind

Re: VBA : anyone know how to create a stopwatch?? more...

Hi Mr.White

[ga]*[/ga] the rules on post Titles that you agreed to! I have modified this one for you.

Re: Stopwatch 100th of Seconds

Hi Fugitive Mind,

Try:

[vba]
Selection.NumberFormat = "mm:ss" 'Change the reference to suit your requirements.
[/vba]

Or else, Press Ctrl+1 &gt Custom in the Category list box, then type mm:ss in the Type dialogue box.(this will also give the same result).

HTH.

Re: Stopwatch 100th of Seconds

thank you that slove the problem ...

thanks alot
:rock: :rock: :rock:

Re: Stopwatch 100th of Seconds

This is great. Very close to what I'm looking to do, however, I need a few changes.

How can I make it so you can run several different timers on the same worksheet. Each timer should be able to be started at different times and stopped at different times. If the user minimizes the application, the timer should continue to run.

The point of all this is to be able to time several different projects that may start and/or stop at different times.

Thanks.