Esta ferramenta será muito útil para gerenciar seu inventário. Se você estiver procurando por uma ferramenta de gerenciamento de estoque ou se estiver pagando vários dólares por uma ferramenta de gerenciamento de estoque, pare e leia este artigo para criar seu próprio sistema de gerenciamento de estoque no Excel.
Faça o download
Se você quiser start para usar o software o mais rápido possível, então você pode:
Caso contrário, se você quiser DIY, pode ler o conteúdo abaixo.
Vamos preparar a GUI
Precisamos de 3 planilhas para preparar nossa própria ferramenta de gerenciamento de estoque usando o Excel. Renomeie a planilha 1 como “GUI”, a planilha 2 como “banco de dados” e a planilha 3 como “lista”. Na planilha “GUI”, prepare campos para exibir os nomes dos produtos como drop down e outro campo para permitir que o usuário insira a quantidade conforme mostrado na imagem. O menu suspenso ajudará o usuário a escolher facilmente um produto em vez de digitar o nome.
Vamos preparar o banco de dados
Na planilha “Banco de dados”, adicione os cabeçalhos “Data”, “Nome do produto”, “Quantidade” e “Tipo” conforme mostrado na imagem. Na Folha “Lista” adicione os cabeçalhos “SKU”, “Nome do produto”, “Descrição” e “Preço por item”.
Vamos torná-lo funcional
Copie a macro para um novo módulo e anexe a macro “StockIN” ao botão “StockIn” e a macro “StockOut” ao botão “Stock Out”.
Sub p_prod_dropdown() Dim lr As Long Dim r As Long lr = lst.Range("B" & Rows.Count).End(xlUp).Row Dim prodlist As String For r = 2 To lr If prodlist = "" Then prodlist = lst.Range("B" & r).Value Else prodlist = prodlist & "," & lst.Range("B" & r).Value End If Next r With gui.Range("C6:H6"). Validação .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operador:= _ xlBetween, Formula1:=prodlist .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .ShowInput = True .ShowError = True End With End Sub Sub StockIN() Dim lr As Long lr = db.Range("A" & Rows.Count).End(xlUp).Row + 1 db.Range( "A" & lr).Value = Now() db.Range("B" & lr).Value = gui.Range("C6").Text db.Range("C" & lr).Value = gui. Range("C9").Text db.Range("D" & lr).Value = "IN" End Sub Sub StockOUT() Dim lr As Long lr = db.Range("A" & Rows.Count).End (xlUp).Row + 1 db.Range("A" & lr).Value = Now() db.Range("B" & lr).Value = gui.Range("C6").Text db.Range( "C" & lr).Value = gui.Range("C9").Text db.Range("D" & lr).Value = "OUT" End Sub
Como funciona?
O Sub “p_prod_dropdown” lê a última linha usada da planilha “Lista”. Em seguida, prepara a lista de nomes de produtos como suspensa e a salva na planilha “GUI”. Agora o usuário pode usar este menu suspenso e selecionar um produto. Eles podem inserir uma quantidade e escolher “Stock In” ou “Stock Out”. As outras duas macros verificam a última linha disponível na planilha “Database” e salvam a entrada da planilha “GUI”. Ao lidar com um banco de dados enorme, é comum ver o Excel travar e ser corrompido. Um banco de dados limpo e pequeno o ajudará e evitará ter um Excel corrompido arquivo.
Ajuste-o
Os gráficos mostrados na imagem não são criados pelo script. No entanto, você pode modificar o script para criar relatórios de painel usando os dados da planilha “Banco de Dados”.
Introdução do autor:
Nick Vipond é um especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo consertar palavra e produtos de software de recuperação do Outlook. Para mais informações visite www.datanumen.com.
SOBRE NÓS