PDA

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