Есть пользовательская форма. В ней множество текстовых полей. Для переноса значений из полей в ячейки хотелось бы использовать цикл. Но для этого надо задать номер поля в качестве переменной. Есть ли такая возможность? Вот Text1 хотелось бы чтобы менялось на 2, 3 и т.д. Напишу тогда более подробно. И вот там где Text(B) мне надо, чтобы он понимал как Text1 потом Text2 и т.д. до конца цикла
Код
Dim B As Integer
For B=1 to 100
Sheets("Baza").Cells(1, B) = UserForm1.text(B).Value
Next B
Dim x
Dim B as long
For each x in Me.Controls 'строка для цикла по всем control в форме
If TypeOf x Is MSForms.Textbox Then 'строка для проверки на textbox
For B=1 to 100
Sheets("Baza").Cells(1, B) = UserForm1.text(x)
Next B
End if
Next