Boa tarde!
Pessoal to penando e depois de muito quebrar a cabeça busco vossa ajuda. Criei um botão para transferir dados da listBox1 para a ListBox2, mas esta dando erro. Solicito pelo menos uma dica para sair desse atolero que me meti. Desde já agradeço.
Private Sub CommandButton3_Click()
Dim i As Double
Dim Item As Long
Dim posicao As Long
Dim lItem As Double
Item = ListLocal1.ListIndex 'captura a posição da linha selecionada para copiar os dados a serem transferidos
posicao = ListLocal2.ListCount 'conta quantos dados tem na listbox2 para inserir os dados na posição correta
'MsgBox Item & " e " & posicao
Me.ListLocal2.Clear
Me.ListLocal2.ColumnCount = 3
With ListLocal2
.AddItem
.List(posicao, 1) = (Me.ListLocal1.List(Item, 1))
.List(posicao, 2) = (Me.ListLocal1.List(Item, 2))
.List(posicao, 3) = (Me.ListLocal1.List(Item, 3))
End With
Me.ListLocal1.RemoveItem (Me.ListLocal1.ListIndex) * "esta dando erro nesta linha" * :?:
Dim soma As Double
For i = 0 To ListLocal2.ListCount - 1
soma = soma + ListLocal2.List(i, 9)
Next i
txtTotal = FormatNumber(soma, 9)
End Sub
Postado : 22/12/2013 10:47 am