Userform textbox to multiple rows

[jam1531]

Hi, This is my first time posting on here. I might be in over my head but I am sure there is someone out there who knows the answer.

I have a userform with a textbox in it. I have the textbox set to multi-line. Whenever I run the macro I've created It will take the input, find the spaces between the words and transpose the information onto an excel spreadsheet.

This works great, however when I copy the information from multiple excel rows and paste directly into the textbox (instead of typing) the output inserts some strange characters into the cells where spaces should be. So instead of pasting three lines of data into three separate rows it places the three lines in every row in the range and places a unkown symbol inbetween each set of data. I have tried some different formulas to fix it, including REPLACE, CHAR and CODE but have had no success.

Here is my code:

Worksheets("Sheet1").Range("<wbr style="color: rgb(46, 62, 63); font-family: Arial;">A1:A4").Value = WorksheetFunction.Transpose(<wbr style="color: rgb(46, 62, 63); font-family: Arial;">Split(TextBox1.Value, " "))


Please let me know what other information is needed to help answer my post.

 

[Rick Rothstein]

See if this modification straightens things out for you...

Worksheets("Sheet1").Range("A1:A4").Value = WorksheetFunction.Transpose(Split(Replace(TextBox1.Value, vbLf, " "), " "))

 

[jam1531]

See if this modification straightens things out for you...

Worksheets("Sheet1").Range("A1:A4").Value = WorksheetFunction.Transpose(Split(Replace(TextBox1.Value, vbLf, " "), " "))

Thanks! that got me close enough.