Poner varias lineas de un Listbox a una celda combinada

[Moratti]

Hola,

Tengo una macro que pone las lineas de un listbox a varias lineas de excel. El problema es que esas lineas las tengo minimizadas y la intención es combinar esas celdas, pero entonces solo me poone la primera linea del Listbox.

Como puedo hacerlo para que se pongan todas en la celda combinada.

Ahora tengo esto.

Worksheets("Formato Comunicación PRC").Select
Y = 27
a = ListBox1.ListCount
For i = 0 To a - 1
Hoja2.Cells(Y, 1) = ListBox1.List(i, 0)
Y = Y + 1
Next i

 

Gracias

[Antoni]

No se entiende, sube tu archivo y pon un ejemplo de lo que quieres.

[JasallBcn]

Buenas, lo que entendí,

Private Sub CommandButton1_Click()

Worksheets("Formato Comunicación PRC").Select
Y = 27
a = ListBox1.ListCount

Range("A" & Y & ":A" & Y + a).Clear
Range("A" & Y & ":A" & Y + a).Merge

For i = 0 To a - 1
 Hoja2.Range("A" & Y).Value = Hoja2.Range("A" & Y).Value & IIf(i = 0, ListBox1.List(i, 0), vbNewLine & ListBox1.List(i, 0))
Next i

End Sub

saludos

 

listboxcombi.xlsm

[Moratti]

Gracias, lo sulicioné de otra forma.

Puse simplemente Y= Y+2

El problema era que tenía una linea normal y otra muy minimizada, entonces en la minimizada me ponía la segunda linea de texto y no se veía.

Decidí Combinar las celdas y solo me ponía la primera linea del listbox. Inserté un número parejo de lineas y puse Y=Y+2.

GRacias.