Erro ao apertar duas vezes o botão "Pausar"

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

4 Posts

3 Usuários

0 Reactions

1,431 Visualizações

RSS

Geraldo

(@geraldof)

Posts: 14

Active Member

Topic starter

Boa noite pessoal,
Eu adaptei esse código de cronometro para marcar o tempo de um determinado evento e coloquei 3 botões; iniciar, pausar e zerar.
O erro está acontecendo quando clico mais de uma vez seguida no pausar.
O que pode ser ? Segue o código abaixo.

Desde já agradeço a ajuda.

Sub Iniciar()
dTime = Now + TimeValue("00:00:01")
cTime = cTime + TimeValue("00:00:01")
Application.OnTime dTime, "Iniciar"
Cells(1, 1).Value = cTime

End Sub

Sub btnPausar()

Application.OnTime EarliestTime:=dTime, Procedure:="Iniciar", schedule:=False

End Sub

Sub btnZerar()

dTime = 0
cTime = 0
Cells(1, 1).Value = "00:00:00"

End Sub

Geraldo Figueiredo

Postado : 15/09/2016 7:57 pm

engeel2014

(@engeel2014)

Posts: 207

Estimable Member

Amigo, fiz umas alterações no seu código, pois aqui ele não funcionou corretamente. Vê ai se assim te atende.

Dim ctime As Date
Dim dtime As Date
Sub Iniciar()

dtime = Now + TimeValue("00:00:01")
ctime = ctime + TimeValue("00:00:01")

Cells(1, 1).Value = ctime
Application.OnTime dtime, "Iniciar"

End Sub

Sub btnPausar()

On Error GoTo Fim
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="Iniciar", schedule:=False

Fim:
End Sub

Sub btnZerar()

dtime = TimeValue("00:00:00")
ctime = TimeValue("00:00:00")
Cells(1, 1).Value = "00:00:00"

On Error GoTo Fim
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), Procedure:="Iniciar", schedule:=False

Fim:

End Sub

Anexo planilha para você testar. Aguardo um retorno seu.

Att.: Lucélio

Cronômetro.rar

Lucélio Ferreira dos Santos
Eng. Eletricista
CREA: DF-7165/TD
[email protected]

Postado : 15/09/2016 10:46 pm