textbox help please
 

in a multiline textbox, is there an easier way to write the data to the
worksheet than this? right now i use 2 spaces as a delimiter for the end of
line.

arr = Split(tbMessage, " ")
For i = LBound(arr) To UBound(arr)
Range("C" & rw).Value = arr(i) & " "
rw = rw + 2
Next


i also read the data into the form first using the following on activate:

Me.tbMessage = Range("c27").Value & Range("c29").Value & _
Range("c31").Value & Range("c33").Value & Range("c35").Value
--


Gary

textbox help please
 

What problem are you seeing with what you do? If you want to use just one
textbox, but output to many cells, you have to have some way to break it up.
--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
in a multiline textbox, is there an easier way to write the data to the
worksheet than this? right now i use 2 spaces as a delimiter for the end
of
line.

arr = Split(tbMessage, " ")
For i = LBound(arr) To UBound(arr)
Range("C" & rw).Value = arr(i) & " "
rw = rw + 2
Next


i also read the data into the form first using the following on activate:

Me.tbMessage = Range("c27").Value & Range("c29").Value & _
Range("c31").Value & Range("c33").Value & Range("c35").Value
--


Gary

textbox help please
 

Hi Gary,

To avoid the For ... Next loops, try:

arr = Split(Replace(tbMessage, " ", " "), " ")

Range("C" & rw).Resize(UBound(arr) + 1).Value = _
Application.Transpose(arr)


---
Regards,
Norman


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
in a multiline textbox, is there an easier way to write the data to the
worksheet than this? right now i use 2 spaces as a delimiter for the end
of line.

arr = Split(tbMessage, " ")
For i = LBound(arr) To UBound(arr)
Range("C" & rw).Value = arr(i) & " "
rw = rw + 2
Next


i also read the data into the form first using the following on activate:

Me.tbMessage = Range("c27").Value & Range("c29").Value & _
Range("c31").Value & Range("c33").Value & Range("c35").Value
--


Gary

textbox help please
 

ok, thanks, bob. just wondering if there was a way to tell where the textbox
actually wraps.

--


Gary


"Bob Phillips" wrote in message
...
What problem are you seeing with what you do? If you want to use just one
textbox, but output to many cells, you have to have some way to break it up.
--

HTH

Bob Phillips

(remove nothere from the email address if mailing direct)

"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
in a multiline textbox, is there an easier way to write the data to the
worksheet than this? right now i use 2 spaces as a delimiter for the end
of
line.

arr = Split(tbMessage, " ")
For i = LBound(arr) To UBound(arr)
Range("C" & rw).Value = arr(i) & " "
rw = rw + 2
Next


i also read the data into the form first using the following on activate:

Me.tbMessage = Range("c27").Value & Range("c29").Value & _
Range("c31").Value & Range("c33").Value & Range("c35").Value
--


Gary

textbox help please
 

thanks for your help norman

--


Gary


"Norman Jones" wrote in message
...
Hi Gary,

To avoid the For ... Next loops, try:

arr = Split(Replace(tbMessage, " ", " "), " ")

Range("C" & rw).Resize(UBound(arr) + 1).Value = _

Application.Transpose(arr)


---
Regards,
Norman


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
in a multiline textbox, is there an easier way to write the data to the
worksheet than this? right now i use 2 spaces as a delimiter for the end of
line.

arr = Split(tbMessage, " ")
For i = LBound(arr) To UBound(arr)
Range("C" & rw).Value = arr(i) & " "
rw = rw + 2
Next


i also read the data into the form first using the following on activate:

Me.tbMessage = Range("c27").Value & Range("c29").Value & _
Range("c31").Value & Range("c33").Value & Range("c35").Value
--


Gary