Recibo Excel Versão 2 – Planilha pronta Recibo Excel

Objetivo: Disponibilizar planilha pronta de Recibo em Excel.

Recibo 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:

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
Public Sub lsImprimirRecibo()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub
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
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 CLIENTESRECIBOS 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:

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

Sair da versão mobile