Recibo Excel Versão 2 – Planilha pronta Recibo Excel

Como fazer planilhas bonitas no Excel - Converter Hexadecimal para RGB Excel
Como fazer planilhas bonitas no Excel – Converter Hexadecimal para RGB Excel
27 de abril de 2013
Guia do Excel patrocinando o carro 71 na categoria Turismo Clássico Catarinense "B"
Guia do Excel patrocinando o carro 71 na categoria Turismo Clássico Catarinense “B”
12 de maio de 2013

Objetivo: Disponibilizar planilha pronta de Recibo em Excel.

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

Recibo Excel 2

  • 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.

Para download do arquivo clique no botão abaixo:

DIGITE O SEU EMAIL PARA FAZER O DOWNLOAD DOS ARQUIVOS:

Abraço

Marcos Rieper


Clique aqui e leia mais sobre Excel VBA. https://www.guiadoexcel.com.br/vba/ O Guia do Excel foi criado por Marcos Rieper e oferece artigos, dicas, tutoriais e modelos de planilhas prontas. Aqui você encontra tudo sobre Excel, seja de nível básico, intermediário,  avançado e VBA. O Guia do Excel oferece diversos materiais completamente gratuitos para download. Navegue em nosso site e confira! Conheça também a nossa Loja do Excel https://loja.guiadoexcel.com.br/
Cursos

Curso Excel Completo – Curso Excel Básico + Curso Excel Avançado – Acesso Vitalício

R$218,00 R$179,00

COMPRAR
Cursos

Curso Excel Master – Curso Excel Básico + Curso Excel Avançado + Curso VBA Excel + LP – Acesso Vitalício

R$357,00 R$249,00

COMPRAR
Cursos

Curso Excel PRO – Curso Excel Avançado + Curso VBA Excel + Lógica de programação – Acesso Vitalício

R$258,00 R$199,00

COMPRAR
Cursos

Curso Excel Web – Curso VBA Excel + Lógica de programação + Curso Web Scraping VBA- Acesso Vitalício

R$388,90 R$309,00

COMPRAR

24 Comentários

  1. Lourenso disse:

    Parabéns Marcos. Apenas senti falta da pesquisa existente na planilha Imprimir Lista de Recibo, onde é possível pesquisar um recibo já emitido e coloca-lo na tela de novo. É possível implementar esta função nesta tabela (sem possibilidade de editar o recibo já salvo), assim como a funcionalidade de imprimir todos os recibos – facilitaria para o IR. Obrigado.

  2. Alisson disse:

    Boa Tarde!!

    Gostaria de uma ajuda com relação ao código abaixo, implementei um duplo ckick para selecionar a data atraves do datapicker. porem quero fazer isso em vários intervalos de células, por exemplo se eu der um duplo clike na cela b5 ou d5 o datapicker aparece.

    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    ‘ If IsDate(Target.Cells(1, 1).Value) Then
    If Not (Target.Row = 5 And Target.Column = 2) Then Exit Sub
    Cancel = True
    Set DatePickerForm.Target = Target.Cells(1, 1)
    DatePickerForm.Show vbModal
    Cancel = True

    ‘ End If

    End Sub

    Muito obrigado.

    • Marcos Rieper disse:

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
      If not (Target.Address = “$c$5” or Target.Address = “$d$5”) Then Exit Sub

      Cancel = True
      Set DatePickerForm.Target = Target.Address
      DatePickerForm.Show vbModal
      Cancel = True
      End Sub

  3. Parada disse:

    Tudo ótimo. Só gostaria que fizesse comentários do código, para eu entender melhor o que estou fazendo.
    Mas está tuodo perfeito, obrigado
    Parada

  4. André disse:

    Ola boa noite, nao consigo que funcione os macros para meu excele em um iMac, sabe me dizer que problema existe, muito obrigado….

  5. Bárbara Bettanin disse:

    Oi! Preciso de um auxilio…
    Como fazer para gravar dados em uma planilha que possuo de ordem de producao?
    Se eu mandar o arquivo vocês fazem? Eu pago se for necessário. Aguardo

  6. Thiago Alves disse:

    ELE ESTA DANDO O SEGUINTE PROBLEMA EM MEU IMAC

    Erro de compilação:

    Sub ou Function não definida
    (Módulo1 18:32)

    QUANDO EU CLICO EM OK ELE ABRE O VBA PROJECT COM ESSAS LINHAS EM AMARELO

    Function fExtenso(Num As Double, Optional FraçTipo As Integer, Optional UndNomeSing As String, _
    Optional UndNomePlur As String, Optional UndMasc As Boolean = True, _
    Optional UmMil As Boolean = True, Optional VirgEntrMilh As Boolean = False, _
    Optional CaixaAlta As Long = 1) As String

  7. Walker Ataide disse:

    Parabéns por esta planilha. Realmente muito boa. Agradeço por tê-la disponibilizada. O Único problema é que não funciona corretamente no MAC, por falha da própria Microsoft.

  8. Edson Hugo disse:

    Oi,
    No meu excel do MAC, esta dando erro e essa parte esta aparecendo em amarelo

    Function fExtenso(Num As Double, Optional FraçTipo As Integer, Optional UndNomeSing As String, _
    Optional UndNomePlur As String, Optional UndMasc As Boolean = True, _
    Optional UmMil As Boolean = True, Optional VirgEntrMilh As Boolean = False, _
    Optional CaixaAlta As Long = 1) As String

  9. clayton Barboza disse:

    Bom dia, nao consegui baixar.

    Aparece a seguinte mensagem:
    \Local\Temp\GR4s2Puu.zip.part não pôde ser salvo porque o arquivo de origem não pôde ser lido.

    Tente de novo mais tarde ou contate o administrador do servidor.

  10. Eudes Nery disse:

    Na hora do download apresenta erro.

  11. antonio disse:

    Erro no Dow!! Valeu!

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.

Inscreva-se no nosso canal do Youtube!


Junte-se ao nosso canal do Youtube. Começamos em abril de 2016, mas já temos mais de 06:00 h de treinamentos gratuitos e este número irá aumentar. Vídeos novos todos os sábados.