Takhle by to mohlo fungovat, ale makro si musiš napsat podle tohoto principu.
Private Sub UserForm_Click()
n = 1
On Error GoTo konec
Do
Sheets("List1").Cells(n, 1) = Controls("TextBox" & n)
n = n + 1
Loop
konec:
MsgBox " neni vice Textboxu"
Unload Me
On Error GoTo 0
End Sub
edit: to vše za předpokladu, že TextBoxy nebudou mít různé názvy.
Private Sub UserForm_Click()
n = 1
On Error GoTo konec
Do
Sheets("List1").Cells(n, 1) = Controls("TextBox" & n)
n = n + 1
Loop
konec:
MsgBox " neni vice Textboxu"
Unload Me
On Error GoTo 0
End Sub
edit: to vše za předpokladu, že TextBoxy nebudou mít různé názvy.
Příloha: 12850_textboxy.zip (21kB, staženo 21x)
citovat