Code to loop through textboxes on a userform without specifying the name

[ktorres]

I have several userforms and each one has several textboxes for which some are named textbox and others are named "HC", "CC" etc. with numbers ranging from 1 to 400. (I should have set up my forms in a more consistent way but we're past that now I think).

Is there code that would loop through all the textboxes in the userform and insert a "0" if that textbox.value = ""?

Thanks!

 

[tonyyy]

ktorres,

You might try the following...

Private Sub CommandButton1_Click()
Dim tb As Control

For Each tb In Me.Controls
    If TypeName(tb) = "TextBox" Then
        If tb.Value = "?" Then tb.Value = "0"
    End If
Next tb

End Sub

Cheers,

tonyyy