User Form - Show Multilines

[barissh]

I have a userform. I'm getting some info and write all this infos to column A
down by down... and there is another text box which is reading all infos
in column A. But I don't know how to show all info down by down as inserted
in column A. I already changed textbox MultiLine as True. Please tell me
how can I insert all info with makro into textbox down by down as column A.

 

[Makrini]

use a "listbox" instead. I think that is what you are trying to achieve

 

[Andrew Poulsom]

Example:

Private Sub UserForm_Initialize()
    Dim Cell As Range
    For Each Cell In Worksheets("Sheet1").Range("A1:A3")
        TextBox1.Text = TextBox1.Text & Cell.Value & Chr(10)
    Next Cell
End Sub

 

[al_b_cnu]

Hi,

Try a listbox, sample code which assumes you have a listbox control named 'Listbox1' and sheet1 contains the data with a heading in cell A1 is:

Private Sub UserForm_Activate()
Dim lRowEnd As Long
Dim WS As Worksheet

Set WS = Sheets("Sheet1")
lRowEnd = WS.Cells(Rows.Count, "A").End(xlUp).Row
With ListBox1
    .Clear
    .ColumnCount = 1
    .ColumnHeads = True
    .RowSource = "='" & WS.Name & "'!" & "A2:A" & lRowEnd
End With
End Sub