title: How to concatenate Listbox selections into a single cell
body: <p>I have this code to bring the data from my Userform to my Cells:</p>
  
  <pre><code>Private Sub CommandButton1_Click()
  Sheets("hoja2").Select 'selecciona la hoja "datos"
  Range("B8").Select 'selecciona el rango (en este caso la celda) "A1"
  Do While Not IsEmpty(ActiveCell) 'encuentra la ultima celda con datos
  ActiveCell.Offset(1, 0).Select 'en la ultima celda con datos, muevete una fila abajo
  Loop 'bucle
  ActiveCell = ListBox1
  ActiveCell.Offset(0, 1).Select
  ActiveCell = ListBox2
  ActiveCell.Offset(0, 1).Select
  ActiveCell = ListBox3
  ActiveCell.Offset(0, 1).Select
  ActiveCell = TextBox1
  ActiveCell.Offset(0, 1).Select
  ActiveCell = TextBox2 'copia el contenido del textbox2 a la celda activa
  ActiveCell.Offset(0, 1).Select
  ActiveCell = TextBox3
  ActiveCell.Offset(0, 1).Select
  ActiveCell = ListBox4
  ActiveCell.Offset(0, 1).Select
  ActiveCell = ListBox5
  ActiveCell.Offset(0, 1).Select
  ActiveCell = ListBox6
  ActiveCell.Offset(0, 1).Select
  ActiveCell = ImpGlob
  ActiveCell.Offset(0, 1).Select
  ActiveCell = TextBox4
  ActiveCell.Offset(0, 1).Select
  ActiveCell = TextBox5
  ActiveCell.Offset(0, 1).Select
  ActiveCell = TextBox6
  ActiveCell.Offset(0, 1).Select
  TextBox1 = Empty 'textbox1, dejar en blanco
  TextBox2 = Empty 'etc
  TextBox3 = Empty
  TextBox4 = Empty
  TextBox5 = Empty
  TextBox6 = Empty
  ListBox1 = Empty 'textbox1, dejar en blanco
  ListBox2 = Empty 'etc
  ListBox3 = Empty
  ListBox4 = Empty
  ListBox5 = Empty
  ListBox6 = Empty
  MsgBox "Datos guardados" 'mostrar el mensaje "Datos guardados"
  End Sub
  </code></pre>
  
  <p>The problem is that when i choose multiple items for some listboxes where i need a multiple choice, the cell stays blanks.</p>
  
  <p>Is there any way to put the items in a list like "item 1, item 2, items 3" in a single cell?</p>
  
  <p>thanks in advance</p>