Adding data from multiple cells to a textbox one after the other?

[tonywatsonhelp]

Hi Everyone,

So I have this macro that adds the data from one cell into a text box, is it possible to add more than one to make a list

[FONT=Calibri][SIZE=3][COLOR=#000000]Su[LEFT][COLOR=#000000][FONT=Calibri][/FONT][/COLOR][COLOR=#000000][FONT=Calibri]UserForm1.TextBox1.Value = Sheets("Form Info").Range("A1").Value[/FONT][/COLOR][/LEFT]b AAA_Calender1_tests()
[LEFT][COLOR=#000000][FONT=Calibri][/FONT][/COLOR][COLOR=#000000][FONT=Calibri]UserForm1.TextBox1.Value = Sheets("Form Info").Range("A1").Value[/FONT][/COLOR][/LEFT]<strike></strike>
[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]      UserForm1.Show[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

So instead of A1 it would be A1:A20 under each other?

thanks

Tony

 

[Rick Rothstein]

So I have this macro that adds the data from one cell into a text box, is it possible to add more than one to make a list

[FONT=Calibri][SIZE=3][COLOR=#000000]Su[LEFT][COLOR=#000000][FONT=Calibri][/FONT][/COLOR][COLOR=#000000][FONT=Calibri]UserForm1.TextBox1.Value = Sheets("Form Info").Range("A1").Value[/FONT][/COLOR][/LEFT]b AAA_Calender1_tests()
[LEFT][COLOR=#000000][FONT=Calibri][/FONT][/COLOR][COLOR=#000000][FONT=Calibri]UserForm1.TextBox1.Value = Sheets("Form Info").Range("A1").Value[/FONT][/COLOR][/LEFT]<strike></strike>
[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]      UserForm1.Show[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

So instead of A1 it would be A1:A20 under each other?

Assuming the MultiLine and WordWrap properties of the TextBox are both set to True and, if needed, the ScrollBars property is set to fmScrollBarsVertical, give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub AAA_Calender1_tests()
  UserForm1.TextBox1.Value = Join(Application.Transpose(Sheets("Form Info").Range("A1:A20")), vbLf)
  UserForm1.Show
End Sub[/td]
[/tr]
[/table]

 

[tonywatsonhelp]

Thanks Rick,
That's working great

Tony