Cadastro de orçamento Excel / VBA

Objetivo: Disponibilizar uma planilha para o cadastro de orçamento que realiza a gravação dos dados e permite a pesquisa de orçamentos anteriores.

Sub lsSalvar()
    lsCabecalho
    lsItens
End Sub

Sub lsCabecalho()

    Dim lUltimaLinhaAtiva As Long
    Dim lMax As Long
    Dim lLinhaAtual As Long

    lUltimaLinhaAtiva = Worksheets("Cab_Orcamento").Cells(Worksheets("Cab_Orcamento").Rows.Count, 1).End(xlUp).Row

    lLinhaAtual = lUltimaLinhaAtiva + 1

    If IsNumeric(Worksheets("Cab_Orcamento").Cells(lUltimaLinhaAtiva, 1).Value) Then
        lMax = Worksheets("Cab_Orcamento").Cells(lUltimaLinhaAtiva, 1).Value + 1
    Else
        lMax = 1
    End If

    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 1).Value = lMax
    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 2).Value = Sheets("Orcamento").Range("G3").Value
    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 3).Value = Sheets("Orcamento").Range("C8").Value
    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 4).Value = Sheets("Orcamento").Range("D8").Value
    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 5).Value = Sheets("Orcamento").Range("G6").Value
    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 6).Value = Sheets("Orcamento").Range("G7").Value
    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 7).Value = Sheets("Orcamento").Range("G8").Value
    Sheets("Cab_Orcamento").Cells(lLinhaAtual, 8).Value = Sheets("Orcamento").Range("G9").Value
    Sheets("Orcamento").Range("G2").Value = lMax

End Sub
Sub lsItens()

    Dim lUltimaLinhaAtiva As Long
    Dim lMax As Long
    Dim lLinhaAtual As Long
    Dim i As Integer
    Dim lItens As Integer

    lUltimaLinhaAtiva = Worksheets("Ite_Orcamento").Cells(Worksheets("Ite_Orcamento").Rows.Count, 1).End(xlUp).Row
    lLinhaAtual = lUltimaLinhaAtiva + 1
    Worksheets("Orcamento").Range("K18").FormulaR1C1 = "=MAX(R[-6]C[-9]:R[9]C[-9])"
    lItens = Range("K18").Value
    Worksheets("Orcamento").Range("K18").Clear

    lLinhaAtual = lLinhaAtual - 1

    For i = 1 To lItens
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 1).Value = Sheets("Orcamento").Range("G2").Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 2).Value = Sheets("Orcamento").Cells(11 + i, 2).Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 4).Value = Sheets("Orcamento").Cells(11 + i, 3).Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 5).Value = Sheets("Orcamento").Cells(11 + i, 4).Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 6).Value = Sheets("Orcamento").Cells(11 + i, 5).Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 7).Value = Sheets("Orcamento").Cells(11 + i, 6).Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 8).Value = Sheets("Orcamento").Cells(11 + i, 7).Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 9).Value = Sheets("Orcamento").Cells(11 + i, 8).Value
        Worksheets("Ite_Orcamento").Cells(lLinhaAtual + i, 10).Value = Sheets("Orcamento").Cells(11 + i, 9).Value
    Next i

End Sub

Sub lsLimpar()
    Worksheets("Orcamento").Select
    Range("G2").ClearContents
    Range("G3").ClearContents
    Range("G6:I6").ClearContents
    Range("G7:I7").ClearContents
    Range("G8:I8").ClearContents
    Range("G9:I9").ClearContents
    Range("C8").ClearContents
    Range("C12:C27").ClearContents
    Range("E12:E27").ClearContents
    Range("H12:H27").ClearContents
    Range("C8").Select
End Sub

Download da Planilha de Orçamento

Download — baixe aqui: Planilha de orçamento

Planilha de Vendas e Estoque com BD Excel

Você precisa ter um controle de vendas, estoque e financeiro para a sua empresa? A planilha de vendas e estoque com BD resolve este problema.

Com ela você terá um controle completo de clientes, fornecedores, orçamentos, vendas, estoque, contas a pagar, contas a receber, fluxo de caixa e resultado financeiro.

Funcionalidades

O sistema de gestão comercial tem não somente a parte de vendas, como também COMISSÃO DE VENDEDORES, MARKETPLACES, CUSTO MÉDIO DO ESTOQUE para saber a LUCRATIVIDADE POR VENDA, + DE 20 RELATÓRIOS e UM DASHBOARD.

Pesquisa de Orçamentos e Pedidos

O sistema possui uma pesquisa com vários filtros para encontrar um orçamento criado ou um pedido e é possível gerar automaticamente um pedido à partir de um orçamento.

Geração de Pedidos – Planilha de Vendas e Estoque com BD

Na geração de pedidos você terá os dados à partir de cadastros já feitos e trará o cliente, vendedor, marketplace, quantidade de parcelas, forma de pagamento e vencimento inicial.

Em itens basta colocar o código e a quantidade.

Com estas informações o sistema irá retornar automaticamente o saldo de estoque de cada item do pedido, o custo médio atual, o lucro que estará tendo na venda por item e ainda ao gerar irá fazer a movimentação de estoque e a criação automática das parcelas no Contas a Receber.

Abaixo você tem o Estoque atual, estoque atual -quantidade do pedido, custo médio, valor unitário – custo médio e o total unitário – custo médio.

Com isso terá o quanto irá ganhar em cada venda.

Fluxo de Caixa e Controle de Contas

O sistema possui um controle de fluxo de caixa e de contas bancárias, tendo assim as movimentações e saldos de cada conta nos relatórios e no cadastro.

Demonstrativo de Resultado

No demonstrativo de resultado você tem o contas a pagar e contas a receber e outro de fluxo de caixa, que indica o total por conta e mês para o período.

Relatório de Saldo Geral de Estoque

No saldo geral de estoque você tem o saldo de cada item no estoque, também o total de entradas, saídas e o custo médio do estoque por item.

Dashboard

O sistema possui também um dashboard de vendas e estoque que apresenta várias informações importantes para visualizar como está a empresa como as vendas mensais, contas a pagar e receber, metas, orçamentos sem pedidos, saldo de estoque e a comparação diária de vendas com o mês anterior.