Msg Box Problem

[Sharism]

Hello guys,

just wanted to as if you could help me.

• Your macro will do some basic calculation for rectangles
• First the user enters length and width of the triangle
• Then the user enters what kind of calculation has to be done
1: circumfence
2: area
3: the length of the diagonal
• If the user chooses an invalid calculation a message has to be displayed
• Show the result of the calculation in a message box

Private Sub Worksheet_Change(ByVal Target As Range)

   If Target.Address(0, 0) = "G12" Then
      Select Case Target.Value
         Case "circumfence"
            Range("H14").FormulaR1C1 = "=2*(R[-2]C[-6]+R[-1]C[-6])"
         Case "area"
            Range("H14").FormulaR1C1 = "=R[-2]C[-6]*R[-1]C[-6]"
         Case "diagonal"
            Range("H14").FormulaR1C1 = "=SQRT(SUMSQ(R[-2]C[-6]:R[-1]C[-6]))"
         Case Else
            Range("H14").Value = ""
      End Select
   End If


End Sub

I did it like this, but it is false because there is no message box. So I wanted to know, how I transform this into the message box?

Many thanks

[Paul_Hossler]

Not tested but something like this will display a MsgBox

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address(0, 0) = "G12" Then
      Select Case Target.Value
         Case "circumfence"
           Range("H14").FormulaR1C1 = "=2*(R[-2]C[-6]+R[-1]C[-6])"
         Case "area"
            Range("H14").FormulaR1C1 = "=R[-2]C[-6]*R[-1]C[-6]"
         Case "diagonal"
            Range("H14").FormulaR1C1 = "=SQRT(SUMSQ(R[-2]C[-6]:R[-1]C[-6]))"
         Case Else
            Range("H14").Value = ""
      End Select

      If Len(Range("H14")) = 0 then
  Msgbox "Bad Calculation"  
      Else
              MsgBox Range("H14").Value
      Endif
   End If

End Sub

[Sharism]

Hello Paul,

I rewrote it like this and it worked:

Sub Rectangle()

'define the variables
Dim circumfence As Double
Dim area As Double
Dim diagonal As Double


    Dim l As Integer
    Dim w As Integer


    'select where the variables are
    l = Range("B1").Value
    w = Range("B2").Value


        'defining the formulas
        If Range("B3").Value = 1 Then
 
                circumfence = (2 * l) + (2 * w)
            
                MsgBox "The Circumfence is:" & circumfence
 
            ElseIf Range("B3").Value = 2 Then


                area = l * w
    
                MsgBox "The area is:" & area
     


            
            ElseIf Range("B3").Value = 3 Then


                diagonal = Sqr(l ^ 2 + w ^ 2)
    
                MsgBox "The diagonal is:" & diagonal
 
            'If you dont select 1,2 or 3
            Else
     
            MsgBox "Please choose the right calculation", vbCritical, "Warning"


     
        End If
 
End Sub

[Paul_Hossler]

OK

Mark it solved - #3 in my signature


I'd Dim l and w as Double.

A number in the cell would be a Double, and should someone enter something like 13.75 the calculations would be off since it would be treated like 13.0

    Dim l As Integer
    Dim w As Integer


    'select where the variables are
    l = Range("B1").Value
    w = Range("B2").Value

[Sharism]

Thank you, I changed it