Bom dia!
Comecei a programaar no VBA excel a pouco tempo e estou quebrando a cabeça com a seguinte questão:
Tenho uma planilha com número do pedido, clientes finais, descrição do item e quantidade do item para cada cliente.
Para tratar da compra com os fornecedores, não importa para quem vai o item, somente importa o nº do pedido, a quantidade total por item e a descrição.
Preciso que, no evento exit da descrição, o vba faça a soma da quantidade de produtos repetidos dentro do mesmo pedido. Exemplo:
CLIENTE FINAL
PEDIDO CLIENTE ITEM QTDE
1 João Banana 10
1 Felipe Banana 10
1 Mariana Banana 10
1 Rogério Melão 10
1 Camila Melão 10
1 Rogério Pêssego 10
1 Camila Pêssego 10
1 Felipe Pêssego 10
2 João Uva 10
2 Felipe Uva 10
2 Camila Melão 10
2 Mariana Melão 10
2 Felipe Banana 10
2 Camila Banana 10
LISTA DE COMPRAS
PEDIDO ITEM QTDE
1 Banana 30
1 Melão 20
1 Pêssego 30
2 Uva 20
2 Melão 20
2 Banana 20
É possível fazer isso?
Alguém poderia me ajudar?
Minha última tentativa foi essa:
Private Sub gerdescrição_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'Verificar gerreq e descrição do item na Base para somar
Ulinha = Worksheets("Base").UsedRange.Rows.Count
For linha = 2 To Ulinha
Worksheets("Base").Select
'Variáveis para a condicional
soma = 2
Do
iqtde = Cells(soma, 8)
soma = soma + 1
Exit Do
Loop While CStr(Cells(linha, 4)) = gerreq
req = CStr(Cells(linha, 4))
desc = Cells(linha, 7)
qtde = Cells(linha, 8)
'Somar apenas se o descritivo for repetido e pertencer a mesma requisição
If gerreq.Value = req And gerdescrição.Value = desc Then
gerqtde = qtde + iqtde
End If
Next
End Sub
Postado : 18/10/2018 7:16 am