Cadastro de Orçamentos/Pedido de Venda Excel e VBA – Orçamento/Pedido de Venda Excel

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

GUT PPTAbraço

Marcos Rieper

 

excel vba

SISTEMA DE GESTÃO CONTA AZUL

O Excel é uma plataforma de trabalho muito aberta para servir ao gerenciamento de dados de uma empresa, dado a complexidade e a integração entre as diversas áreas que a compõe. Mas é a melhor para analisar suas informações.

Com a intenção de atender as micro e pequenas empresas a Conta Azul criou um software de gestão aonde você tudo o que você precisa para gerir a sua empresa: Estoque, Vendas, Financeiro e ainda emite Nota Fiscal Eletrônica, tudo isso em um sistema simples de trabalhar, que você acessa pela internet, não há a necessidade de comprar servidores e preocupar-se com backup e atendimento através de 0800.

O preço da ferramenta também chama a atenção, sendo um preço mais do que justo para se ter o controle dos dados e a geração de informações para a análise do seu negócio.

ContaAzul é um software de gestão financeira e fiscal para micro e pequenas empresas. Ele funciona 100% em plataforma web, não necessitando nenhuma instalação ou atualização. Você pode acessar de qualquer lugar e não tem necessidade de comprar nova licença caso troque de computador.

  O Guia do Excel recomenda o Conta Azul no gerenciamento de sua empresa.
Use QR-Code to get this permaking using your Smartphone. QR Code for Cadastro de Orçamentos/Pedido de Venda Excel e VBA – Orçamento/Pedido de Venda Excel

29 Comentários

  1. Simone disse:

    bom dia!
    muito legal sua planilha. vou aprender bastante com ela.
    e aproveitando gostaria de saber se tem algo do tipo, pesquisa com cliente, onde eu busque a empresa numa celula, e ja busque informacoes sobre a empresa, mais ou menos o principio q usou na sua aqui, e dai a gente vai fazendo a pesquisa usando campos de formulario com alternativas, ou multipla escolha. se possivel, que uma vez gravada a pesquisa, eu consiga consulta-la, e tambem adicionar pesquisas posteriores, adicionando-as a mesma empresa.
    nao sei se me expressei bem, qq coisa me mande email.
    obrigada!

  2. Fred disse:

    Legal sua planilha Marcos, já estou utilizando ela como base de conheciimento para fazer uma planilha de controle de entrada e saida de estoque. Mas estou precisando de uma ajudinha ainda. Gostaria de saber como faço uma macro tipo a que vc fez de Itens e Cabeçalho, mas não seria dividindo assim como a sua, os dados do pedido de saida ou entrada iriam todos para uma planilha de entrada e saida respectivamente. Se poder me dar uma ajudinha, pois não estou conseguindo concatenar sua ideia. Agradeço sua atenção. Abraço

  3. Rosemary Costa disse:

    Vou usa-la para estudo, parabéns pela iniciativa!!

  4. so mais uma coisa, a macro lsSalvar não esta disponível?

  5. Jose Luiz disse:

    Você é craque em Excel. Parabéns! Porém, encontrei um erro quando se cadastra o orçamento. Na somatória do desconto, só calcula o desconto do primeiro item, os demais não estão sendo somados, o mesmo ocorre na consulta do orçamento.

  6. Hugo disse:

    Bom dia

    Parabens amigo muito bom seu trabalho, entre em contato por favor abraços

  7. [...] Cadastro de Orçamentos/Pedido de Venda Excel e VBA – Orçamento/Pedido de Venda Excel [...]

  8. seli disse:

    Boa tarde Marcos… parabéns pela iniciativa de compartilhar sua criação com tanta gente, muita generosidade…
    Amei sua planilha… Quero muito colocá-la aqui no atelier, pois posso fazer o orçamento… e imprimir na hora…para os meus clientes…e ter o arquivo salvo para quando ele voltar e fechar o contrato.
    Porem como boa chef de cozinha não entendo nada de excel… vc teria um passo a passo? Para desta forma eu dar continuidade? e uma coisa… muito importante ela esta calculando desconto apenas no primeiro item, imagino que as maiorias das pessoas sabem corrigir… mas eu nã sei… ficarei muito grata se poder me ajudar… pois até agora a melhor planilha que achei é a sua… ficarei muito agradecida…
    att
    Maria

  9. Elaine disse:

    Muito boa sua planilha é exatamente o que eu preciso, por acaso vc tem algum tutorial??

  10. Edivania disse:

    Boa Tarde,

    Marcos,
    Baixei a planilha, porém quando abre dar erro, eu uso o ofice 2003, será que é por isso??

    Desde já agradeço!

  11. Silvio disse:

    Boa tarde Marcos !

    Poderia entrar em contato, por favor.
    Preciso de algo especifico…
    Parabéns pelo site!
    Abraço.

  12. Pa disse:

    Como faço para adiquirir a planilha de pedidos e cadastro.

  13. Lui disse:

    Boa tarde,
    eu usei o procedimento para criar razonetes e deu certo….porém esse aqui não estou conseguindo teria como dar uma ajudinha aee??desde já agradeço.

  14. Junior disse:

    Bom dia a todos!
    não tenho conhecimento em excel, como faço para carregar o codigo fonte no excel ?

  15. Obrigada pela planilha, realmente é um excelente começo, adaptei para meu uso na empresa e ficou show, no entanto algumas coisas não consegui mudar pois não tenho conhecimento para isso. Seria possível contratar seus serviços? Agradeço desde já.

  16. Paulo disse:

    ola amigo , como faço pra corrigir o erro na soma do desconto ? irei usar esta excelente ferramenta em meus negocios e pra isso preciso corrigir esse erro , obrigado

  17. Mauro disse:

    Baixei a planilha, que é excelente, mais a soma dos desconta ainda continua com erro.

    Mauro

  18. Douglas disse:

    Como faço para adicionar mais itens na planilha?!

  19. Adriana disse:

    Ola não consigo inserir mais linhas e arrastar formulas.
    Quando insiro mais linhas na pequisa de orçmento e itens do orçamento não vai automatico, como faço para que isso ocorra corretamente?

    Adriana

  20. Gustavo disse:

    Muito boa a Planilha. mais gostaria de saber se tem como fazer uma aba para modificação e salvar?

Deixe o seu comentário


 
%d blogueiros gostam disto: