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: Baixe a planilha

Abraço

Marcos Rieper


Marcos Rieper

Pai, marido, professor e consultor em Excel.

Obrigado por ler este artigo, este blog foi criado para difundir o conhecimento em Excel à todos.

Divulgamos novos artigos nas redes sociais, basta clicar nos ícones abaixo.

Excel não precisa ser complicado

Assine nossa newsletter e receba dicas práticas para dominar o excel