Multiple textboxes sum value!

[asyamonique]

TextBox81.Value = Val(TextBox21) + Val(TextBox22) + Val(TextBox23)........+ Val(TextBox40)

Good Day,
Is there any easy way to get the total value with the captioned sample code above?
Many Thanks

 

[apr pillai]

Use the following code within a Command Button Click Event or a Lost Focus Event procedure of a control:

dim j as integer, amount as double

amount=0
for j=21 to 40
   amount = amount + val("TextBox" & j)
next
[TextBox81] = amount

 

[asyamonique]

Use the following code within a Command Button Click Event or a Lost Focus Event procedure of a control:

dim j as integer, amount as double
 
amount=0
for j=21 to 40
   amount = amount + val("TextBox" & j)
next
[TextBox81] = amount

Thanks for ur reply,
But im still having the result of "0" value.
Cheers

 

[tweedle]

Give this a spin...

Dim Total2140 As Long: Total2140 = 0
For ctrlidx = 0 To Me.Controls.Count - 1
    If TypeOf Me.Controls(ctrlidx) Is MSForms.TextBox Then
        Select Case Right(Controls(ctrlidx).Name, 2)
            Case 21 To 40
                Total2140 = Total2140 + Controls(ctrlidx).Value
            Case Else
        End Select
    End If
Next ctrlidx
TextBox81.Value = Total2140

 

[asyamonique]

Give this a spin...

Dim Total2140 As Long: Total2140 = 0
For ctrlidx = 0 To Me.Controls.Count - 1
    If TypeOf Me.Controls(ctrlidx) Is MSForms.TextBox Then
        Select Case Right(Controls(ctrlidx).Name, 2)
            Case 21 To 40
                [COLOR=red]Total2140 = Total2140 + Controls(ctrlidx).Value[/COLOR]
            Case Else
        End Select
    End If
Next ctrlidx
TextBox81.Value = Total2140

Run time error '13':
Type mismatch
Cheers

 

[tweedle]

You have non-numerics in the textboxes then ...

Total2140 = Total2140 + Val(Controls(ctrlidx))

 

[asyamonique]

Thats ok now!
Works perfect.
Cheers