View Full Version : The last date of use
Daxton A.
07-30-2009, 12:08 PM
I am trying to make a date cell for the date that a sheet gets created. Then I want a date cell that shows everytime that a sheet gets marked on.
I already have the creation dates shown, but I am stuck with the last used dates.
Thanks,
Daxton
Benzadeus
07-30-2009, 12:45 PM
(...)Then I want a date cell that shows everytime that a sheet gets marked on.(...)
What is the marked on thing? You mean that you want to trigger the event when the sheet is selected?
Bob Phillips
07-30-2009, 12:46 PM
'-----------------------------------------------------------------
Function DocProps(prop As String)
'-----------------------------------------------------------------
Application.Volatile
On Error GoTo err_value
DocProps = ActiveWorkbook.BuiltinDocumentProperties _
(prop)
Exit Function
err_value:
DocProps = CVErr(xlErrValue)
End Function
and enter in a cell such as
=DocProps ("last author")
or
=DocProps ("last save time")
Benzadeus
07-30-2009, 12:49 PM
Making my assumption above,
Private Sub Worksheet_Activate()
Const strChanged As String = "A2" '<-- change to suit
Range(strChanged) = Now
End Sub
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.