Como Criar um Controle de Estoque no Excel Vba

Para criar um controle de estoque no Excel VBA, siga os seguintes passos:

1. Abra o Microsoft Excel e crie uma planilha com as seguintes colunas: Código, Descrição, Quantidade, Preço unitário, Valor total.

2. Adicione os dados de estoque na planilha.

3. Crie um botão na planilha para lançamentos de entrada de produtos. Para isso, selecione a guia “Desenvolvedor”, clique em “Inserir” e em seguida, clique em “Botão de comando”.

4. No editor do VBA (Visual Basic Editor), crie um módulo (basta clicar em Inserir > Módulo) e escreva o seguinte código:

Sub EntradaEstoque()

Dim Codigo As String Dim Descricao As String Dim Qtde As Double Dim Preco As Double Dim ValorTotal As Double

Codigo = InputBox("Informe o código do produto") Descricao = InputBox("Informe a descrição do produto") Qtde = InputBox("Informe a quantidade do produto") Preco = InputBox("Informe o preço unitário do produto") ValorTotal = Qtde * Preco

Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Codigo Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Descricao Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = Qtde Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Preco Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = ValorTotal

End Sub

5. Teste o botão de entrada de produtos. Ao clicar no botão, deve abrir uma caixa de diálogo pedindo para informar o código, descrição, quantidade e preço do produto.

6. Crie outro botão para lançamentos de saída de produtos. Repita os passos 3 e 4 e, no caso da saída, o código deve ser subtraído da quantidade existente na planilha.

Sub SaidaEstoque()

Dim Codigo As String Dim Descricao As String Dim Qtde As Double Dim Preco As Double Dim ValorTotal As Double

Codigo = InputBox("Informe o código do produto") Descricao = InputBox("Informe a descrição do produto") Qtde = InputBox("Informe a quantidade do produto") Preco = InputBox("Informe o preço unitário do produto") ValorTotal = Qtde * Preco

Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Codigo Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Descricao Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = -Qtde Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Preco Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = -ValorTotal

End Sub

7. Adicione os botões de entrada e saída na sua planilha e teste o funcionamento do controle de estoque.

Lembrando que o código acima é apenas ilustrativo e pode ser adaptado conforme as necessidades de cada usuário.