Stopwatch

[stuartchaffey]

Hi,
May seem a simple question but I have spent hours googling and cant work it out, in a userform I have 2 command buttons and 1 text box. when I press commandbutton4 I want textbox5 to start counting up in seconds. When I press commandbutton5 I want the timer to stop.
Any help would be appreciated

 

[offthelip]

Welcome to the board.
In a standard module put these three sub routines and the two public declarations. :

Public ttimer
Public TimeFlag
Sub starttim()
TimeFlag = False
ttimer = Now()
Call runtimer
End Sub

Sub runtimer()
If TimeFlag = True Then
  MsgBox ("timer stopped at " & ttimer)
Else
 Displayt = Now() - ttimer
 ActiveSheet.TextBox1.Text = Format(Displayt, "Long Time")
 Application.OnTime (Now() + TimeValue("00:00:01")), "runtimer"
End If
 
End Sub

Sub stoptim()
TimeFlag = True
End Sub

Then put this code in your two command buttons:

Private Sub CommandButton1_Click()
Call starttim
End Sub

Private Sub CommandButton2_Click()
Call stoptim
End Sub

I have assume that your textbox is called textbox1 and is on the active sheet. If any of these assumptions are wrong just change the names as appropriate.
The time increments once a second.

 

[stuartchaffey]

Hey,
Thankyou for the reply, but its not showing the time in the text box on the userform. Any ideas? userform is called crystalitesTEAMANDLEADER and its text box 5 on the userform where i want it to display time elapsed. Again thank you

 

[offthelip]

The problem is getting the correct name for the textbox, try changing :

ActiveSheet.TextBox1.Text = Format(Displayt, "Long Time")

to

crystalites.TEAMANDLEADER.Text = Format(Displayt, "Long Time")

if not it is going to be something like that try googling adddressing a textbox on a userform in vba