Countdown timer

**flyinghigher2011** · 07-09-2013, 04:53 AM

hi all

ive attached a file for all to look at, on it is a countup timer but as im new to all this i dont know how to do a count down timer. there is more info on the file as to what im needing to do.

can anyone please help

thank you

Attachment 248839

**HaHoBe** · 07-09-2013, 01:00 PM

Hi, flyinghigher2011,

please do not start several threads on the same topic.

Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "increment_count"
End Sub

Sub increment_count()
With Range("A3")
  .Value = .Value - 1
  If .Value = 0 Then
    RestartTimer
    MsgBox "Time´s up"
    UserForm2.Show
  Else
    startTimer
  End If
End With
End Sub

Sub RestartTimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "increment_count", schedule:=False
Range("A3").Value = 65
End Sub

Ciao,
Holger

**flyinghigher2011** · 07-10-2013, 02:42 AM

it work great once i changed "sub RestartTimer" to "sub StopTimer" thank you very much. also one the pop up message "Times up" how do i get rid of the "Microsoft Excel" and put "Timer End" on it instead?

**Janto724** · 07-10-2013, 03:23 AM

Hi HighFlyer

Where you have the code

MsgBox "Times Up" you can edit this and type the message you require to pop up when the timer ends

If you edit it to msgbox "Timer Up" this will pop up instead of time's up

**flyinghigher2011** · 07-10-2013, 06:34 AM

Originally Posted by Janto724

Hi HighFlyer

Where you have the code

MsgBox "Times Up" you can edit this and type the message you require to pop up when the timer ends

If you edit it to msgbox "Timer Up" this will pop up instead of time's up

ive done that but what it need to say at the top is not "Microsoft Excel" but something else

**flyinghigher2011** · 07-10-2013, 03:33 AM

it all works great now can i point you to another post that i have put up please

http://www.excelforum.com/excel-prog...98#post3315998

think i did that right and many thanks again

**flyinghigher2011** · 07-10-2013, 04:13 AM

thanks again

here is my final working code

Sub startTimer()
Application.OnTime Now + TimeValue("00:00:01"), "increment_count"
End Sub

Sub increment_count()
With Range("H12")
  .Value = .Value - 1
  If .Value = 0 Then
    Range("H12").Value = 0
    MsgBox "Time´s up! How Did You Do This Time?"
    UserForm1.Show
  Else
    startTimer
  End If
End With
End Sub

Sub StopTimer()
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "increment_count", schedule:=False
Range("H12").Value = 65
End Sub

and here is my code for start and stop buttons which disable when in use

Private Sub Stop_End_Click()
StopTimer
STOP_END.Enabled = False
CONTINUE.Enabled = True
End Sub

Private Sub CONTINUE_Click()
Range("H12").Value = "65"

startTimer
STOP_END.Enabled = True
CONTINUE.Enabled = False
End Sub

you are a star *****

**Janto724** · 07-10-2013, 08:03 AM

Hi HighFlyer

Have you given a name to the sheets or is it set to the default of Sheet 1 , Sheet 2

Try naming the sheets to a name you want and try that

**flyinghigher2011** · 07-10-2013, 08:46 AM

its all working fine bud but thanks for asking

**Janto724** · 07-10-2013, 09:11 AM

Okay glad it all working good for you

If you are happy with everything I would click on Thread Tools and mark the thread as solved

**HaHoBe** · 07-10-2013, 03:08 PM

Hi, flyinghigher2011,

MsgBox "Time´s up", vbInformation, "Message for you"

Ciao,
Holger

Countdown timer

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Re: Countdown timer

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions