Manipulating Text Box Values

[business_analyst]

Hello All,

I have created 14 Textboxes in a Userform. I would like to make it so that the numbers that a user enters into these text boxes must equal 100 (like 100%). However, the user is not required to fill out all 14 Textboxes. They may or may not fill out all Textboxes, but no matter what happens, I would like the Textboxes that do have numbers in them to equal to 100. Is there a way that I can create this type of check without hardcoding each value and adding them all?
Thanks

 

[mikerickson]

If you have a submit button, you could put this at the start of the Submit rounine

Dim Total As Double, i As Long

For i = 1 to 14
    Total = Total + Val(UserForm1.Controls("TextBox" & i) .Text)
Next i

If Total <> 100 then 
    MsgBox "TextBox entries must total to 100. Change and try again."
    Exit Sub
End If

 

[business_analyst]

If you have a submit button, you could put this at the start of the Submit rounine

Dim Total As Double, i As Long

For i = 1 to 14
    Total = Total + Val(UserForm1.Controls("TextBox" & i) .Text)
Next i

If Total <> 100 then 
    MsgBox "TextBox entries must total to 100. Change and try again."
    Exit Sub
End If

That works perfectly mike, thanks very much for your assistance