VBA Code to add date
Excellent! This works like I needed it to. Now, 1 more question. Is it possible to set the sheet to automaticl insert todays date when I save the document? Instead of having to clic that button? This is for an Invoice Template I am setting up. Thanks JMay Wrote: Private Sub CommandButton1_Click() Range("E11").Value = Format(Date, "mmmm dd,yyyy") End Sub "npereira" wrote in message ... Hello all, I am trying to find out what code to add to a command button t insert todays date formated as " October 17, 2004 " in Cell E 11. Please let me know. regards, Nelson -- npereira ------------------------------------------------------------------------ npereira's Profile: http://www.excelforum.com/member.php...o&userid=10799 View this thread http://www.excelforum.com/showthread...hreadid=269988 -- npereir ----------------------------------------------------------------------- npereira's Profile: http://www.excelforum.com/member.php...fo&userid=1079 View this thread: http://www.excelforum.com/showthread.php?threadid=26998 |
VBA Code to add date
There's a workbook_beforesave event that you can tap into.
Rightclick on the excel icon to the left of the File dropdown on the worksheet menubar. Select view code and paste this in that codewindow. Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) With Me.Worksheets("sheet1").Range("e11") .Value = Date .NumberFormat = "mmmm dd, yyyy" End With End Sub Amend the worksheet name to what you want. npereira wrote: Excellent! This works like I needed it to. Now, 1 more question. Is it possible to set the sheet to automaticly insert todays date when I save the document? Instead of having to click that button? This is for an Invoice Template I am setting up. Thanks JMay Wrote: Private Sub CommandButton1_Click() Range("E11").Value = Format(Date, "mmmm dd,yyyy") End Sub "npereira" wrote in message ... Hello all, I am trying to find out what code to add to a command button to insert todays date formated as " October 17, 2004 " in Cell E 11. Please let me know. regards, Nelson -- npereira ------------------------------------------------------------------------ npereira's Profile: http://www.excelforum.com/member.php...o&userid=10799 View this thread: http://www.excelforum.com/showthread...hreadid=269988 -- npereira ------------------------------------------------------------------------ npereira's Profile: http://www.excelforum.com/member.php...o&userid=10799 View this thread: http://www.excelforum.com/showthread...hreadid=269988 -- Dave Peterson |
All times are GMT +1. The time now is 06:51 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com