variable userform object name?

[mcgew]

I have to transfer information from a number of textboxes on a userform to a spreadsheet.
Rather than list every textbox, i want to be able to loop through them to reduce the amount of code.

ie instead of:
Cells(1,1)=Textbox1.value
Cells(2,1)=Textbox2.value
Cells(3,1)=Textbox3.value
etc

I want to do something like

For i = 1 to 10
myrow = i
Cells(myrow,1)=Textbox i.value
next i

the above doesn't work - is it possible to do somehow?

Thanks,
Grace

 

[Richie(UK)]

Hi Grace,

It depends on how you have named the TextBoxes. If they just have the default names (as you seem to indicate) then try:

Private Sub CommandButton1_Click()
    Dim i As Integer
    
    For i = 1 To 3
        Sheet1.Cells(i, 1).Value = Me.Controls("TextBox" & i).Value
    Next i
    
End Sub

If they have a variety of names then you could add some sort of unique identifier in the .Tag property of each of the TextBoxes concerned and check for this as you loop through the controls on the form.

HTH

 

[mcgew]

Thanks, it works!