Didn´t Work! Put in cell Last Modified spreadsheet value

FlavioRJ · May 9th, 2002, 06:49 PM

Hi!!
I´m still having problems with this...

I have 400 spreadsheets and they all were saved in some day (from Jan 1 till today)
The problem is that the date is set to the formula TODAY()... Now I fixed this...
But I would like those 400 spreadsheets do display in cell A1 for example the date it was modified for the last time... That column that appears in Windows Explorer..
Is there a way to obtain those values automatically?? Without looking and typing...

THANKS A LOT!!!

Colo · May 9th, 2002, 07:41 PM

Hi FlavioRJ,

Quote:

On 2002-05-09 17:49, FlavioRJ wrote:
Hi!!
I´m still having problems with this...

I have 400 spreadsheets and they all were saved in some day (from Jan 1 till today)
The problem is that the date is set to the formula TODAY()... Now I fixed this...
But I would like those 400 spreadsheets do display in cell A1 for example the date it was modified for the last time... That column that appears in Windows Explorer..
Is there a way to obtain those values automatically?? Without looking and typing...

THANKS A LOT!!!

So, please try this way.



'Please put this code into Thisworkbook Module

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

  Sh.[A1].Value = Now

End Sub

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

May 9th, 2002, 06:49 PM	#1
FlavioRJ New Member Join Date: May 2002 Posts: 2	Hi!! I´m still having problems with this... I have 400 spreadsheets and they all were saved in some day (from Jan 1 till today) The problem is that the date is set to the formula TODAY()... Now I fixed this... But I would like those 400 spreadsheets do display in cell A1 for example the date it was modified for the last time... That column that appears in Windows Explorer.. Is there a way to obtain those values automatically?? Without looking and typing... THANKS A LOT!!!