Controle de ponto – Folha ponto Excel

14
Controle de ponto - Folha ponto Excel

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:

Seu nome (obrigatório)

Seu e-mail (obrigatório)

Abraço

Marcos Rieper

14 COMENTÁRIOS

    • 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

  1. 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)

  2. 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…

DEIXE UMA RESPOSTA

Please enter your comment!
Please enter your name here