Prev: How to set the column title in a listbox from Excel
Next: Convert uppercase to lowercase
From: outrigger on 22 Dec 2009 10:28
Using 2003. I have a work sheet, at the bottom I have "Updated" and in the
next cell I simply put in =Now(). This brings up the date and time each time
I open. Now what I want to do is see when I last opened and updated. How
can I do this
From: Gary''s Student on 22 Dec 2009 10:50
Le t's say you want cell B9 in Sheet1 to contain the date the last time the
workbook was saved. Put the following event macro in the workbook code area:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("B9").Value = Date
End Sub

Because it is workbook code, it is very easy to install and use:

1. right-click the tiny Excel icon just to the left of File on the Menu Bar
2. select View Code - this brings up a VBE window
3. paste the stuff in and close the VBE window

If you save the workbook, the macro will be saved with it.

To remove the macro:

1. bring up the VBE windows as above
2. clear the code out
3. close the VBE window

To learn more about macros in general, see:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

To learn more about Event Macros (workbook code), see:

http://www.mvps.org/dmcritchie/excel/event.htm

--
Gary''s Student - gsnu200909


"outrigger" wrote:

> Using 2003. I have a work sheet, at the bottom I have "Updated" and in the
> next cell I simply put in =Now(). This brings up the date and time each time
> I open. Now what I want to do is see when I last opened and updated. How
> can I do this
From: Ryan H on 22 Dec 2009 12:31
You can use this to set your update date.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Sheet1").Range("B9").Value = Date
End Sub

You can use this to show the last time the file was opened, but you will
need to be sure to save the data. Most likely your Last Opened and Last
Updated dates will be the same, unless you want a time stamp. Do you want a
time stamp?

Private Sub Workbook_Open()
Sheets("Sheet1").Range("A2").Value = "Last Opended - " & Date
End Sub

Hope this helps! If so, let me know, click "YES" below.
--
Cheers,
Ryan


"outrigger" wrote:

> Using 2003. I have a work sheet, at the bottom I have "Updated" and in the
> next cell I simply put in =Now(). This brings up the date and time each time
> I open. Now what I want to do is see when I last opened and updated. How
> can I do this
 | 
Pages: 1
Prev: How to set the column title in a listbox from Excel
Next: Convert uppercase to lowercase