ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Date addition/format (https://www.excelbanter.com/excel-programming/383171-date-addition-format.html)

gjameson via OfficeKB.com

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


Bob Phillips

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




Bob Phillips

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




Fred Smith

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




Bob Phillips

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






gjameson via OfficeKB.com

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



All times are GMT +1. The time now is 07:25 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com