Detener reloj si llega al 100% una celda
Para: Dante Amor
Recurro a su gran talento en estos temas espero que me pueda ayudar, lo que busco con tema es parar el reloj si mi celda A9 llega al 100%, la macro que me diste funciona perfectamente solo que esta vez lo quiero adaptar para otro archivo con esta nueva condición.
Ub LanzarCrono()
'Por.Dante Amor
Range("A5") = Time
Range("C3") = ""
ActualizarHora
End Sub
'
Sub ActualizarHora()
'Por.Dante Amor
If Range("C3") = "Fin" Then Exit Sub
Range("B3") = Time
Range("D5") = "=B3-A5"
Application.OnTime Now + TimeValue("00:01:00"), "ActualizarHora"
End Sub
'
Sub PararReloj()
'Por.Dante Amor
Range("C3") = "Fin"
On Error Resume Next
Application.OnTime Now + TimeValue("00:01:00"), "ActualizarHora", , False
End Sub
'
Sub Iniciar()
'Por.Dante Amor
Range("D5") = "00:00:00"
End Sub
1 Respuesta
Respuesta de Dante Amor
2
Prueba así:
Sub LanzarCrono()
'Por.Dante Amor
Range("A5") = Time
Range("C3") = ""
ActualizarHora
End Sub
'
Sub ActualizarHora()
'Por.Dante Amor
If Range("C3") = 1 Then Exit Sub
Range("B3") = Time
Range("D5") = "=B3-A5"
Application.OnTime Now + TimeValue("00:01:00"), "ActualizarHora"
End Sub
'
Sub PararReloj()
'Por.Dante Amor
Range("C3") = 1
On Error Resume Next
Application.OnTime Now + TimeValue("00:01:00"), "ActualizarHora", , False
End Sub
'
Sub Iniciar()
'Por.Dante Amor
Range("D5") = "00:00:00"
End Subsal u dos
