Filling Cells from Textboxes

[trini]

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

"trini" <trini@discussions.microsoft.com> skrev i melding
news:F649F203-FA75-42DE-9251-8B7F3DBBB59A@microsoft.com...
> 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

[Tonhao]

-> 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
"trini" wrote:

> 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

[trini]

Thank you both for your response.

"Harald Staff" wrote:

> 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
>
> "trini" <trini@discussions.microsoft.com> skrev i melding
> news:F649F203-FA75-42DE-9251-8B7F3DBBB59A@microsoft.com...
> > 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
>
>
>