Controle de ponto – Folha ponto Excel

300 Artigos Guia do Excel
300 Artigos Guia do Excel
16 de setembro de 2013
Cadastro de clientes VBA Excel com Imagem e Pesquisa
Cadastro de clientes VBA Excel com Imagem e Pesquisa
25 de setembro de 2013

Objetivo: Disponibilizar uma planilha de controle de presença e horas de trabalho para impressão.

Folha ponto

Cartão de Ponto: Com base no artigo 74, parágrafo 2º da CLT e portaria MTPS 3626/91, que determina registro manual, mecânico ou eletrônico para os estabelecimentos com mais de 10 (dez) empregados, é obrigatória a marcação de ponto com a anotação da hora de entrada e saída, devendo ser pré-assinalados os intervalos para repouso e alimentação. A pré -assinalação desses intervalos poderá ser feita pelo próprio empregador, de forma impressa ou não.” http://www.silvestrin.com.br/silvestrin/cartao-de-ponto/

Desta forma esta planilha foi criada para que possa ser impressa e assinada pelo cliente.

Na planilha Batidas de ponto você pode informar todos os horários em que houveram as marcações de ponto, ou senão deixar vazia, neste caso a planilha será emitida em branco permitindo que sejam escritos os horários manualmente.

Folha ponto 2

Os funcionários devem ser preenchidos na planilha Funcionários, estes serão os mesmos que irão constar na planilha Folha de Pto, bastando para isso mudá-lo manualmente.

Folha ponto 3

Para imprimir as folhas de ponto basta clicar no botão Imprimir folhas aonde serão impressas todas as folhas.

Folha ponto

Segue abaixo o código comentado da impressão:

Sub imprimir()
' On Error GoTo TratarErro

    'Declaração das variáveis
    'iTotalLinhas é o total de clientes
    'iLinhas é o controle da linha atual no loop
    Dim iTotalLinhas    As Long
    Dim iLinhas         As Long
 
    'Total de funcionarios, de cima para baixo localiza a última célula preenchida da lista'
    iTotalLinhas = Worksheets("Funcionarios").Cells(Rows.Count, 1).End(xlUp).Row
 
    'Inicia na linha logo abaixo do cabeçalho
    iLinhas = 2
 
    'Passa por todos os funcionarios'
    While iLinhas <= iTotalLinhas
        'Atualiza a folha de pto'
        Worksheets("Folha de Pto").Cells(6, 4).Value = Worksheets("Funcionarios").Cells(iLinhas, 1).Value
 
        'Imprime a Folha de Pto'
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
 
        'Passa para o próximo Funcionario'
        iLinhas = iLinhas + 1
    Wend
 
Sair:
    Exit Sub
TratarErro:
    'Tratamento de erro se houverem problemas
    MsgBox "Houve um erro na impressão!", vbCritical
    GoTo Sair
End Sub

DIGITE O SEU EMAIL PARA FAZER O DOWNLOAD DOS ARQUIVOS:

Download “Controle de ponto – Folha ponto Excel” Folha-ponto-e-justificativas.zip – Baixado 3010 vezes – 33 KB

Abraço

Marcos Rieper

15 Comentários

    • Marcos Rieper disse:

      Boa noite Edirley,

      Muito pela planilha, mas eu não consegui testar, pois ele está com senha no VBA e foi feito em uma versão 32 bits e o meu é o Excel 2010 que é 64 bits.

      Se puder me envie a senha para eu alterar para uma versão 2010, e parabéns pela planilha, parece excelente.

      Abraço

      Marcos Rieper

    • Izaque disse:

      Edirley, está pedindo a senha de administrador, eu ja digitei a1 mas nao deu certo eu quero fazer back up, como eu faço:

  1. Ruben disse:

    Bom dia Erdiley,

    A planilha está bloqueada por senha, teria como você entrar em contato por e-mail e enviar a senha? Se for pago podemos negociar.
    No aguardo.

  2. Lucas disse:

    Como eu faria para Inserir na folha de impressão a quantidade de horas extras e a quantidade de horas deventes?

  3. Lucilene disse:

    Ola ,Marcos Rieper ! porque o filtro da matricula só aparecem 2 opções? o 37001 e o 37002 , os restantes não aparecem para ser selecionados (batida de pontos)

  4. Lucilene disse:

    Olá, porque o filtro no ‘matriculas” só aparecem 2 opções – 37001 e 37002 (no batidas de pontos)? Sendo assim não consigo utilizar a matricula 37003 em diante…

  5. Alexandre disse:

    Muito bom!

Deixe uma resposta

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

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.