Message box

[planner12]

Hi
I am trying to get a MsgBox to pop up when I click on a command button to show the result of a Macro with the formula =Sum(A1*B1) . In Basic terms I have created a macro that multiplys A1:B1 and shows the result in a cell, I want the MsgBox to show the result.
Can this be done
Regards
Planner

P.S If Not can someone suggest a method to achieve something similiar

[teylyn]

Hi planner,

welcome to the forum. What is the code that you have so far? If you have a variable that stores your calculation, you can use something like

Sub SumMe()
<your code to put the result of the calculation in the variable x>
MsgBox x, vbOKOnly, "The result is"
End Sub

[Palmetto]

formula =Sum(A1*B1)

You don't need the SUM function. Just use = A1*B1

In Basic terms I have created a macro that multiplys A1:B1 and shows the result in a cell, I want the MsgBox to show the result.

It's not clear if you are calculating within the macro, have a formula already in a cell or you are placing a formula into the cell via VBA.

However, this may be of help.
Calculate the product inside the code

Sub ShowCalc_Msg()

    MsgBox Range("a1") * Range("B1")

End Sub

Reference values in cells A1:B1, write the result to C1, then display the value in a message box.

Sub ShowCalc_msg2()

    Range("C1") = Range("A1") * Range("B1")
    
    MsgBox Range("C1")

End Sub

[planner12]

Hi teylyn and Palmetto
Thanks for your quick replys, and both of you gave me the solution, but I also need to add a message in side the MsgBox along with the sum total of A1*B1 as per my first post. eg: the answer is + the sum of A1*B1. This is the code I have at the moment

Sub ShowCalc_msg2()

    MsgBox Range("C1")

    Range("C1").Select
    ActiveCell.FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"
    Range("C2").Select
End Sub

Regards
Planner

[teylyn]

Planner, please wrap your code in code tags, as Palmetto and I did in our posts. The forum rules explain how. I will do it for you this time, but I expect you to use code tags from now on.

As to the code you want: If you want the message box to show the value of the calculation in cell C1, then you need to call a message box after you've performed the calculation, not before. You can concatenate the text that the messagebox displays with the text concatenation character, the ampersand sign.

There is no need to select the cell to populate it with a formula. Something like this:

Sub ShowCalc_msg2()
    Range("C1").FormulaR1C1 = "=SUM(RC[-2]*RC[-1])"
    MsgBox "The result is: " & Range("C1").Value
End Sub

[planner12]

Thankyou, and I will wrap my code in tags in future.
Planner