Seleccionar rango de fila para macro

[Ino]

Buenas

He realizado una tabla para controlar diferentes grupos por donde pasan y el tiempo que tardan. Una vez llegan al último lugar les corresponde un descanso y he puesto una cuenta regresiva y cuando esta termina lanza un mensaje alertando que el tiempo ha terminado. El problema, lo tengo que solo la macro me lo hace en la casilla O2 y yo quiero el rango O2:O119. He probado de diferentes formas pero no lo consigo, que si error de tal.. que si falta objeto... en fin que ya no se que probar. Hace tiempo programaba pero he perdido el hábito y estoy atrancado en esto que tiene que ser fácil pero no atino. Os agracedria vuestras opiniones.

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 = [O2]

Cuenta.Value = Cuenta.Value - TimeSerial(0, 0, 1)

If Cuenta <= 0 Then

MsgBox "Terminó el tiempo de descanso", vbExclamation, "Cuenta Regresiva"

Exit Sub

End If

Call ProgramaCuentaRegresiva

End Sub

[Antoni]

.

Dado que se evalúan 118 celdas cada vez, no es viable utilizar un MsgBox como aviso, por este motivo he colocado un mensaje en la columna P.

He añadido también, una macro para parar el reloj.

Public CuentaRegresiva As Date


Sub ProgramaCuentaRegresiva()

CuentaRegresiva = Now + TimeValue("00:00:01")

Application.OnTime CuentaRegresiva, "ProgramaCuenta"

End Sub


Sub ProgramaCuenta(): On Error Resume Next

Dim Cuenta As Range, Cadena As Variant

Range("P2:P119").ClearContents

For Each Cuenta In Range("O2:O119")

   Cuenta.Value = Cuenta.Value - TimeSerial(0, 0, 1)

   If Cuenta <= 0 Then Range("P" & Cuenta.Row) = "Descanso terminado"

Next

Call ProgramaCuentaRegresiva

End Sub


Sub PararReloj()

Application.OnTime CuentaRegresiva, "ProgramaCuenta", , False

End Sub


[/CODE]

[Ino]

Buenas Macro Antonio.

Gracias por tu rápida respuesta, casi es lo que persigo pero no del todo quiero que me aparezca el mensaje en pantalla individualmente cuando activo el cronometro, a lo mejor no me he explicado muy bien. Subo el archivo para que lo veas.

Gracias.

Control de salida y entrada1.rar