Oi
Estou tentando fazer um controle de estoque, apliquei este cod. abaixo de alterar entrada só que n Planilha deu certo, mas no listview ao invés de fazer o mesmo ele acrecenta o número do lado não faz a soma, por favor me ajude, no que estou errando....
Private Sub btAlterar_Click()
ultimaLinha = Plan1.Cells(Plan1.Cells.Rows.Count, "a").End(xlUp).Row + 1
For i = 2 To ultimaLinha
If cdID = Plan1.Cells(i, 1) Then
Plan1.Cells(i, 2) = UCase(cdProduto)
Plan1.Cells(i, 3) = UCase(cdUnid)
Plan1.Cells(i, 4) = UCase(cdQuantidade)
Plan1.Cells(i, 5) = UCase(cdGrupo)
Plan1.Cells(i, 4) = Plan1.Cells(i, 4) + UCase(cdEntrada)
Exit For
End If
Next
For i = 1 To lsLista.ListItems.Count
If lsLista.ListItems.Item(i) = cdID Then
lsLista.ListItems.Item(i).SubItems(1) = UCase(cdProduto)
lsLista.ListItems.Item(i).SubItems(2) = UCase(cdUnid)
lsLista.ListItems.Item(i).SubItems(3) = UCase(cdQuantidade)
lsLista.ListItems.Item(i).SubItems(4) = UCase(cdGrupo)
lsLista.ListItems.Item(i).SubItems(3) = lsLista.ListItems.Item(i).SubItems(3) + UCase(cdEntrada)
Exit For
End If
Next
End Sub
Eduardo
