VBA Maths

[tr03bor]

Hello!

I have three combo boxes, 1 2 and 3.

Trying to work out 22% of combo box 1 and put the value in combo two and the total in combo three, its works, but I only want it to return to decimal places!

Help!!!

Private Sub CommandButton1_Click()
TextBox2.Value = TextBox1.Value * 0.22
TextBox3.Value = TextBox1.Value * 1.22
End Sub

 

[Andrew Poulsom]

Example:

TextBox2.Value = WorksheetFunction.Round(TextBox1.Value * 0.22, 2)

 

[tr03bor]

Ah thanks!!!

Say I then put a combo box in, with two options, high and low.

If the user selects high, then the rate is 22%, if the user selects low, then the rate is 10%.

how would I do that?

 

[Andrew Poulsom]

Example:

Private Sub CommandButton1_Click()
    Select Case ComboBox1.Value
        Case "High"
            TextBox2.Value = WorksheetFunction.Round(TextBox1.Value * 0.22, 2)
        Case "Low"
            TextBox2.Value = WorksheetFunction.Round(TextBox1.Value * 0.1, 2)
    End Select
End Sub