Hello,
I need to create a list of month wich would equal their string expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel

newFileStr = "Projection " & format(date,"mmmm") & "-March " & _
Left(Sheets(1).Name, 9)

is one way.

Daniel wrote:

Hello,
I need to create a list of month wich would equal their string expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel

--

Dave Peterson

Hi Daniel

Number to month ? Try this:

Sub test()
Dim L As Long
L = Application.InputBox("ENter month (1 to 12):", Type:=1)
Select Case L
Case 1 To 12
MsgBox StrConv(Format(DateSerial(1990, L, 1), "mmmm"), _
vbProperCase)
Case Else
End Select
End Sub

HTH. Best wishes Harald

"Daniel" skrev i melding
...
Hello,
I need to create a list of month wich would equal their string expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel

And then there is (worked in Excel 2000):

Dim mon As String, x As Integer
For x = 1 To 12
mon = Left(MonthName(x), 3)
MsgBox mon
Next


--
steveB

Remove "AYN" from email to respond
"Daniel" wrote in message
...
Hello,
I need to create a list of month wich would equal their string expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel

But wouldn't work in Excel 97 - just for information.

for the question as stated,

mon = MonthName(x)

would be better

currentMonthStr would equal July for
example.

--
Regards,
Tom Ogilvy

"STEVE BELL" wrote in message
news:TAfAe.1305$Gk4.934@trnddc01...
And then there is (worked in Excel 2000):

Dim mon As String, x As Integer
For x = 1 To 12
mon = Left(MonthName(x), 3)
MsgBox mon
Next


--
steveB

Remove "AYN" from email to respond
"Daniel" wrote in message
...
Hello,
I need to create a list of month wich would equal their string
expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel

Thanks Tom.

Got confused - he did refer to: "( 01 = Jan, 02 = Feb, ...., 12=Dec )"
showing mmm, yet in his example he did show mmmm

But I did say it worked in 2000...

--
steveB

Remove "AYN" from email to respond
"Tom Ogilvy" wrote in message
...
But wouldn't work in Excel 97 - just for information.

for the question as stated,

mon = MonthName(x)

would be better

currentMonthStr would equal July for
example.

--
Regards,
Tom Ogilvy

"STEVE BELL" wrote in message
news:TAfAe.1305$Gk4.934@trnddc01...
And then there is (worked in Excel 2000):

Dim mon As String, x As Integer
For x = 1 To 12
mon = Left(MonthName(x), 3)
MsgBox mon
Next


--
steveB

Remove "AYN" from email to respond
"Daniel" wrote in message
...
Hello,
I need to create a list of month wich would equal their string
expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel

But I did say it worked in 2000...

Yes you did and that could be expanded to xl2000 or later. I added that is
does not work in xl97 and I should have said "And Earlier"

Unless you prefer the OP not be aware of that.
--
Regards,
Tom Ogilvy

"STEVE BELL" wrote in message
news:_SgAe.23363$ZN6.7788@trnddc02...
Thanks Tom.

Got confused - he did refer to: "( 01 = Jan, 02 = Feb, ...., 12=Dec )"
showing mmm, yet in his example he did show mmmm

But I did say it worked in 2000...

--
steveB

Remove "AYN" from email to respond
"Tom Ogilvy" wrote in message
...
But wouldn't work in Excel 97 - just for information.

for the question as stated,

mon = MonthName(x)

would be better

currentMonthStr would equal July for
example.

--
Regards,
Tom Ogilvy

"STEVE BELL" wrote in message
news:TAfAe.1305$Gk4.934@trnddc01...
And then there is (worked in Excel 2000):

Dim mon As String, x As Integer
For x = 1 To 12
mon = Left(MonthName(x), 3)
MsgBox mon
Next


--
steveB

Remove "AYN" from email to respond
"Daniel" wrote in message
...
Hello,
I need to create a list of month wich would equal their string
expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July for
example.

Someone has an idea how to do this?

Thanks

Daniel

The OP should know as much as possible.

The problem is with me - I suffer constant "Senior Moments"... and don't
remember the
differences between 2000 and other versions. I just hope that by showing it
worked in 2000 might alert the OP to double check the version being used...

--
steveB

Remove "AYN" from email to respond
"Tom Ogilvy" wrote in message
...
But I did say it worked in 2000...

Yes you did and that could be expanded to xl2000 or later. I added that
is
does not work in xl97 and I should have said "And Earlier"

Unless you prefer the OP not be aware of that.
--
Regards,
Tom Ogilvy

"STEVE BELL" wrote in message
news:_SgAe.23363$ZN6.7788@trnddc02...
Thanks Tom.

Got confused - he did refer to: "( 01 = Jan, 02 = Feb, ...., 12=Dec )"
showing mmm, yet in his example he did show mmmm

But I did say it worked in 2000...

--
steveB

Remove "AYN" from email to respond
"Tom Ogilvy" wrote in message
...
But wouldn't work in Excel 97 - just for information.

for the question as stated,

mon = MonthName(x)

would be better

currentMonthStr would equal July for
example.

--
Regards,
Tom Ogilvy

"STEVE BELL" wrote in message
news:TAfAe.1305$Gk4.934@trnddc01...
And then there is (worked in Excel 2000):

Dim mon As String, x As Integer
For x = 1 To 12
mon = Left(MonthName(x), 3)
MsgBox mon
Next


--
steveB

Remove "AYN" from email to respond
"Daniel" wrote in message
...
Hello,
I need to create a list of month wich would equal their string
expression
( 01 = Jan, 02 = Feb, ...., 12=Dec )

Then I would have something like :
newFileStr = "Projection " & currentMonthStr & "-March " &
Left(Sheets(1).Name, 9), so that currentMonthStr would equal July
for
example.

Someone has an idea how to do this?

Thanks

Daniel