Fórmula o macro para que una celda con fecha se modifique si en el documento hubo cambios

Tengo una planilla en donde la celda b1 tiene la fecha

Los datos de esa planilla van desde a3:g54 (hasta ahora, puede aumentar el numero de filas)

Lo que busco es que cada vez que se haga alguna modificación en ese rango en cualquiera de las filas o columnas, la fecha de b1 se actualice.

2 Respuestas

Respuesta

I. Hola Compañero, aunque no conozco la respuesta vi una serie de diferentes opciones utilizando Macros y Fórmulas buscando en Inglés que deseaba trasladarle con la esperanza de que pudiese serle de alguna utilidad mientras una persona conocedora le ofrece orientación.

Le ruego me disculpe por todas las molestias de tanta lectura y el tipo de respuesta. Suerte.


https://www.excelforum.com/excel-formulas-and-functions/1133445-changing-a-cell-value-when-date-has-passed-conditional-formatting.html

https://stackoverflow.com/questions/9311973/automatic-date-update-in-a-cell-when-another-cells-value-changes-as-calculated

https://www.reddit.com/r/excel/comments/1ft1gs9/automatically_update_date_cell_when_changes_are/?tl=es-es

https://www-r--bloggers-com.translate.goog/2024/06/how-to-run-a-macro-when-a-cell-value-changes-in-vba/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www-exceldemy-com.translate.goog/excel-automatic-date-change-formula/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www-ablebits-com.translate.goog/office-addins-blog/excel-conditional-formatting-dates/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www.mrexcel.com/board/threads/vba-code-to-update-excel-date-only-if-changes-occur.799644/

https://www-exceltip-com.translate.goog/tips/using-worksheet-change-event-to-run-macro-when-any-change-is-made.html?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www.quora.com/Can-I-update-a-cell-when-another-cell-is-changed-I-want-to-have-a-column-of-comments-and-another-column-stating-the-date-of-the-last-change-in-comments-Is-there-a-way-to-do-so-without-VBA

https://chandoo-org.translate.goog/forum/threads/creating-a-macro-that-will-change-as-the-document-changes.23778/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://stackoverflow.com/questions/56973058/how-do-i-make-a-function-in-vba-to-display-the-date-that-a-cell-within-a-specifi

https://www-ablebits-com.translate.goog/office-addins-blog/insert-dates-excel/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www.reddit.com/r/excel/comments/qrigmr/macro_recognising_a_date_then_change_the_datas/

https://www.indeed.com/career-advice/career-development/auto-populate-date-in-excel

https://www.youtube.com/watch?v=KDZDpx52sRI

https://www-alteryx-com.translate.goog/blog/excel-date-format?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://superuser-com.translate.goog/questions/1757813/create-a-macro-that-automatically-updates-time-date-but-doesnt-change-when-i?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www.reddit.com/r/excel/comments/qrigmr/macro_recognising_a_date_then_change_the_datas/?tl=es-es

https://superuser-com.translate.goog/questions/1704663/inserting-todays-date-in-a-cell-if-other-cell-values-are-changed-or-added?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc

https://www.youtube.com/watch?v=AAxXq9BLMTY

https://www-access--programmers-co-uk.translate.goog/forums/threads/vba-if-range-value-date-then.300257/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 
https://www.reddit.com/r/excel/comments/18nd425/

Respuesta

En el video Nº 46 de mi canal encontrarás un ejemplo del evento Change de hoja. Y desde el Blog podrás descargar el libro con el ejemplo:

https://elsamatilde.blogspot.com/2021/07/46-eventos-de-hoja-parte-2.html 

https://www.youtube.com/watch?v=zRiu_lKVYo0    (video 46)

Para tu ejemplo podrías resumirlo así:

Private Sub Worksheet_Change(ByVal Target As Range)
'Este código se coloca en la hoja que vayas a controlar
On Error Resume Next
If Target.Count > 1 Then Exit Sub
'se controla cambios en cierto rango. Si no hubo cambios finaliza.
If Intersect(Target, Range("A4:G70")) Is Nothing Then Exit Sub
'si hubo cambios se coloca la fecha del día en celda B1
Range("B1") = Date
On Error GoTo 0
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas