Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date addition/format
I have a button on my ss that I want to use to create a new worksheet. The
catch is that I want the name to be a date cell plus 14 days. Here is what I have so far. Sub Save_New_Tab_Click() Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), Date, "mm_dd_yyyy") End Sub A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet name in format mm_dd_yyyy. This has been driving me crazy all afternoon. What am I doing wrong? TIA Gerald -- Message posted via http://www.officekb.com |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date addition/format
Sub Save_New_Tab_Click()
Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), "mm_dd_yyyy") End Sub -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "gjameson via OfficeKB.com" <u21717@uwe wrote in message news:6dc3364fbea6c@uwe... I have a button on my ss that I want to use to create a new worksheet. The catch is that I want the name to be a date cell plus 14 days. Here is what I have so far. Sub Save_New_Tab_Click() Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), Date, "mm_dd_yyyy") End Sub A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet name in format mm_dd_yyyy. This has been driving me crazy all afternoon. What am I doing wrong? TIA Gerald -- Message posted via http://www.officekb.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date addition/format
Sorry, that should be
Sub Save_New_Tab_Click() Worksheets.Add(After:=Worksheets(Worksheets.Count) ).Name = _ Format((Range("A2").Value + 14), "mm_dd_yyyy") End Sub -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "gjameson via OfficeKB.com" <u21717@uwe wrote in message news:6dc3364fbea6c@uwe... I have a button on my ss that I want to use to create a new worksheet. The catch is that I want the name to be a date cell plus 14 days. Here is what I have so far. Sub Save_New_Tab_Click() Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), Date, "mm_dd_yyyy") End Sub A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet name in format mm_dd_yyyy. This has been driving me crazy all afternoon. What am I doing wrong? TIA Gerald -- Message posted via http://www.officekb.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date addition/format
What you are doing wrong is giving Format 3 parameters, when it is looking for
only two. Take out the " Date," from your Format function. -- Regards, Fred "gjameson via OfficeKB.com" <u21717@uwe wrote in message news:6dc3364fbea6c@uwe... I have a button on my ss that I want to use to create a new worksheet. The catch is that I want the name to be a date cell plus 14 days. Here is what I have so far. Sub Save_New_Tab_Click() Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), Date, "mm_dd_yyyy") End Sub A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet name in format mm_dd_yyyy. This has been driving me crazy all afternoon. What am I doing wrong? TIA Gerald -- Message posted via http://www.officekb.com |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date addition/format
He is also trying to pick up the date from the wrong sheet.
-- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Fred Smith" wrote in message ... What you are doing wrong is giving Format 3 parameters, when it is looking for only two. Take out the " Date," from your Format function. -- Regards, Fred "gjameson via OfficeKB.com" <u21717@uwe wrote in message news:6dc3364fbea6c@uwe... I have a button on my ss that I want to use to create a new worksheet. The catch is that I want the name to be a date cell plus 14 days. Here is what I have so far. Sub Save_New_Tab_Click() Worksheets.Add After:=Worksheets(Worksheets.Count) Worksheets(Worksheets.Count).Name = Format((Range("A2").Value + 14), Date, "mm_dd_yyyy") End Sub A2 has my date in this format mm/dd/yyyy. add 14 days to get worksheet name in format mm_dd_yyyy. This has been driving me crazy all afternoon. What am I doing wrong? TIA Gerald -- Message posted via http://www.officekb.com |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
Date addition/format
Gentlemen,
Thank you so much for your help. I would have responded sooner, but i was out sick most of last week. Thanks again for the help. Gerald Bob Phillips wrote: He is also trying to pick up the date from the wrong sheet. What you are doing wrong is giving Format 3 parameters, when it is looking for only two. Take out the " Date," from your Format function. [quoted text clipped - 20 lines] TIA Gerald -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...mming/200702/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
permanent conversion of 1904 date format to 1900 date format | Excel Worksheet Functions | |||
addition to my date formula...required | Excel Worksheet Functions | |||
Addition to Turn cell red if today is greater or equal to date in cell | New Users to Excel | |||
code to convert date from TEXT format (03-02) to DATE format (200203) | Excel Programming | |||
Change a date in text format xx.xx.20xx to a recognised date format | Excel Programming |