Multiple cell values in one textbox

[reshma]

Hi,
I am trying to build a simple tool using an userform. I have my results as a range of cells A1:A10 in an excel sheet.
The result will be like:

1-1
2-4
5-8
8-8
9-14
14-14
15-16
17-19
20-21
22-23

But I want the result to be displayed in one textbox in userform.Is there any way?

 

[trunten]

This will join all the values in A1:A10 with a line break between each. simply use the string s to update the textbox value in your user form.

    Dim s As String, c As Range
    For Each c In Range("A1:A10")
        If s = "" Then s = c Else s = s & vbLf & c
    Next c

 

[VoG]

Why not use a list box?

Private Sub UserForm_Initialize()
UserForm1.ListBox1.RowSource = Worksheets("sheet1").Range("A1:A10").Address(external:=True)
End Sub

 

[Andrew Poulsom]

Welcome to MrExcel.

Set the TextBox's MultiLine property to True and try:

Private Sub UserForm_Initialize()
    Dim Cell As Range
    With ActiveSheet
        TextBox1.Text = .Range("A1").Text
        For Each Cell In .Range("A2:A10")
            TextBox1.Text = TextBox1.Text & Chr(10) & Cell.Text
        Next Cell
    End With
End Sub

 

[reshma]

Thanks a lot all of you.. It worked!!