Perform a sum on textbox values

[vestax22]

Hi, I'm creating an Excel application which calls upon a userform. On this form there are four textboxes. Three of the four textboxes will contain manual inputs. The fourth textbox should contain the sum of the other three textboxes. On the afterupdate event of my three textboxes i do a sum of the three textboxes and modify the value of the fourth textbox. Excel VBA seems to think the vales inside the textboxes are text by default so I cannot do a sum. Is there a way to do this. Thx in advance

 

[SkipVought]

Hi,

Something like this would work...

    Dim nValue1 As Single, nValue2 As Single
    With ActiveSheet
        nValue1 = TextBox1.Text
        nValue2 = TextBox2.Text
        TextBox3.Text = nValue1 + nValue2
    End With

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[vestax22]

Yes, thx for the reply


Is this the only way because I would like to avoid using variables.


Thx

 

[SkipVought]

How 'bout this?

TextBox3.Text = CSng(TextBox1.Text) + CSng(TextBox2.Text)

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[vestax22]

Hey skip

I tried that already and it doesn't work. I did it with CInt. Any other suggestions?

Thx

 

[SkipVought]

How did it fail not to work?

Skip,
Skip@TheOfficeExperts.com

http://www.TheOfficeExperts.com

 

[bryanbayfield]

Try using Val instead of a conversion function.

 

[Bowers74]

Try this for the AfterUpdate events:

if isnumeric(textbox1) and isnumeric(textbox2) and _
   isnumeric(textbox3) Then
    TextBox4 = Val(TextBox1) + Val(TextBox2) + Val(TextBox3)
Else
    TextBox4 = "Error!"
End If

Peace!

Mike

Never say Never!!!
Nothing is impossible!!!