Will somebody help...

[MarkFromTokyo]

with this long-standing issue of mine:

How can I autosave the last save date to a certain cell in a worksheet every time I save that file?

I would appreciate any tip. Thanks.

 

[DonkeyOte]

Could try looking at "on action save" - and then take that date and paste it to a predetermined cell.

 

[Ian Mac]

On 2002-09-27 03:12, MarkFromTokyo wrote:
with this long-standing issue of mine:

How can I autosave the last save date to a certain cell in a worksheet every time I save that file?

I would appreciate any tip. Thanks.

Hi,

welcome to the board.

Could use track changes,

or


open the VBE, Alt & F11
Locate - ThisWorkbook in the explorer on the right.
Double Click it.
In the main window change (general) to 'Workbook',
in the right hand drop down select BeforeSave,

and type in:

Sheets("Sheet1").Range("a1") = Date

between the two lines,

you should have:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("Sheet1").Range("a1") = Date

End Sub

Hope this helps,

Also you could go a little further and put:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Sheets("Sheet1").Range("a1") = Date & " " & Time

End Sub

_________________
Share the wealth!!
Ian Mac
This message was edited by Ian Mac on 2002-09-27 03:23

 

[Bugs]

Try this hope it helps

Sub auto_close()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Range("A1").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWorkbook.Save
End Sub

 

[MarkFromTokyo]

Dear lasw10, Ian Mac, Bugs,

You guys are great! You sure made my life a bit easier.

Arigato gozai ma****a!

Mark