Userform: MultiLine TextBox to Sheet Rows ?

[JumboCactuar]

Hi,

I have a MultiLine TextBox (TextBox1) on Userform1
And I'm trying to transfer each line of data to a sheet

Example - 5 lines from TextBox to cells ("A2:A6")

Does anyone know a way to do this?

Any help appreciated

 

[DanteAmor]

The "lines" in a multiline textbox are not exactly lines. In the textbox you have a text string separated by the "enter key" (Char 10).

Try this:

Private Sub CommandButton1_Click()
  Dim c As Variant, i As Long
  i = 2
  For Each c In Split(TextBox1, Chr(10))
    Range("A" & i).Value = c
    i = i + 1
  Next
End Sub

Or this:

Private Sub CommandButton1_Click()
  Dim sStr As Variant
  sStr = Split(TextBox1, Chr(10))
  Range("A2").Resize(UBound(sStr) + 1).Value = Application.Transpose(sStr)
End Sub

 

[JumboCactuar]

Thanks @DanteAmor working

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.