Application.OnTime

18/09/2007 - 14:52 por AgerGaston | Informe spam
Hola a todos.
Dias atras encontre una vieja macro, que pone en una celda determinada la
hora en minutos y segundos. Todo funciona ok, pero no me deja cerrar el
libro, me pueden decir porque ?.

Les copio la macro

Sub TiempoLoco()
Range("D7").Formula = "=NOW()"
Application.OnTime Now + TimeValue("00:00:01"), "TiempoLoco"
End Sub

Sub auto_Open()
Call TiempoLoco
End Sub

No me da ningun tipo de error ni nada, simplemente no cierra el libro, la
unica forma de cerrarlo, es cerrar el excel por completo.

Gracias

Preguntas similare

Leer las respuestas

#6 Héctor Miguel
21/09/2007 - 22:21 | Informe spam
hola, Abraham !

... en realidad si puedes usar el Shedule = False, asi en la macro que "corre" el Ontime, no este en True.
mi error fue el codigo, pues, en un "lapsus brutus", obvie parte:
Sub detener()
Application.OnTime EarliestTime:=Now + TimeValue("00:00:01"), _
Procedure:="TiempoLoco", Schedule:=False
End Sub



1) *nota* que en la forma que describes para *detener* un metodo *OnTime*
lo que estas haciendo [en realidad] es:
a) *programando* un *siguiente* EarliestTime
b) *programas* lanzarlo *a partir de* -> Now + TimeValue("00:00:01")
c) *abortas* la programacion *recien programada* con: -> Schedule:=False

-> NO estas *deteniendo* un metodo OnTime *lanzado* medio segundo ANTES que este *Schedule:=Fase*

2) si revisas *el uso correcto* [enla pagina sugerida], notaras que:
a) el *EarliestTime* se corresponde con una variable *previamente* establecida
b) como NO es *re/establecida* para cada *EarliestTime*
c) lo que *decidas* con *Schedule:=* [true o false]...
-> hara referencia a la variable [tiempo de lanzado] *previamente* establecida

las diferencias de las formas anteriores serian mas *notables* si el TimeValue fuera mayor de "00:00:01"
[no se si sea claro este *punto de vista*.. pero]

si cualquier duda... comentas ?
saludos,
hector.
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una pregunta AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida