text box ranges in userform

[rickblunt]

Greetings,
I know that I can range worksheet cell references in userform, but can I range the textboxes in that same userform?

Instead of doing this for 40 text boxes

    TextBox1 = ""
    TextBox2 = ""
    TextBox3 = ""
    TextBox4 = ""
    TextBox5 = ""
    TextBox6 = ""
    TextBox7 = ""
    TextBox8 = ""
    TextBox9 = ""
    TextBox10 = ""
    TextBox11 = ""
'all the way up to 40+ text boxes...

I would rather do something like this:

Range("TextBox1:textbox40") = ""

Not sure how to tweak this, the semicolon is not the correct syntax -appreciate any input - thanks

 

[dmt32]

Hi,

one way:

Dim i As Integer
For i = 1 To 40
    Me.Controls("TextBox" & i).Text = ""
Next i

Dave

 

[rickblunt]

Thanks Dave, worked great; I hadn't considered that way; so much cleaner - that's what I like about this forum, so many different ways of doing things, its pretty cool.

 

[dmt32]

Thanks Dave, worked great; I hadn't considered that way; so much cleaner - that's what I like about this forum, so many different ways of doing things, its pretty cool.

All programmers have their preferred way of doing things.

Glad suggestion helped.

Dave

 

[My Aswer Is This]

Why do you need to clear all these Textboxes?
When you unload your UserForm all the Textboxes loose their values.

Close your UserForm like this:
Unload Userform1