Sum everything in userform

[joacro]

Hi there,

I sorted the sum of txtbox, but now need to know how to sum everything:
ex:
input box and then a textbox which give a sum
Private Sub PHR_Change()
TextBox34.Value = PHR.Value * 2000
End SubI used this:

Now I need all the textBoxes to add up.

I have TextBox27 - 50 with above code and there value need to be summed in Textbox 51

I have tried the following:
Private Sub TextBox51_Change()
TextBox51.Value = Format(CDbl(Current.Value) + CDbl(TextBox27.Value) + CDbl(TextBox28.Value) + CDbl(TextBox29.Value) etc
End Sub

But with no luck.

Hope you can help

Regards

 

[mikerickson]

Private Sub UserForm_Click()
    Dim GrandSum As Double
    Dim oneControl As MSForms.Control
    
    For Each oneControl In Me.Controls
        If TypeName(oneControl) = "TextBox" Then
            GrandSum = GrandSum + Val(oneControl.Value)
        End If
    Next oneControl
    
    Me.Caption = GrandSum
    
End Sub

 

[joacro]

Hi there, thank you for the reply.

This is a bit confusing. Where should I put the code. Will it sum in Textbox51

 

[mikerickson]

The code should go in the Userform's text module. As written, clicking on the userform (outside of any control) will put the sum in the Userform's caption. Putting the code in the event of your choice and altering it to put the sum in TextBox51.Text rather than Me.Caption needs to be done.

 

[joacro]

Isn't there an easier way of doing this