Stopwatch on a userform.

[asyamonique]

Good Day,
Is it possible to place on a userform one stopwatch for 3min?
It will stop when it is 00:00
it will start when double click on userformom 03:00:60
Thanks in advance.

 

[Legacy 143009]

Hi,

In userform paste this code:

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  alertTime = Now + TimeValue("00:00:01")
  Application.OnTime alertTime, "tictoc"
End Sub
Private Sub UserForm_Initialize()
  initialtime = TimeValue("00:03:00")
  Label1.Caption = Format(initialtime, "hh:nn:ss")
End Sub

Then create a standard module and paste this:

Public initialtime As Double
Sub tictoc()
  initialtime = initialtime - TimeValue("00:00:01")
  UserForm1.Label1.Caption = Format(initialtime, "hh:nn:ss")
  alertTime = Now + TimeValue("00:00:01")
  If initialtime > 1 / 86400 Then
    Application.OnTime alertTime, "tictoc"
  End If
End Sub

 

[asyamonique]

Thank you so much.
How do we reset the code in the middle of progress?

 

[Legacy 143009]

I think you will need something like this. Make a Reset button. Modify the useerform code like this

Private Sub Reset_Click()
  Call resetTime
End Sub
Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  alertTime = Now + TimeValue("00:00:01")
  Application.OnTime alertTime, "tictoc"
End Sub
Private Sub UserForm_Initialize()
  Call resetTime
End Sub
Private Sub resetTime()
  initialtime = TimeValue("00:03:00")
  Label1.Caption = Format(initialtime, "hh:nn:ss")
End Sub