Visual Basic - Pausar macro que se ejecuta cada 10 seg. conforme al valor de una celda

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 6 puestos en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

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.

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ProgramarMacro()
Tiempo = Now
RunWhen = Tiempo + TimeValue("00:00:10")
Hora = RunWhen
Application.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
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 4.008
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Pausar macro que se ejecuta cada 10 seg. conforme al valor de una celda

Publicado por Andres Leonardo (1666 intervenciones) el 22/05/2019 20:15:04
Pues estew codigo cuando quieras evaluar...


1
2
3
4
5
6
if sheets("Hoja7").range("A1").value  = 0 then
 
        hago lo que tengo que hacer si esta en 0
else
          hago lo que tiene si esta en  1.....
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar