Excel - Pedido SUPER TOP! Passo a Passo! Botão Imprimir e Salvar!

#pedido #excel #top #fácil
Planilha de pedido com cadastro de produtos e clientes, busca automática ao preencher o pedido. Botão de Salvar, Imprimir e Novo com o código do pedido gerado automaticamente.

Dúvidas entre em contato com a gente
Nosso WhatsApp --▶ 67-3321-5119
Nosso e-mail --▶ [email protected]

Quer adquirir esta planilha? Acesse nossa loja no link abaixo.
https://loja.servicemanager.com.br/pr...

Este vídeo é a etapa 01 do Projeto, abaixo as demais etapas
02 - Adicionado Gravar e Buscar igual a um sistema
   • Excel - Pedido SUPER TOP! Com Opção d...  

03 - Adicionado Controle de Estoque
   • Excel - Pedido SUPER TOP! Passo a Pas...  

04 - Adicionada a Movimentação da Entrada de Estoque
   • Excel - Pedido SUPER TOP! Passo a Pas...  

05 - Adicionado Contas a Receber
   • Excel - Pedido SUPER TOP! Contas a Re...  

Capítulos
00:04:35 - Criação da Planilha Cadastro do Cliente
00:15:14 - Criação da Planilha Cadastro de Produtos
00:22:31 - Criação da Planilha de Cadastros Financeiros
00:28:56 - Criação da Planilha de Pedidos
01:01:19 - Inserção da Fórmulas na Planilha Pedidos
01:17:46 - Criação dos Botões e Inserção dos Códigos - abaixo

Medidas Planilha Clientes
Fonte Calibri tamanho 8.
Coluna A: 07
Coluna B: 15
Coluna C: 30
Coluna D: 30
Coluna E:57

Medidas Planilha Produtos
Fonte Calibri tamanho 11
Coluna A: 07
Coluna B: 50
Coluna C: 12
Coluna D: 12

Medidas Planilha Financeiro
Fonte Calibri tamanho 11
Coluna A: 07
Coluna B: 20
Coluna C: 8,43
Coluna D: 07
Coluna E: 20

Medidas Planilha Pedido
Coluna A: 05
Coluna B: 05
Coluna C: 00,5
Coluna D: 39,14
Coluna E: 07,43
Coluna F: 04
Coluna G: 13
Coluna H: 00,5
Coluna I: 16

Fórmulas
Célula I7 (onde é informado o CPF ou CNPJ do Cliente)
=SE(D7="";"";ÍNDICE(Tabela_Clientes[CPF / CNPJ];CORRESP(D7;Tabela_Clientes[FANTASIA];0)))

Célula G7 (onde há a descrição "CPF", "CNPJ" ou "CPF ou CNPJ")
=SE(I7="";"CPF ou CNPJ";SE(NÚM.CARACT(I7)=14;"CPF";SE(NÚM.CARACT(I7)=18;"CNPJ";"CPF ou CNPJ")))

Célula D8 (onde é informado o endereço do Cliente)
=SE(D7="";"";ÍNDICE(Tabela_Clientes[ENDEREÇO];CORRESP(D7;Tabela_Clientes[FANTASIA];0)))
Células A11 até A20 (onde são informados os códigos dos produtos)
=SE(B11="";"";ÍNDICE(Tabela_Produtos[CÓD.];CORRESP(B11;Tabela_Produtos[DESCRIÇÃO];0)))

Células E11 até E20 (onde são informadas as unidades dos produtos)
=SE(B11="";"";ÍNDICE(Tabela_Produtos[UNIDADE];CORRESP(B11;Tabela_Produtos[DESCRIÇÃO];0)))

Células G11 até G20 (onde são informados os valores dos produtos)
=SE(B11="";"";ÍNDICE(Tabela_Produtos[VALOR];CORRESP(B11;Tabela_Produtos[DESCRIÇÃO];0)))

Células I11 até I20 (onde são informados os Subtotais)
=SE(G11="";"";F11*G11)

Conteúdo do módulo (código as macros dos botões)
Sub Imprimir()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I$27"
ActiveWindow.SelectedSheets.PrintOut copies:=1
End Sub


Sub Salvar()
ChDir "C:\Pedidos"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Pedidos\" & Range("G5").Value, Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub


Sub Novo()
Range("B11:B20,F11:F20").Select
Selection.ClearContents
Range("G5").Value = Range("G5").Value + 1
Range("B11").Select
End Sub