Activar macro con el valor de una celda
Hola, te explico lo que necesito, en una celda (A1) le inserte un reloj actualizable(macro) y en A2 le programo una hora determinada,
13:13:22 si(A1<A2;0;1)
14:00:00
Lo que necesito es que cuando el reloj llegue a la hora que programé se active una macro "ACTUALIZAR_DATOS_WEB", para ello coloque una condición en B1 si(A1<A2;0;1) quiere decir que cuando A1 pase de la hora
Que programé coloque el numero 1.
Y luego hice esta macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value = "1" Then
Run "ACTUALIZAR_DATOS_WEB"
End If
End If
End Sub
El problema es que la macro se dispara solo si le ingreso el numero 1 a través del teclado y no cuando la condición se cumple.
¿Hay alguna forma de hacerlo?
Desde ya gracias por tu ayuda
13:13:22 si(A1<A2;0;1)
14:00:00
Lo que necesito es que cuando el reloj llegue a la hora que programé se active una macro "ACTUALIZAR_DATOS_WEB", para ello coloque una condición en B1 si(A1<A2;0;1) quiere decir que cuando A1 pase de la hora
Que programé coloque el numero 1.
Y luego hice esta macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
If Target.Value = "1" Then
Run "ACTUALIZAR_DATOS_WEB"
End If
End If
End Sub
El problema es que la macro se dispara solo si le ingreso el numero 1 a través del teclado y no cuando la condición se cumple.
¿Hay alguna forma de hacerlo?
Desde ya gracias por tu ayuda
1 Respuesta
Respuesta de Elsa Matilde
1
Es cierto lo que mencionás, con el evento Change solo se controlan los cambios 'manuales' y no hay evento que controle el cambio automático de celdas.
Se me ocurre que pruebes de controlar el evento Calculate de tu hoja. Si el cálculo está en automático, al realizar un cálculo y actualizar la hora podrá evaluar el contenido de la celda.
Tendrías que probar con una rutina como esta . Pero atención que la celda seguirá estando en 1 a lo largo del minuto, cualquier otro cálculo que realices te volverá a ejecutar... todo dependerá de cuál sea tu proceso en general.
Private Sub Worksheet_Calculate()
If Range("B1") = 1 Then
Call ACTUALIZAR_DATOS_WEB
End If
Se me ocurre que pruebes de controlar el evento Calculate de tu hoja. Si el cálculo está en automático, al realizar un cálculo y actualizar la hora podrá evaluar el contenido de la celda.
Tendrías que probar con una rutina como esta . Pero atención que la celda seguirá estando en 1 a lo largo del minuto, cualquier otro cálculo que realices te volverá a ejecutar... todo dependerá de cuál sea tu proceso en general.
Private Sub Worksheet_Calculate()
If Range("B1") = 1 Then
Call ACTUALIZAR_DATOS_WEB
End If
Hola Elsa, te agradezco muchísimo tu ayuda, funcionó a la perfección!, solo le tuve que cambiar el signo a la condición (< por =) para que se dispare la macro solo una vez.
Nuevamente gracias y hasta la próxima.
Saludos
Javier
Nuevamente gracias y hasta la próxima.
Saludos
Javier
