Transponer items de listbox1 a listbox2
Hola de nuevo, mi question es la siguiente.Descripción de elementos.
Listbox1 de 1 sola columna con varios items (entre 2 y 8 items)
listbox2 de múltiples columnas, las columnas están en función del nº de items en listbox1
botón para ejecutar comando
Bien la question es que necesito pasar los items de listbox1 a listbox2, pero que los inserte en 1 fila (cada item estaría en la misma fila, pero ocupando columnas distintas)=trasponer?
Suponiendo que ya tengo mas de una fila con distintos items es posible ir rellenado el listbox2 con distintas columnas a la vez?
Puedo adjuntar archivo si es necesario.
gracias
1 respuesta
Respuesta de Dante Amor
1
Te envié el archivo para transponer de unn list a otro
Este es el código
Private Sub CommandButton1_Click()
'por.dam
Dim filas, i, j, col As Integer
col = ListBox2.ColumnCount
If ListBox1.ListCount > col Then
ListBox2.ColumnCount = ListBox1.ListCount
End If
j = 1
filas = 1
For i = 0 To ListBox1.ListCount - 1
If filas = 1 Then
ListBox2.AddItem ListBox1.List(i)
filas = 2
Else
ListBox2.List(ListBox2.ListCount - 1, j) = ListBox1.List(i)
j = j + 1
End If
Next
ListBox1.Clear
End Sub Saludos.Dam
Si es lo que necesitas.
