Cómo crear Botón detener Cronometro?

Necesito tener un cronometro en excel, en el cual me pueda ubicar en la celda activa y darle click al botón iniciar he inicia el cronometro. Buscando ejemplos en la Web me encontré un ejemplo muy bueno, lo único que no he podido encontrar es como detener el cronometro de este ejemplo.

Si alguien me puede colaborar se lo agradezco

El código del ejemplo es el siguiente:

Sub ProgramaCuentaRegresiva()
Dim CuentaRegresiva As Date
CuentaRegresiva = Now + TimeValue("00:00:01")
Application.OnTime CuentaRegresiva, "ProgramaCuenta"
End Sub
Sub ProgramaCuenta()
Dim Cuenta As Range
''Set Cuenta = [A2]
Set Cuenta = ActiveCell
Cuenta.Value = Cuenta.Value + TimeSerial(0, 0, 1)
If Cuenta <= 0 Then
    MsgBox "Terminó el Conteo", vbExclamation, "Cuenta Regresiva"
    Exit Sub
End If
Call ProgramaCuentaRegresiva
End Sub
1

1 respuesta

Respuesta
1

Pon la siguiente macro en otro botón:

Sub DetenerCuentaRegresiva()
    Dim CuentaRegresiva As Date
    CuentaRegresiva = Now + TimeValue("00:00:01")
    Application.OnTime CuentaRegresiva, "ProgramaCuenta", , False
End Sub

':)
':)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas