TextBox Popluation

[Rocky0201]

Hi,

I have a list of text boxes (TextBox1 thru TextBox20) in my Userform. Is there an elegant way to populate these text boxes using sheet1, column a, rows 1 thru end of rows?

The only way I know is to move each cell's value from the source sheet to the individual textbox, i.e., TextBox1.Text = cell...., TextBox2.Text = cell...., etc.

I was thinking that there may be a way to loop thru the cells in the sheet and populate then increment the TextBox to the next.

Thanks.

 

[crimson_b1ade]

maybe:

Private Sub CommandButton1_Click()
 
For i = 1 To 20
   UserForm1.Controls.Item("TextBox" & i).Text = Sheets("Sheet1").Range("A" & i)
Next i
 
End Sub

or if you don't know how many textboxes you have or if the number of textboxes are variable then perhaps:

Private Sub CommandButton1_Click()
 
For i = 0 To UserForm1.Controls.Count - 1
 
   If UserForm1.Controls.Item(i).Name Like "TextBox*" Then
        UserForm1.Controls.Item("TextBox" & r).Text = Sheets("Sheet1").Range("A" & r)
        r = r + 1
    End If
 
Next i
 
End Sub

 

[Rocky0201]

Thanks so much Crimson... This is a big help!!

 

[jim may]

Item("TextBox" & r

r = r + 1

What;s happening here with the use the "r"?
What's its original value?

Thanks,

Jim

 

[wigi]

What;s happening here with the use the "r"?

It's a counter for the number of filled boxes.

What's its original value?

0

 

[crimson_b1ade]

my bad. in the second code before the for loop starts there should have been an r = 1 to start the variable. I think I accidentally deleted it while editing the post:

r = 1
 
For 
    ...
Loop