Este fórum está sendo desativado

[Suenne]

Caros, bom dia!

gostaria da ajuda de vocês para criar uma planilha para controle de ponto.

Meu objetivo final é filtrar todo final de período, os colaboradores que fizeram horas extras.

Meu intervalo para fechamento de ponto compreende sempre do dia 16 ao dia 15 do mês seguinte.

Alguém pode me ajudar?

Segue em anexo planilha com a jornada de trabalho.

Obrigada.

[Pernilongo]

bom dia suenne,
diga-nos alguns detalhes, quantas horas por dia é "normal" aí na sua empresa? sabado é domingo é considerado hora extra? a partir de que horas ? voce já conseguiu calcular a quantidade de horas ?
a partir de quantas horas por mês é considerado hora extra?
pra vc comecar a entender veja que na sua linha da segunda coloque essa fórmula na f4 =(E4-D4)+(C4-B4)
vc terá a qtde de horas daquele dia...
enfim, dê mais detalhes do seu problema pra gente tentar te ajudar

[Suenne]

Olá Pernilongo!

primeiramente obrigada, então, sobre calcular as horas extras, é tranquilo.

Minha dificuldade está em facilitar a inserção dos dados por colaborador, e no final do mês conseguir realizar filtros, por exemplo:

Todos os colaboradores que fizeram horas extras no dia 25/08/2015.

Eu dividia isso em abas, mas não está facilitando na hora de digitar os dados.

Segue em anexo o que fiz até agora.

[alexandrevba]

Boa tarde!!

Porque não postou seu modelo, contendo o antes e depois do que deseja, tem pessoas como eu que não entende de como funciona o ponto, mas consegue a partir de determinado dado transfoma-lo em informação.

Quanto os outros não responde, se quiser alterar seu modelo ou explicar melhor...fique a vontade.

Att

[wagnersoares]

Boa tarde Pessoal

Por favor, se deu certo esta planilha de ponto, alguém poderia disponibiliza-la para mim??

Agradeço

[Suenne]

Bom dia,

postei a planilha no meu comentário anterior.

Conseguiram visualizar?

Obrigada.

[Suenne]

Caros, boa tarde!

fiz um upgrade na planilha, mas ainda não consegui chegar no resultado esperado.

Coloquei uma seleção do colaborador, eu preciso que sempre que o colaborador for alterado, ele carregue um formulário em branco e depois de preenchido eu tenha a opção de enviar para base geral, onde usarei para gerar os relatórios.

Alguém pode me ajudar?

Obrigada,

[alexandrevba]

Bom dia!!

O que é formulário pra vc seria a guia Ponto, então quando a célula D7, for alterado por outro Colaborador, então os campos referentes as colunas ( Entrada - Saída | Entrada - Saída | Carga horária / Dia) devem ser limpos, se puder ser claro, talvez sua ajuda será mais rápida e eficiente.

Se for isso, use a linha...

Código: Selecionar todos

 Range("E14:I43").ClearContents

Att

[Suenne]

Bom dia Alexandre,

vou detalhar o que preciso.

Referente a limpeza das células, eu consegui fazer, meu problema agora é incluir esses dados em uma outra aba que será meu "banco de dados". Sempre que a pessoa registar o ponto do funcionário, ele armazena esses dados em outra aba.

Assim que eu levar os dados de entrada e saída, eu preciso também levar o período e o nome do colaborador.

Como o período e nome do colaborador é digitado apenas no cabeçalho, eu preciso encontrar uma forma de repetir essas informações para acompanhar os dados que estão por dia na planilha Base Geral.

Eu já consigo copiar os dados de entrada e saída, preciso da solução pro período e nome.

Consegui clarear?

Obrigada,

[alexandrevba]

Boa tarde!!

Código: Selecionar todos

Sub AleVBA_485()
'Seria mais ou menos isso ???
Worksheets("Gambiarra").Rows("2:1000").EntireRow.Delete
Worksheets("Ponto").Range("C13:K43").Copy
    With Sheets("Gambiarra").Range("A1").End(xlUp).Offset(1)
         .PasteSpecial xlPasteFormats
         .PasteSpecial xlPasteValues
    End With
    Worksheets("Ponto").Range("D5").Copy Range("J2:J43")
    Worksheets("Ponto").Range("D7").Copy Range("K2:K43")
    Worksheets("Ponto").Range("D9").Copy Range("L2:L43")
End Sub

Att

[Suenne]

É isto mesmo que estou precisando, só que a função de colar na próxima linha em branco não funcionou.

O que pode ser?

[alexandrevba]

Boa tarde!!

Então tente assim, mas isso é só uma forma tosca, ainda temos que ver uma forma de apurar as linhas com dados remanejar para sua real base de dados.

Código: Selecionar todos

Option Explicit
Sub AleVBA_485()

Worksheets("Gambiarra").Rows("2:1000").EntireRow.Delete
Worksheets("Ponto").Range("C13:K43").Copy
    With Worksheets("Gambiarra").Range("A1").End(xlUp).Offset(1)
         .PasteSpecial xlPasteFormats
         .PasteSpecial xlPasteValues
    End With
       
       
    With Worksheets("Gambiarra")
        .Range("J2:J43") = Worksheets("Ponto").Range("D5")
        .Range("K2:K43") = Worksheets("Ponto").Range("D7")
        .Range("L2:L43") = Worksheets("Ponto").Range("D9")
    End With

End Sub

Att

[Suenne]

Alexandre, acho que estamos quase lá.

A função abaixo é a responsável por validar qual a última linha que tem dados na plan Gambiarra, certo?

With Worksheets("Gambiarra").Range("A1").End(xlUp).Offset(1)

Se for isto, ela não cola o dado na próxima linha, está sempre substituindo

[alexandrevba]

Bom dia!!

Foi posto propositalmente, por isso eu chamei de gambiarra.

Minha ideia seria entender melhor, e só depois copiar da guia gambiarra para a guia que vc deu nome de Banco de dados.

Eu preciso entender sua dúvida melhor.

Por exemplo: Se você tem as linhas em branco (dia 08-09/08/2015), corre o risco de ter dados depois..?
(dia 10-11/08/2015).
Data----------Entrada-Saida-Entrada-Saida-
05/08/2015-08:00-----12:00-13:00-----17:48
06/08/2015-08:00-----12:00-13:00-----17:48
07/08/2015-08:00-----12:00-13:00-----17:48
08/08/2015-08:00-----
09/08/2015-08:00-----
10/08/2015-08:00-----12:00-13:00-----17:48
11/08/2015-08:00-----12:00-13:00-----17:48

A ideia seria pegar somente os dados (linhas com Data - HrEntrada - HrSaida), depois de separa-los e jogar na guia realmente desejada...
Att