Este fórum está sendo desativado

[Ev3r]

Bom dia Srs.
Desculpem o título eu não achei palavras adequadas pra descrever.
Eu lanço mensalmente os cartões pontos dos colaboradores da empresa pra calcular as horas extras, eu queria uma maneira mais prática do que digitar a hora diretamente. São 18 cartões e isso leva um bom tempo T-T.

Penso que se houver uma forma do Campo onde eu insiro a hora funcionar assim:
o Campo ter um valor definido - 8:00 - 12:00 / 13:30 - 18:00 - que é a jornada padrão.
Mas eu puder por exemplo, o funcionário entrou as 7:59 e não as 08:00, eu digito no campo apenas o -1, e ele retorna 7:59.
O Campo funcionaria como se fosse uma fórmula mesmo, 8:00 - 1 = 7:59, porem eu digitaria só uma parte dela.

Não sei se ficou claro, anexo segue a planilha que eu lanço.

Obrigada.

[FelipeMGarcia]

Veja se o que fiz lhe ajuda, eu criei colunas auxiliares para digitar somente o ajuste e depois mostrar o ponto final.

Caso queira agradecer, clique na mãozinha,

Abs

[Ev3r]

Felipe, obrigada por responder.
Funciona, porem tbm preciso aumentar o tempo, quando ocorrer de o horário ser maior.
pro caso de entrada atrasado, tipo 8:05, o campo tem que entender quando for + ou - minutos.
e queria algo que eu pudesse digitar numero em formato de numero e não em hora pra agilizar, não sei se tem como isso.
mas obrigada de qualquer forma.

[osvaldomp]

Se você quiser testar uma solução via macro Instale uma cópia do código abaixo no módulo da planilha Folha Ponto, assim:
1. copie o código daqui
2. clique com o direito na guia daquela planilha e escolha 'Exibir Código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim oH As Date, nH As Double
 If Intersect(Range("C:D,F:G"), Target) Is Nothing Or Target.Value = "" Then Exit Sub
 If Not IsNumeric(Target.Value) Then Exit Sub
 If Abs(Target.Value) < 1 Then Exit Sub
 nH = Target.Value / 1440
 Application.EnableEvents = False
 Application.Undo
 oH = Target.Value
  On Error Resume Next
  If oH <> 0 Then
   Target.Value = oH + nH
  Else: Target.Value = Format(nH, "hh:mm")
  End If
 Application.EnableEvents = True
End Sub

obs. anexo uma cópia do seu arquivo com o código instalado

[Ev3r]

Osvlado, muito Obrigada!!!
Atende perfeitamente as minhas necessidades.
Obrigada mesmo!!!!