Countdown Chronometer

[score]

I trying to figure out how to create a macro for a countdown chronometer, i need to be able to set the countdown value on sheet1 B1, need to be able to add a start, stop and reset button. What i need the macro to do is will allow me to set countdown on B1 to any value, stop the countdown at any moment, re start were it was stop, ten seconds before reach cero to turn button red and when reach cero to stop, when click reset button need it to set the same countdown value was before.

Any suggestion is greatly appreciated... thanks in advance for any help!

[MarvinP]

Hi score,

Watch this YouTube for your answer.

https://www.youtube.com/watch?v=sbJeGG_Xv8M

[score]

Thank you MarvinP, great tutorial video, i have already watch this one and does have everything i need but the reset, i need to reset it manually and i don't have the vba expertise to edit it and add the reset part...

Hi score,

Watch this YouTube for your answer.

https://www.youtube.com/watch?v=sbJeGG_Xv8M

[MarvinP]

Hi score,

Add a third button and name it "Reset".

Make code for this button to

Sub ResetTimer
Sheet1.Cells(1,"B")=TimeValue("00:05:00") ' make this the time you want to reset it to
starttimer
End Sub

What this will do is simply change the value in cell B1 back to your reset value.

[score]

Hi score,

Add a third button and name it "Reset".

Make code for this button to

Sub ResetTimer
Sheet1.Cells(1,"B")=TimeValue("00:05:00") ' make this the time you want to reset it to
starttimer
End Sub

What this will do is simply change the value in cell B1 back to your reset value.

MarvinP... Thank you very much for taking the time to help!! it does work perfectly!!

Here the whole code to share

Sub starttimer()
Application.OnTime Now + TimeValue("00:00:01"), "nexttick"
End Sub
Sub nexttick()
If Sheet1.Range("B7") = 0 Then Exit Sub
Sheet1.Range("B7").Value = Sheet1.Range("B7").Value - TimeValue("00:00:01")
If Sheet1.Range("B7").Value <= TimeValue("00:00:10") Then
    Sheet1.Shapes("TextBox 6").Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
Sheet1.Shapes("TextBox 6").Fill.ForeColor.RGB = RGB(6, 13, 150)
End If
starttimer
End Sub
Sub stoptimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
End Sub
Sub ResetTimer()
Sheet1.Range("B7") = TimeValue("00:00:20") ' make this the time you want to reset it to
starttimer
End Sub