Msg Box Qquestion

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.
 
T

Trevor Shuttleworth

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
 
P

Paul B

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 **
 
J

Jake Marx

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]
 
P

Paul B

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...
 
B

Beto

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,
 
D

Dana DeLouis

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
 
Top