actualizacion de formulas de libro en cierto tiempo...!!!

Creo que esto, o algo asi, te puede servir... eso si, no me termina de
convencer, pero creo que cumple su funcion :)

Public tiempototal As Double
Public Const Tiempo As String = "00:00:30"
Sub Crono()

On Error Resume Next

Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=False

tiempototal = Now + TimeValue(Tiempo)

Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=True

End Sub

Sub Actualizar()
Calculate
Crono
End Sub

Sub detener()
Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=False

End Sub

Abraham

muchas gracias..

muy efectiva su ayuda, y claro esta, su conocimiento.




"Abraham" escribió en el mensaje
news:

Creo que esto, o algo asi, te puede servir... eso si, no me termina de
convencer, pero creo que cumple su funcion :)

Public tiempototal As Double
Public Const Tiempo As String = "00:00:30"
Sub Crono()

On Error Resume Next

Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=False

tiempototal = Now + TimeValue(Tiempo)

Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=True

End Sub

Sub Actualizar()
Calculate
Crono
End Sub

Sub detener()
Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=False

End Sub

Abraham

hola, Abraham !

Creo que esto, o algo asi, te puede servir... eso si, no me termina de convencer, pero creo que cumple su funcion :)

en el Sub Crono(), la primer llamada al metodo "OnTime" (con el Schedule:=False) nunca se llega a ajecutar (realmente)
puesto que "viene" de una ejecucion del Procedure:="Actualizar" y su "EarliestTime" (justo) "acaba de suceder"

se puede omitir la primer llamada el metodo y "mover" la instruccion "On Error Resume Next" al Sub detener()
incluso, podria (re)programarse el metodo dentro del mismo procedimiento Sub Actualizar() (auto-llamandose a si mismo)

saludos,
hector.

__ la propuesta original __

Public tiempototal As Double
Public Const Tiempo As String = "00:00:30"
Sub Crono()
On Error Resume Next
Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=False
tiempototal = Now + TimeValue(Tiempo)
Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=True
End Sub
Sub Actualizar()
Calculate
Crono
End Sub
Sub detener()
Application.OnTime EarliestTime:=tiempototal, _
Procedure:="Actualizar", _
Schedule:=False
End Sub

Hola H.M., corrigeme si me equivoco:

Supon que borro de la macro "crono", las lineas que mencionas. Ahora,
sin esas lineas, activo la macro, y apenas unos segundos despues, sin
usar la macro "detener", vuelvo a activar la macro "crono": Resultado:
un enredo de cada x segundos :(

Enonces, mi idea era que si una persona ya activo la macro "crono", y
no uso la macro "detener" y vuelve a activar "crono", pues que esta
ultima macro detenga el proceso del OnTime y se inicie sin el dilema/
enredo que menciono.

Yo ya habia probado sin esas lineas, y active 2 o 3 veces "crono" y
obtuve resultados cadad 10, o 15 o x segundos... por eso las lineas
que agregue.

Alguna sugerencia al respecto?

Abraham





On 8 feb, 00:22, "Héctor Miguel"
wrote:

hola, Abraham !

> Creo que esto, o algo asi, te puede servir... eso si, no me termina de convencer, pero creo que cumple su funcion :)

en el Sub Crono(), la primer llamada al metodo "OnTime" (con el Schedule:=False) nunca se llega a ajecutar (realmente)
puesto que "viene" de una ejecucion del Procedure:="Actualizar" y su "EarliestTime" (justo) "acaba de suceder"

se puede omitir la primer llamada el metodo y "mover" la instruccion "On Error Resume Next" al Sub detener()
incluso, podria (re)programarse el metodo dentro del mismo procedimiento Sub Actualizar() (auto-llamandose a si mismo)

saludos,
hector.

__ la propuesta original __



> Public tiempototal As Double
> Public Const Tiempo As String = "00:00:30"
> Sub Crono()
> On Error Resume Next
>  Application.OnTime EarliestTime:=tiempototal, _
>        Procedure:="Actualizar", _
>        Schedule:=False
>  tiempototal = Now + TimeValue(Tiempo)
>  Application.OnTime EarliestTime:=tiempototal, _
>        Procedure:="Actualizar", _
>        Schedule:=True
> End Sub
> Sub Actualizar()
> Calculate
> Crono
> End Sub
> Sub detener()
>  Application.OnTime EarliestTime:=tiempototal, _
>        Procedure:="Actualizar", _
>        Schedule:=False
> End Sub- Ocultar texto de la cita -

- Mostrar texto de la cita -

hola, Abraham !

Hola H.M., corrigeme si me equivoco:
Supon que borro de la macro "crono", las lineas que mencionas. Ahora, sin esas lineas, activo la macro
y apenas unos segundos despues, sin usar la macro "detener", vuelvo a activar la macro "crono":
Resultado: un enredo de cada x segundos :(
Enonces, mi idea era que si una persona ya activo la macro "crono", y no uso la macro "detener" y vuelve a activar "crono"
pues que esta ultima macro detenga el proceso del OnTime y se inicie sin el dilema/enredo que menciono.
Yo ya habia probado sin esas lineas, y active 2 o 3 veces "crono" y obtuve resultados cadad 10, o 15 o x segundos...
por eso las lineas que agregue. Alguna sugerencia al respecto?

bajo la suposicion que plantas, es correcto el razonamiento de incluir ambos metodos en el Sub Crono()
lo unico que estaria sucediendo (asumiendo que el usuario se la pasa ejecutando el "crono" cada x_segundos)
es que estaria "retrasando" la programacion que se habia hecho x_segundos "antes"
(con lo que podria conseguir que -en realidad- no se llegue a ejecutar nunca)

si el requisito fuera que la ejecucion (inicial) no admitiera (re)programaciones posteriores
habria que buscar un "candado logico" que haga un salto en la secuencia de cualquier reprogramacion "no admitida"
(lo cual no es sencillo, ya que la logica tendra que descartarse a si misma, y cada OnTime tiene "su propio tiempo")

por otro lado, lo de mover (o copiar) la instruccion On Error Resume Next (creo que) no esta de sobra...
si el usuario ejecuta tambien mas de una vez el Sub detener(), va a obtener errores en sus "segundas ejecuciones"

saludos,
hector.