UserForms
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" wrote in message
...
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
|