Consulta a otro libro y evento Worksheet_calculate
publicado
Buenas tardes:
Llevo dias intententando solucionan un problema y no encuentro solucion.
Tengo dos libro
1.DATOS GENERALES
2.PRIMERA SEMANA
En el libro primera semana hay una consulta a una celda especifica en el libro: DATOS GENERALES,
Esta consulta se actualiza al abrir el libro PRIMERA SEMANA, y lo que necesito es que cuando la celda donde tengo la consulta en este libro(PRIMERA SEMANA) ejecute una macro cuando detecta un cambio de fecha.
El problema es que al abrir el libro se ejecuta la macro haya cambio en la fecha o no y no lo entiendo
Ya una vez abierto fuenciona bien (solo se ejecuta cuando hay cambio de celda)..............el problema me viene al abrir el libro en cuestion (PRIMERA SEMANA)
Este es el Codigo
Private Sub Worksheet_Calculate()
Static anteriorvalor As Variant
If Range("CELDA_FECHA_TRABAJADOR").Value <> anteriorvalor Then
anteriorvalor = Range("CELDA_FECHA_TRABAJADOR").Value
MsgBox ("El nuevo valor del Area es " & anteriorvalor)
End If
End Sub
lo tengo puesto en la hoja donde esta puesta la consulta (TRABAJADORES).
¿porque se me ejecuta al abrir el libro si no hay cambio de fecha?.
Gracias
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenas tardes:
Llevo dias intententando solucionan un problema y no encuentro solucion.
Tengo dos libro
1.DATOS GENERALES
2.PRIMERA SEMANA
En el libro primera semana hay una consulta a una celda especifica en el libro: DATOS GENERALES,
Esta consulta se actualiza al abrir el libro PRIMERA SEMANA, y lo que necesito es que cuando la celda donde tengo la consulta en este libro(PRIMERA SEMANA) ejecute una macro cuando detecta un cambio de fecha.
El problema es que al abrir el libro se ejecuta la macro haya cambio en la fecha o no y no lo entiendo
Ya una vez abierto fuenciona bien (solo se ejecuta cuando hay cambio de celda)..............el problema me viene al abrir el libro en cuestion (PRIMERA SEMANA)
Este es el Codigo
Private Sub Worksheet_Calculate() Static anteriorvalor As Variant If Range("CELDA_FECHA_TRABAJADOR").Value <> anteriorvalor Then anteriorvalor = Range("CELDA_FECHA_TRABAJADOR").Value MsgBox ("El nuevo valor del Area es " & anteriorvalor) End If End Sub
lo tengo puesto en la hoja donde esta puesta la consulta (TRABAJADORES).
¿porque se me ejecuta al abrir el libro si no hay cambio de fecha?.
Gracias