Para criar um controle de estoque em Excel VBA, siga os passos abaixo:
Sub AdicionarProduto()'Insere novo produto na planilha'Dim linha As Integerlinha = Cells(Rows.Count, "A").End(xlUp).Row + 1Range("A" & linha).Select End Sub
Sub AtualizarProduto()'Atualiza a quantidade e o valor total do produto'Dim linha As IntegerDim qtd As DoubleDim preco As DoubleDim total As Double
linha = ActiveCell.Row qtd = Cells(linha, "B").Value preco = Cells(linha, "C").Value total = qtd * preco Cells(linha, "D").Value = total
End Sub
Sub CalcularEstoque()'Calcula o valor total do estoque'Dim linha As IntegerDim totalEstoque As Double
linha = Cells(Rows.Count, "A").End(xlUp).Row totalEstoque = Application.Sum(Range("D2:D" & linha)) MsgBox "O valor total do estoque é de R$" & totalEstoque
End Sub
Pronto! Agora você tem um controle de estoque em Excel VBA. Basta inserir os dados dos produtos e utilizar as macros criadas para atualizar e calcular as informações do estoque.