Pausar macro que se ejecuta cada 10 seg. conforme al valor de una celda
Publicado por Liz (2 intervenciones) el 22/05/2019 18:08:12
Tengo este programa que me sirve para guardar datos de mi trabajo cada 10 segundos.
Me gustaría que la aplicación OnTime corriera únicamente si en la celda A1 de la hoja 7 se tiene un 0, y si tiene un 1 esta se detenga para así poder correr otra macro distinta.
Cuando A1 vuelva a contener un 0, la aplicación OnTime seguirá su curso.
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ProgramarMacro()
Tiempo = NowRunWhen = Tiempo + TimeValue("00:00:10")
Hora = RunWhenApplication.OnTime EarliestTime:=RunWhen, Procedure:="Llamar", Schedule:=True
End Sub
Sub llamar()
Call Secado
Call Quebrado
Call Pulverizado
Call Preparacion
Call ProgramarMacro
End Sub
Me gustaría que la aplicación OnTime corriera únicamente si en la celda A1 de la hoja 7 se tiene un 0, y si tiene un 1 esta se detenga para así poder correr otra macro distinta.
Cuando A1 vuelva a contener un 0, la aplicación OnTime seguirá su curso.
Valora esta pregunta
0
