Formatting calculated number appearing in the text in message boxes
 

I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike

Formatting calculated number appearing in the text in message boxe
 

Format(Range("Rreal").Value,"0.0%")
Format(Range("NPV").Value,"[$$-409]# ##0.00;[$$-409](# ##0.00)")


Regards,
Stefi

€� ezt Ã*rta:

I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike

Formatting calculated number appearing in the text in message boxe
 

Stefi, you're a star! Many thanks

Stefi wrote:

Format(Range("Rreal").Value,"0.0%")
Format(Range("NPV").Value,"[$$-409]# ##0.00;[$$-409](# ##0.00)")


Regards,
Stefi

" ezt írta:

I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike

Formatting calculated number appearing in the text in message boxes
 

Msg = " some text here " & Application.UserName & " more text here
" & Format(Range("IRR").Value / 1000,"0%") & " further text here " &
Format(Range("Rreal").Value / 1000,"0%") & "?"


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

wrote in message
oups.com...
I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike

Formatting calculated number appearing in the text in message
 

You are welcome! Thanks for the feedback!
Stefi


€žMikeCM€� ezt Ã*rta:

Stefi, you're a star! Many thanks

Stefi wrote:

Format(Range("Rreal").Value,"0.0%")
Format(Range("NPV").Value,"[$$-409]# ##0.00;[$$-409](# ##0.00)")


Regards,
Stefi

" ezt Ã*rta:

I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal").Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike

Formatting calculated number appearing in the text in message
 

Stefi/Bob - thanks both of you - much appreciated


Stefi wrote:
You are welcome! Thanks for the feedback!
Stefi


,,MikeCM" ezt írta:

Stefi, you're a star! Many thanks

Stefi wrote:

Format(Range("Rreal").Value,"0.0%")
Format(Range("NPV").Value,"[$$-409]# ##0.00;[$$-409](# ##0.00)")


Regards,
Stefi

" ezt írta:

I have a pretty basic macro, at the end of which will be the appearance
of a couple of "information only" message boxes, written as follows:

Msg = Application.UserName & " some text here " & (Range("Rreal")..Value
/ 1000) & " more text here " & Range("NPV").Value & " further text
here"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer
yes "

If Ans = vbYes Then MsgBox " some explanatory text here if answer
no "

Msg = " some text here " & Application.UserName & " more text here
" & (Range("IRR").Value / 1000) & " further text here " &
(Range("Rreal").Value / 1000) & "?"

Ans = MsgBox(Msg, vbYesNo)

If Ans = vbNo Then MsgBox " some explanatory text here if answer no
"

If Ans = vbYes Then MsgBox " some explanatory text here if answer
yes "


My problem is the ( Rreal / 1000 ) and ( IRR / 1000 ) appear as, say,
0.15 when I want it to appear as 15.0% within the message box text, and
NPV appears as, say, -186845858.3464 when I would want it to appear as
$(186,845,858.35).

Is there any easier way of formatting these numbers within the text of
a message box?

Thanks in advance for any help

Mike