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

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Abraham

18/09/2007 - 21:02 | Informe spam

Primero deten el proceso con esta amcro y despues ya lo cerraras sin
que se vuelva a abrir.:

Sub detener()
Application.OnTime Now + TimeValue("00:00:01"), _
Procedure:="TiempoLoco", Schedule:=False
End Sub

Abraham

Responder a este mensaje

#2 AgerGaston

19/09/2007 - 01:36 | Informe spam

Hola Abraham
copie tal cual la macro que me enviaste y me da el siguiente error:
"error en el metodo ON TIME de objeto_application "

Gracias por responder.

"Abraham" escribió:

Primero deten el proceso con esta amcro y despues ya lo cerraras sin
que se vuelva a abrir.:

Sub detener()
Application.OnTime Now + TimeValue("00:00:01"), _
Procedure:="TiempoLoco", Schedule:=False
End Sub

Abraham

Responder a este mensaje

#3 AgerGaston

20/09/2007 - 20:06 | Informe spam

Hola a todos.
Me pueden dar una mano.

Gracias.

"AgerGaston" escribió:

Hola Abraham
copie tal cual la macro que me enviaste y me da el siguiente error:
"error en el metodo ON TIME de objeto_application "

Gracias por responder.

"Abraham" escribió:

Primero deten el proceso con esta amcro y despues ya lo cerraras sin
que se vuelva a abrir.:

Sub detener()
Application.OnTime Now + TimeValue("00:00:01"), _
Procedure:="TiempoLoco", Schedule:=False
End Sub

Abraham

Responder a este mensaje

#4 Héctor Miguel

21/09/2007 - 07:03 | Informe spam

hola, !

Me pueden dar una mano.

el *problema* es que no puedes usar una una instruccion 'OnTime' con un 'Schedule:=False'
si antes NO habias establecido otra instruccion 'OnTime' con un 'Schedule:=True' :-((
y [probablemente] necesitaras de una instruccion previa de: 'On Error Resume Next' -?-

-> puedes revisar el uso 'correcto' del metodo en: http://www.cpearson.com/excel/ontime.htm

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ las consultas anteriores __

copie tal cual la macro que me enviaste y me da el siguiente error:
"error en el metodo ON TIME de objeto_application "

Abraham escribio:
Primero deten el proceso con esta amcro y despues ya lo cerraras sin que se vuelva a abrir.:
Sub detener()
Application.OnTime Now + TimeValue("00:00:01"), _
Procedure:="TiempoLoco", Schedule:=False
End Sub

Responder a este mensaje

#5 Abraham

21/09/2007 - 21:42 | Informe spam

Hola Hector, 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

Abraham

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

Busqueda sugerida