Puedes agregarle algo al comando?
El comando que me mando me funciono muy bien, pero me puede decir como hacer para que después de que vuelva a ejecutar el comando se coloque en la siguiente celda.
Respuesta de ManuelPacman .....
1
Disculpe... no se si se habrá entendido lo que pedi... quería que después de volver a ejecutar el comando, que se coloque el contenido del ListBox en la siguiente celda.
1 respuesta más de otro experto
Respuesta de Elsa Matilde
4
Se puede, pero entonces ya en la macro no será E2 sino la celda libre, ya sea a derecha o hacia abajo de la primer celda que consideres como inicial.
En el ejemplo se coloca en la primer celda libre de la col E... ajusta a tu criterio.
Private Sub ListBox1_Click()
'x Elsamatilde
'1er celda destino. En este ejemplo es la 1er celda libre de la col E
Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Select
'colocar contenido de listbox en 1 sola celda
For i = 0 To ListBox1.ListCount - 1
cadena = cadena & " " & ListBox1.List(i)
Next i
'guarda la cadena sin espacios adicionales
ActiveCell.Value = Trim(cadena)
End SubSi fuese a derecha, por ej de la celda A3, sería:
'1er celda destino. En este ejemplo es la 1er celda libre a derecha de A3
Range("IV3").End(xlToLeft).Offset(0, 1).Select