Excel VBA Planilha ListBox transfere dados para outro ListBox

Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções

Excel VBA Planilha ListBox transfere dados para outro ListBox

Estes procedimentos do Aplicativo Microsoft Excel VBA(Visual Basic Application), transfere dados escolhido em um objeto ListBox1 para outra Listbox2, e faz também retorna estes dados transferidos para a Listbox original.

Private Sub CommandButton1_Click()
If ListBox1.ListIndex = -1 Then Exit Sub
ListBox2.AddItem ListBox1.Value
ListBox2.List(ListBox2.ListCount – 1, 1) = ListBox1.Column(1, ListBox1.ListIndex)
ListBox1.RemoveItem ListBox1.ListIndex
End Sub

Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer
Dim vTemp
If ListBox2.ListIndex = -1 Then Exit Sub
ListBox1.AddItem ListBox2.Value
‘ListBox1.List(ListBox1.ListCount – 1, 1) = ListBox2.Column(1, ListBox2.ListIndex)
ListBox2.RemoveItem ListBox2.ListIndex

For i = 0 To ListBox1.ListCount – 1
For j = 0 To ListBox1.ListCount – 1
If ListBox1.List(i) < ListBox1.List(j) Then
vTemp = ListBox1.List(i)
ListBox1.List(i) = ListBox1.List(j)
ListBox1.List(j) = vTemp
End If
Next j
Next i
End Sub

Private Sub UserForm_Initialize()
Dim vArea As Range
Set vArea = Range(“A1:B” & Range(“B65536”).End(xlUp).Row)
With ListBox1
.ColumnCount = 2
.ColumnWidths = “30,10”
.List = vArea.Value
End With

With ListBox2
.ColumnCount = 2
.ColumnWidths = “30,10”
End With
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola SaberExcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.

Compre pelo PagSeguro		Compre pelo PayPal

Material Didático: Curso Excel VBA Expert