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
