Filling Cells from Textboxes

[Guest]

Hi everyone,
I am trying to fill about 12 cells from 12 textboxes and for some reason my
code does not work. I know it has to do with the 'Textboxi.Value' but how
else can I do this?

Dim i As Integer
For i = 4 To 15
emptyCell2.Offset(0, i) = TextBoxi.Value
Next i

 

[Harald Staff]

Hi

There is no textbox collection like that anymore. You are better off with
long boring code like

emptyCell2.Offset(0, 4).Value = TextBox4.Text
emptyCell2.Offset(0, 5).Value = TextBox5.Text
emptyCell2.Offset(0, 6).Value = TextBox6.Text
emptyCell2.Offset(0, 7).Value = TextBox7.Text
emptyCell2.Offset(0, 8).Value = TextBox8.Text
' and so on

no fun to write, but runs fast and no-nonsense, and once it's written it's
done. Any loop technique will be either slower, more awkward to execute or
more memory consuming. A high price for a little less coding.

HTH. Best wishes Harald

 

[Guest]

-> Try This
Dim i As Integer
Cells(2,4).Select ' Root Cell
For i = 4 To 15
Cells(ActiveCell.Row, i) = UserForm.Controls("TextBox" & i).Value
Next i

 

[Guest]

Thank you both for your response.

Hi

There is no textbox collection like that anymore. You are better off with
long boring code like

emptyCell2.Offset(0, 4).Value = TextBox4.Text
emptyCell2.Offset(0, 5).Value = TextBox5.Text
emptyCell2.Offset(0, 6).Value = TextBox6.Text
emptyCell2.Offset(0, 7).Value = TextBox7.Text
emptyCell2.Offset(0, 8).Value = TextBox8.Text
' and so on

no fun to write, but runs fast and no-nonsense, and once it's written it's
done. Any loop technique will be either slower, more awkward to execute or
more memory consuming. A high price for a little less coding.

HTH. Best wishes Harald