Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
AutoName Sheets by current date
Hi everyone... I was wondering what code I need to use to force excel to rename newly created worksheets as the current date. ie.(today is 25-May-06, therefore when I create a new sheet, I want it to name the sheet 25-May-06.) I know it's a bit silly because I can just name them each day.... however I have one of these for each day of the year and 7 different workbooks all with the same "naming" scheme. Any help would be greatly appreciated. -- Cromag_762003 ------------------------------------------------------------------------ Cromag_762003's Profile: http://www.excelforum.com/member.php...o&userid=34810 View this thread: http://www.excelforum.com/showthread...hreadid=545664 |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
AutoName Sheets by current date
hi,
try working something like this in your code. Sub NameNewSheet() Dim da As Long Dim mo As String Dim yr As Long da = DatePart("d", Date, dd) mo = DatePart("m", Date, mm) yr = DatePart("yyyy", Date, yy) Sheets.Add Sheets("Sheet2").Select Sheets("Sheet2").Name = da & "_" & mo & "_" & yr End Sub regards FSt1 "Cromag_762003" wrote: Hi everyone... I was wondering what code I need to use to force excel to rename newly created worksheets as the current date. ie.(today is 25-May-06, therefore when I create a new sheet, I want it to name the sheet 25-May-06.) I know it's a bit silly because I can just name them each day.... however I have one of these for each day of the year and 7 different workbooks all with the same "naming" scheme. Any help would be greatly appreciated. -- Cromag_762003 ------------------------------------------------------------------------ Cromag_762003's Profile: http://www.excelforum.com/member.php...o&userid=34810 View this thread: http://www.excelforum.com/showthread...hreadid=545664 |
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
AutoName Sheets by current date
Thanks for your response FSt1... The code you gave me will work.... however it displays in the format of "dd_mm_yyyy" is there a way to make it display in the format of "dd_mmm_yy" Thanks again for your help -- Cromag_762003 ------------------------------------------------------------------------ Cromag_762003's Profile: http://www.excelforum.com/member.php...o&userid=34810 View this thread: http://www.excelforum.com/showthread...hreadid=545664 |
#4
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
AutoName Sheets by current date
Sub NameNewSheet()
Sheets.Add Activesheet.name = format(date, "dd_mmm_yy") End Sub (But I'd use a 4 digit year--just to avoid confusion/ambiguity.) Cromag_762003 wrote: Thanks for your response FSt1... The code you gave me will work.... however it displays in the format of "dd_mm_yyyy" is there a way to make it display in the format of "dd_mmm_yy" Thanks again for your help -- Cromag_762003 ------------------------------------------------------------------------ Cromag_762003's Profile: http://www.excelforum.com/member.php...o&userid=34810 View this thread: http://www.excelforum.com/showthread...hreadid=545664 -- Dave Peterson |
#5
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
AutoName Sheets by current date
Thanks everyone it works great. -- Cromag_762003 ------------------------------------------------------------------------ Cromag_762003's Profile: http://www.excelforum.com/member.php...o&userid=34810 View this thread: http://www.excelforum.com/showthread...hreadid=545664 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Most Current Date | Excel Worksheet Functions | |||
Formula to subtract a date from current date | Excel Worksheet Functions | |||
enter a current date in a cell? | Excel Discussion (Misc queries) | |||
calculating excel spreadsheet files for pensions and life insurance (including age calculation sheets) | Excel Worksheet Functions | |||
Calculating days between current date and a date in future NETWORKDAYS() function | Excel Worksheet Functions |