UserForms

[bennyob]

What is the simplest code for delivering numerical data from a text box to a
specific location (no loops etc to find empty cells) in specific worksheets?
I want several data entries from the same form to go to different worksheets.
Any help will be greatly appreciated
Cheers Ben

[Bob Phillips]

Worksheets("sheetname").Range("A1").Value = TextBox1.Text

etc.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"bennyob" <bennyob@discussions.microsoft.com> wrote in message
news:2332A52A-2AFD-4F39-B835-79F4AF94341E@microsoft.com...
> What is the simplest code for delivering numerical data from a text box to
a
> specific location (no loops etc to find empty cells) in specific
worksheets?
> I want several data entries from the same form to go to different
worksheets.
> Any help will be greatly appreciated
> Cheers Ben
>

[bennyob]

Thanks Bob
one more quick one
How do I get it to put the same text box value into several sheets, the
Array function I cannot get to work?
Cheers Ben

"Bob Phillips" wrote:

> Worksheets("sheetname").Range("A1").Value = TextBox1.Text
>
> etc.
>
> --
>
> HTH
>
> RP
> (remove nothere from the email address if mailing direct)
>
>
> "bennyob" <bennyob@discussions.microsoft.com> wrote in message
> news:2332A52A-2AFD-4F39-B835-79F4AF94341E@microsoft.com...
> > What is the simplest code for delivering numerical data from a text box to
> a
> > specific location (no loops etc to find empty cells) in specific
> worksheets?
> > I want several data entries from the same form to go to different
> worksheets.
> > Any help will be greatly appreciated
> > Cheers Ben
> >
>
>
>

[Bob Phillips]

I think you have to set them all individually.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"bennyob" <bennyob@discussions.microsoft.com> wrote in message
news:77FBC95D-C393-4B52-B5A4-2458B5286D09@microsoft.com...
> Thanks Bob
> one more quick one
> How do I get it to put the same text box value into several sheets, the
> Array function I cannot get to work?
> Cheers Ben
>
> "Bob Phillips" wrote:
>
> > Worksheets("sheetname").Range("A1").Value = TextBox1.Text
> >
> > etc.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "bennyob" <bennyob@discussions.microsoft.com> wrote in message
> > news:2332A52A-2AFD-4F39-B835-79F4AF94341E@microsoft.com...
> > > What is the simplest code for delivering numerical data from a text
box to
> > a
> > > specific location (no loops etc to find empty cells) in specific
> > worksheets?
> > > I want several data entries from the same form to go to different
> > worksheets.
> > > Any help will be greatly appreciated
> > > Cheers Ben
> > >
> >
> >
> >

[Dave Peterson]

dim myNames as Variant
dim iCtr as long
myNames = array("sheet1","sheet2","sheet99")

for ictr = lbound(mynames) to ubound(mynames)
worksheets(mynames(ictr)).range("a1").value = textbox1.text
next ictr

======
Depending on where/what that textbox is, you may want to qualify it, too.

worksheets("sheet77").TextBox1.Text
or
me.textbox1.text
???



bennyob wrote:
>
> Thanks Bob
> one more quick one
> How do I get it to put the same text box value into several sheets, the
> Array function I cannot get to work?
> Cheers Ben
>
> "Bob Phillips" wrote:
>
> > Worksheets("sheetname").Range("A1").Value = TextBox1.Text
> >
> > etc.
> >
> > --
> >
> > HTH
> >
> > RP
> > (remove nothere from the email address if mailing direct)
> >
> >
> > "bennyob" <bennyob@discussions.microsoft.com> wrote in message
> > news:2332A52A-2AFD-4F39-B835-79F4AF94341E@microsoft.com...
> > > What is the simplest code for delivering numerical data from a text box to
> > a
> > > specific location (no loops etc to find empty cells) in specific
> > worksheets?
> > > I want several data entries from the same form to go to different
> > worksheets.
> > > Any help will be greatly appreciated
> > > Cheers Ben
> > >
> >
> >
> >

--

Dave Peterson