Actualización automática de celdas

Pega este código en el módulo del libro (en ThisWorkbook), pero haz algunas pruebas en una copia del libro, no vaya a ser que el código no haga exactamente lo que necesitas y pierdas algún dato:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim dp As DocumentProperty
Dim blnExiste As Boolean

For Each dp In ThisWorkbook.CustomDocumentProperties
If dp.Name = "FechaActual" Then blnExiste = True
Next dp

If Not blnExiste Then ThisWorkbook.CustomDocumentProperties.Add Name:="FechaActual", Type:=msoPropertyTypeDate, Value:=CLng(Now()), LinkToContent:=False Else ThisWorkbook.CustomDocumentProperties("FechaActual").Value = CLng(Now())

Set dp = Nothing
End Sub

Private Sub Workbook_Open()
'La siguiente vez que se abra el libro, si la fecha es posterior a la de la última vez que se guardó, el valor de la celda A1 de Hoja1 se copiará a la celda A1 de Hoja2.
If ThisWorkbook.CustomDocumentProperties("FechaActual") < CLng(Now()) Then Worksheets("Hoja2").Range("A1") = Worksheets("Hoja1").Range("A1")
End Sub

Tendrás que modificar las celdas "origen" y "destino" y el nombre de las hojas, supongo.
Un saludo.


Fernando Arroyo
MS MVP - Excel

"Dario" escribió en el mensaje news:

Necesito que me ayuden a resolver lo siguiente:
Tengo una celda que todos los días se actualiza en forma manual con el saldo de un banco, y al cierre del día debo tomar ese valor y guardarlo en otra hoja dentro del mismo archivo, obviamente con copiar y pegar lo soluciono, pero busco automatizar esto de manera tal que al cambiar el día me lleve el valor a otro lado. Espero sus comentarios
Saludos a todos

Darío