Este fórum está sendo desativado

[adrianoeap]

Ola, estimados boa noite!
Por gentileza uma ajuda rápida, estou usando o código abaixo para transferir os dados selecionados de um listbox para outro list box, mais eu nao consigo fazer o listbox3 receber todas a colunas do listbox1 que no caso seria mais de 20 colunas, esse codigo limita apenas 10 colunas. Antecipo grandemente meus sinceros agradecimentos


Dim item As Integer

Dim linhalistbox As Long


For item = 0 To ListBox1.ListCount - 1

If ListBox1.Selected(item) = True Then

linhalistbox = ListBox3.ListCount
With ListBox3 ' Adiciona itens na listbox
.AddItem
.List(linhalistbox, 0) = ListBox1.List(item, 0)
.List(linhalistbox, 1) = ListBox1.List(item, 1)
.List(linhalistbox, 2) = ListBox1.List(item, 2)
.List(linhalistbox, 3) = ListBox1.List(item, 3)
.List(linhalistbox, 4) = ListBox1.List(item, 4)
.List(linhalistbox, 5) = ListBox1.List(item, 5)
.List(linhalistbox, 6) = ListBox1.List(item, 6)
.List(linhalistbox, 7) = ListBox1.List(item, 7)
.List(linhalistbox, 8) = ListBox1.List(item, 8)
.List(linhalistbox, 9) = ListBox1.List(item, 9)
' .List(linhalistbox, 10) = ListBox1.List(Item, 10)
' .List(linhalistbox, 11) = ListBox1.List(Item, 11)

End With
linhalistbox = linhalistbox + 1
End If
Next item

Call Remove_selecionados_Click

End Sub