Auto Update

[Gazz_85]

In a document I have I want to be able to display the last time it was
updated on the worksheet. To do this i crested a macro which copies and
pastes the =NOW() funtion into the display cell. This is simply assigned to a
command button and after an update all the user needs to do is click a button
and the last update is completed.

However this seems like to much to ask of certain people and they are
forgetting...cant be bothered to click the button so the last updated field
is wrong.

Is there a way to automate it so that whenever a field is edited (on the
entire worksheet) it auto refreshes the last updated field accordingly???

Cheers,

 

[Jacob Skaria]

Right click the sheet tab> view code and paste the below code in the code
panel. Get back to workbook and try...Adjust the range A1 to suit your
reqirement

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1") = Now
End Sub

If this post helps click Yes

 

[Gazz_85]

Thanks for that,

it works well, it does make the doc a little slower as it takes a little
processing time. Do you know any alternatives that wouldn't do this?? if not
dont worry it works fine

 

[Jacob Skaria]

See whether there is a difference now...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Range("A1") = Now
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

If this post helps click Yes

 

[Gazz_85]

Excellent!!!!!!!!!!!!!!!

See whether there is a difference now...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Range("A1") = Now
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

If this post helps click Yes