Using the Sum Function In a Userform

[Burnleyfc]

I have a number of dropdown menu's with in a userform and following each selection a number is given (and displayed in a text box) depending on the choice made.

I want a 'totals' text box. How do I add the totals from each box and show the result in the totals box?

Any help appreciated..

 

[Corticus]

Hi,

try:

Private Sub ComboBox1_Change()
TxtTotals = TxtSub1 + TxtSub2 + TxtSub3...
End Sub

TxtTotal is the textbox housing total
TxtSub1,2 etc are the textboxes that are populated by the comboboxs

Do this for each combobox that sends a number to a textbox you wish to include in the total
HTH,
Corticus

 

[Burnleyfc]

Thanks for your help. The 'totals' box is now being populated, but rather than adding the values of the text boxes it is inserting a value separately from each.

I.E: txtsub1 = 1
txtsub2 = 1

txttotal = 11

I have tried putting the statement as a 'sum' and also tried .value for the statement but still come out with the same result.

Any further help would be appreciated.

David

 

[Corticus]

You're right,

That's what I get for not testing my solutions first...

anyway, try this:
Dim CBox1 As Integer
Dim CBox2 As Integer
Dim Cbox3 As Integer


Private Sub ComboBox1_Change()

CBox1 = ComboBox1.Value
TextBox1.Value = CBox1
TextBox4.Value = CBox1 + CBox2 + Cbox3


End Sub

Private Sub ComboBox2_Change()

CBox2 = ComboBox2.Value
TextBox2.Value = CBox2
TextBox4.Value = CBox1 + CBox2 + Cbox3


End Sub

Private Sub ComboBox3_Change()

Cbox3 = ComboBox3.Value
TextBox3 = Cbox3
TextBox4.Value = CBox1 + CBox2 + Cbox3

End Sub

Textbox4 is the totals box. The problem was, the text boxes were holding thir values as text, and not numbers, so + was concatenating instead of summing.

Any troubles, I'll e-mail the file I just did.

HTH,
Corticus

edit: you can format the textboxes for numbers without using variables like I did, but I couldn't get it to work. This way does.
This message was edited by Corticus on 2002-11-07 08:34