Simple vba code to test for value

[percy83]

Hi all,

I have a simple userform with some textboxes.

I want to loop through these boxes called lenght1 to lenght5 (also have width1 to 5 and height1-5) and check if they exceed a value written in a named range call "MAXLENGHT".

How to do this in a most efficient way?

At first I wanted to us

If Val(Lenght1.Text) > Worksheets("Kundinfo & inställningar").Range("MAXLENGHT") Then

and so on but does not feel the best way to solve this problem.

Thanks for any help/pointers I can have.

BR
Per

 

[pgc01]

Hi Per

You can loop through that set of texboxes, like in (adapt to your case):

Dim j As Long
 
For j = 1 To 5
    If Val(Me.Controls("Length" & j).Value) > Worksheets("Sheet1").Range("MAXLENGTH").Value Then
        MsgBox "Value in textbox Length" & j & " is out of bounds"
    End If
Next j