UserForms

B

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
 
B

Bob Phillips

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

etc.

--

HTH

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

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
 
B

Bob Phillips

I think you have to set them all individually.

--

HTH

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

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
???
 
Top