Msg Box Qquestion

  • Thread starter Thread starter John
  • Start date Start date
J

John

I want the message box window to appear with the
the following lines.

The total profit is = Range.value(A1)

The total loss is= Range.value(B1)

Is it possible to combine both messages
in single statement.
 
John

Sub CombinedMessage()
MsgBox _
"The total profit is = " & Range("A1").Value & _
Chr(10) & _
"The total loss is = " & Range("B1").Value, , _
"Combined Profit and Loss"
End Sub

Regards

Trevor
 
John, try this

MsgBox "The total profit is " & [A1] _
& vbCrLf & "The total profit is " & [B1]

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **
 
Hi John,

Something like this should work for you:

MsgBox prompt:="The total profit is: " & _
Format$(Range("A1").Value, "$#,##0.00") & _
vbLf & vbLf & "The total loss is: " & _
Format$(Range("B1").Value, "$#,##0.00"), _
Buttons:=vbInformation, Title:="Profit/Loss"

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
should be
MsgBox "The total profit is " & [A1] _
& vbCrLf & "The total loss is" & [B1]

Paul B said:
John, try this

MsgBox "The total profit is " & [A1] _
& vbCrLf & "The total profit is " & [B1]

--
Paul B
Always backup your data before trying something new
Please post any response to the newsgroups so others can benefit from it
Feedback on answers is always appreciated!
Using Excel 97 & 2000
** remove news from my email address to reply by email **

John said:
I want the message box window to appear with the
the following lines.

The total profit is = Range.value(A1)

The total loss is= Range.value(B1)

Is it possible to combine both messages
in single statement.
Click to expand...
Click to expand...
 
John said:
I want the message box window to appear with the
the following lines.

The total profit is = Range.value(A1)

The total loss is= Range.value(B1)

Is it possible to combine both messages
in single statement.
Click to expand...

MsgBox "The total profit = " & Range("A1").Value & vbCrLf & _
"The total loss = " & Range("B1").Value

The "_" is to tell the compiler(?) the sentence continues on the next line.

Regards,
 
If your cells are already formatted as currency, you could use the .text
property to return that same format.

Sub Demo()
Dim s As String
s = "Total Profit: " & _
[A1].Text & _
vbLf & vbLf & _
"Total Loss: " & _
[B1].Text

MsgBox s, vbInformation, "Profit / Loss"
End Sub
 
Back
Top