Objetivo: Disponibilizar planilha pronta de Recibo em Excel.
Esta é uma nova versão do recibo em Excel criado em http://guiadoexcel.com.br/recibo-em-excel-e-vba ,esta nova versão tem algumas novas funcionalidades para facilitar o trabalho com a mesma.
Novas funcionalidades:
- Data: Neste campo está a data que constará no recibo, foi utilizada a função HOJE() que retorna a data atual do seu computador;
- Cidade: Este campo é utilizado para preencher automaticamente a cidade que constará no recibo por padrão, basta atualizá-la para a cidade emissora;
- Gravar recibo: Neste botão o sistema irá gravar o recibo atual na base de dados, abaixo o código VBA Excel que grava esta funcionalidade:
Public Sub lGravarRecibo() Dim iTotalLinhas As Long iTotalLinhas = Worksheets("Dados").Cells(Worksheets("Dados").Rows.Count, 1).End(xlUp).Row + 1 Worksheets("Dados").Cells(iTotalLinhas, 1).Value = Worksheets("Recibo").Cells(2, 5).Value Worksheets("Dados").Cells(iTotalLinhas, 2).Value = Worksheets("Recibo").Cells(2, 9).Value Worksheets("Dados").Cells(iTotalLinhas, 3).Value = Worksheets("Recibo").Cells(4, 4).Value Worksheets("Dados").Cells(iTotalLinhas, 4).Value = Worksheets("Recibo").Cells(8, 4).Value + Worksheets("Recibo").Cells(9, 2).Value Worksheets("Dados").Cells(iTotalLinhas, 5).Value = Worksheets("Recibo").Cells(1, 13).Value Worksheets("Dados").Cells(iTotalLinhas, 6).Value = Worksheets("Recibo").Cells(17, 3).Value Worksheets("Dados").Cells(iTotalLinhas, 7).Value = Worksheets("Recibo").Cells(17, 8).Value Worksheets("Dados").Cells(iTotalLinhas, 8).Value = Worksheets("Recibo").Cells(19, 3).Value Worksheets("Dados").Cells.Columns.AutoFit Worksheets("Recibo").Cells(2, 9).Select End Sub
- Imprimir recibo: Imprime o recibo em quantas vias for necessário, por padrão já imprime em duas vias, abaixo o código VBA Excel que imprime o recibo:
Public Sub lsImprimirRecibo() ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub
- Limpar recibo: Efetua a limpeza dos dados do recibo para poder preencher novos dados, abaixo o código VBA Excel:
Public Sub lsLimpaRecibo() Worksheets("Recibo").Cells(2, 9).Value = "" Worksheets("Recibo").Cells(4, 4).Value = "" Worksheets("Recibo").Cells(8, 4).Value = "" Worksheets("Recibo").Cells(9, 2).Value = "" End Sub
- Cadastrar novo fornecedor: Feito para cadastrar um novo fornecedor que poderá ser selecionado no recibo, abaixo o código VBA Excel:
Public Sub lsOrdenar() Worksheets("Cadastro").Select ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Cadastro").Sort.SortFields.Add Key:=Range("A2:A4") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("Cadastro").Sort .SetRange Range("A1:C4") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With End Sub
Ainda no recibo foi inclusa a seleção do fornecedor pelo nome, aonde ele já trará os dados cadastrados, sem a necessidade de buscar todos os dados sempre.
Planilha de Recibos Excel em Lote
Você precisa emitir recibos em massa? A planilha de emissão de recibos Excel em lote te permite imprimir ou gerar em PDF todos os seus recibos de uma só vez.
Trabalhos que poderiam duras algumas horas para gerar os recibos poderão ser realizados em dois segundos, apenas pressionando um botão.
Funcionalidades da Planilha de Recibos Excel
O sistema de recibo possui um controle de CLIENTES, RECIBOS e EMISSÃO DE RECIBOS, tudo acessado por meio de botões como em um sistema, mas no Excel.
Conheça a versão profissional e pronta para você ter um controle efetivo dos recibos da sua empresa e tudo com uma impressão profissional, e três recibos em uma única folha.
A planilha possui:
- Cadastro dos dados da empresa
- Cadastro de clientes
- Lançamento de recibos
- Tela de seleção de recibos a imprimir
- Geração individual e em lote de recibos em PDF
- Geração individual e em lote de recibos Impressos
Tudo isso imprimindo em até 3 recibos na mesma folha e com a aparência e o padrão perfeito de recibo como vê na imagem acima.
Você pode adquirir esta versão profissional no botão abaixo.
Para download do arquivo clique no botão abaixo:
DIGITE O SEU EMAIL PARA FAZER O DOWNLOAD DOS ARQUIVOS: Baixe a planilha