Sum Function in Userform

[joacro]

Hi All,

I have a userform which will work as a calculator.
In the one box the user need to insert an amount and then in the other box I need the formula to kick in.

Ex: The form is PointsCal. The input box is Fitness and the box where the formula is is Textbox27

What I did:
Private Sub TextBox27_Change()
TextBox27.Value = Fitness.Value * 7500
End Sub

Nothing happens.
I need the value to be desplayed in Textbox27

Hope someone can help with this

Regards

 

[GTO]

You may wish to try the exit function of the textbox you are entering a value in, something like:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If IsNumeric(TextBox1.Value) Then
        TextBox2.Value = Format(CDbl(TextBox1.Value) * 7500, "#.00")
    End If
End Sub

 

[Rick Rothstein]

I think that instead of this event header for your code...

Private Sub TextBox27_Change()

that you actually will want this one...

Private Sub Fitness_Change()

as that is the TextBox that is being changed by the user.

 

[joacro]

Thank you that solved my problem.

Have a great day