Excel - Pedido SUPER TOP! Contas a Receber - Controle de Vendas e Recebimentos

#excel #contas #receber #contasareceber #vendas #pagamentos Planilha de pedido com cadastro de produtos e clientes, busca automática ao preencher o pedido. Código do pedido gerado automaticamente. Grava o pedido e busca igual Sistema. Com controle de Estoque e de Movimentação da Entrada de Estoque. Com controle automático do Contas a Receber ao finalizar um pedido. Passo a passo, fácil! 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 05 do Projeto, abaixo as demais etapas 01 - Montar a planilha, adicionar botões Imprimir e Salvar em PDF    • Excel - Pedido SUPER TOP! Passo a Passo! B...   02 - Adicionado Gravar e Buscar igual a um sistema    • Excel - Pedido SUPER TOP! Com Opção de Gra...   03 - Adicionado Controle de Estoque    • Excel - Pedido SUPER TOP! Passo a Passo! C...   04 - Adicionada a Movimentação da Entrada de Estoque    • Excel - Pedido SUPER TOP! Passo a Passo! E...   Fórmula para buscar o Nome Fantasia do cliente através do código =SE(B2="";"";ÍNDICE(Tabela_Cliente[FANTASIA];CORRESP(B2;Tabela_Cliente[CÓD.];0))) pode-se utilizar o código abaixo para dar uma otimizada =SEERRO(SE(B2="";"";ÍNDICE(Tabela_Cliente[FANTASIA];CORRESP(B2;Tabela_Cliente[CÓD.];0)));"Código não encontrado!") Capítulos 00:20:20 - Declaração de variáveis e pegar o código do cliente 00:42:59 - Pegar a quantidade de parcelas da Condição de Pagamento 00:44:37 - Criação/Ajuste Tabela_Financeiro na Planilha FINANCEIRO 00:58:21 - Pegar a próxima linha disponível para inserir uma nova Conta a Receber 01:05:36 - Gravar no Contas a Receber O código abaixo é o utilizado no vídeo com algumas melhorias. 01 - Foram inseridas as linhas Planilha8.Protect e Planilha8.Unprotect Assim é possível deixar a Planilha8 (CONTAS A RECEBER) protegida (lá no menu Revisão / Proteger Planilha) evitando que alguém a altere 02 - Foi inserida a variável cod_conta para controlar o código do contas a receber 03 - Quando não há nenhuma conta a receber o cod_conta recebe o número 1 'Gravar no Contas a Receber Dim p As Integer Dim cod_cli As Integer Dim cod_conta As Integer Dim lin As Integer Dim parcelas As Integer Dim coluna As String Dim col As String coluna = "HIJKLMNOP" 'Pegar o códido do cliente na planilha/tabela clientes Planilha4.Select Planilha4.Range("C2:C1000").Find(What:=Planilha3.Range("D7").Value, LookAt:=xlWhole).Select cod_cli = Planilha4.Range("A" & ActiveCell.Row).Value 'Pegar a quantidade de parcelas Planilha1.Select Planilha1.Range("E3:E100").Find(What:=Planilha3.Range("I9").Value, LookAt:=xlWhole).Select parcelas = Range("F" & ActiveCell.Row).Value lin = ActiveCell.Row col = "G" 'pegar próxima linha disponível para inserir informação no Contas a Receber If Planilha9.Range("A2").Value = "" Then p = 2 cod_conta = 1 'será o primeiro código do conta a receber Else Planilha9.Select Range("A1").Select Selection.End(xlDown).Select cod_conta = Planilha9.Range("A" & p).Value 'maior código da conta a receber p = ActiveCell.Row + 1 End If 'Inserir na planilha Contas a Receber Planilha8.Unprotect 'desproteger a Planilha8 para permitir alteração. For i = 1 To parcelas Planilha8.Range("A" & p).Value = cod_conta 'código do conta a receber Planilha8.Range("B" & p).Value = cod_cli 'código do cliente Planilha8.Range("D" & p).Value = Planilha3.Range("G5").Value 'código da venda Planilha8.Range("E" & p).Value = Planilha3.Range("G2").Value 'data da venda Planilha8.Range("F" & p).Value = Planilha3.Range("I21").Value 'total da venda Planilha8.Range("G" & p).Value = Planilha3.Range("I21").Value / parcelas 'valor da parcela Planilha8.Range("H" & p).Value = i & " de " & parcelas 'para X de Y Planilha8.Range("I" & p).Value = DateAdd("d", Planilha1.Range(col & lin).Value, Planilha3.Range("G2").Value) 'vencimento 'verificar se é à vista If Planilha1.Range(col & lin).Value = 0 Then Planilha8.Range("J" & p).Value = "SIM" Else Planilha8.Range("J" & p).Value = "NÃO" End If cod_conta = cod_conta + 1 p = p + 1 col = Mid(coluna, i, 1) Next Planilha8.Protect 'proteger a planilha8 novamente.