Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Code to conditional format all black after date specified in code? | Excel Discussion (Misc queries) | |||
Convert a julian gregorian date code into a regular date | Excel Worksheet Functions | |||
VBA Code to add date | Excel Programming | |||
code to convert date from TEXT format (03-02) to DATE format (200203) | Excel Programming | |||
code pasting a date changes date format in current month only | Excel Programming |