Porém, além disso, não sei se tem como fazer isso, mas gostaria que os itens que estou transferindo do Listbox para a planilha procurassem o seus respectivos numa tabela que tenho, e somassem os itens nela. Por exemplo:
No Listbox tem:
código Produto Quant
200 MOUSE 2
Ao finalizar ele procura o 200 nessa tabela e soma com o valor que lá já está, suponhamos tem 5 e ele soma com mais 2 que foram vendidos.
Pergunta
Michelle Alves
Olá Pessoal, novamente preciso do auxílio do fórum.
Estou transferindo os valores de um Listbox para a planilha, utilizando o seguinte código:
Private Sub AdButton6_Click()
For i = 0 To ListBox1.ListCount - 1
ActiveWorkbook.Sheets("VDA").Activate
Range("B5").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = ListBox1.List(i)
ActiveCell.Offset(0, 1).Value = ListBox1.List(i, 1)
ActiveCell.Offset(0, 2).Value = ListBox1.List(i, 2)
ActiveCell.Offset(0, 3).Value = TextBox3.Text
ActiveCell.Offset(0, 4).Value = Label7
ActiveCell.Offset(0, 5).Value = TextBox4.Text
ActiveCell.Offset(0, 6).Value = Label10
ActiveCell.Offset(0, 7).Value = ListBox1.List(i, 4)
Next i
Gridlines = True
ListBox1.Clear
End Sub
Porém, além disso, não sei se tem como fazer isso, mas gostaria que os itens que estou transferindo do Listbox para a planilha procurassem o seus respectivos numa tabela que tenho, e somassem os itens nela. Por exemplo:
No Listbox tem:
código Produto Quant
200 MOUSE 2
Ao finalizar ele procura o 200 nessa tabela e soma com o valor que lá já está, suponhamos tem 5 e ele soma com mais 2 que foram vendidos.
Editado por Michelle AlvesLink para o comentário
Compartilhar em outros sites
9 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.