Is there a way of displaying in another cell the date a cell was last updated?
Cheers
Is there a way of displaying in another cell the date a cell was last updated?
Cheers
Hi,Originally Posted by Sparrow
Yes, but you need some VB code triggered by a Worksheet_Change event.
Is this for a single cell, a column, or a range of cells?
---
Si fractum non sit, noli id reficere.
It would be for a column , but i would want to know the date of each cell in the column. I would expect there to be around 200-600 cells in the column that i would require this
cheers
Hi,Originally Posted by Sparrow
ok - on the required sheet, rightmouse the tab and select View Code, paste the code there.When you amend column A then B will be date-time stamped.Private Sub Worksheet_Change(ByVal Target As Range) Const WS_Range As String = "A:A" ' <<< set your range Application.EnableEvents = False Application.ScreenUpdating = False Dim iRow As Integer Dim Today Today = Now On Error Resume Next If Not Intersect(Target, Me.Range(WS_Range)) Is Nothing Then iRow = Target.Row With ActiveSheet Range("B" & iRow).Value = Today End With End If Application.EnableEvents = True Application.ScreenUpdating = True On Error GoTo 0 End Sub Sub reset() Application.EnableEvents = True Application.ScreenUpdating = True End Sub
if you see #### in B then widen the column.
Let me know how you go
---
Bryan
I've had a quick play with this and it seems like exactly what i needed.
Thanks
S
Hi,Originally Posted by Sparrow
Good to see that it works for you, and thanks for the response.
---
btw, the 'Reset' code will reset the 'Events' option if the code should abort for any reason (and then appear to stop working because Events = False). You can run 'Reset' any time, it harms nothing.
---
Last edited by Bryan Hessey; 11-22-2006 at 05:47 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks