Usar a função hora


#1

gente tenho uma planilha de anotação de ponto

DATA ENTRADA INTERVALO RETORNO SAIDA

01/01/18 7:00 11:00 12:00 15:20

NA DATA ELA JA ESTA PREENCHIDA AUTOMATICAMENTE O QUE EU QUERIA SABER SE TEM COMO AO ABRIR A PLANILHA POR EXEMPLO DO DIA 05 E COLOCAR O CURSOR NA CELULA DE ENTRADA ELA MARCAR A HORA , NO INTERVALO COLOCAR O CURSOR EM INTERVALO O SISTEMA JA MARCAR A HORA E ASSIM POR DIANTE,


#2

Isso é possível sim mas…

1- “colocar o cursor na célula”, seria apenas passar o mouse em cima? ou
seria clicar para selecionar a célula?

2- Teria como postar sua planilha para poder inserir o código diretamente lá?


#3
Espelho de Ponto - JOAO PAULO DOS SANTOS
Dia do Mês Carga horária Entrada Saída para Intervalo Retorno de Intervalo Saída Horas Trabalhadas Hora Extra Atraso / Falta
01/01/2018 - seg 7:20 9:22 12:20 13:20 17:50 7:28 0:08 0:00
02/01/2018 - ter 7:20 7:30 11:40 12:40 15:50 7:20 0:00 0:00
03/01/2018 - qua 7:20 5:00 20:49 20:50 20:51 15:50 8:30 0:00
04/01/2018 - qui 7:20 0:00 0:00 7:20
05/01/2018 - sex 7:20 0:00 0:00 7:20
06/01/2018 - sáb 7:20 0:00 0:00 7:20
07/01/2018 - dom 0:00 0:00 0:00 0:00
08/01/2018 - seg 7:20 0:00 0:00 7:20
09/01/2018 - ter 7:20 0:00 0:00 7:20
10/01/2018 - qua 7:20 0:00 0:00 7:20

#4

Bom dia, segue conforme pedido…

Abrç!

Insere_hora.xlsm (15,5 KB)


#5

Boa noite não era bem isso, mas tambem serviu ( depois dessa o que eu quero é o seguinte; apos voce clicar e aparecer a hora ,como travar esta celula com uma senha, para que não possa ser alterada ) e como faço isso


#6

Segue conforme pedido…

Insere_hora.xlsm (16,2 KB)


#7

Boa noite perfeito ,isso mesmo,mas como faço para colocar isso na minha planilha, eu abri a guia desenvolvedor na minha pasta e copie para la mas não funciona.
esta pasta de trabalho tem 4 nomes
plan1-esta as orientações
plan2-aline
plan3-carlos
plan4-henrique
plan4-rodolfo


#8

1 - Copie esse código: (é o mesmo da planilha em anexo)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
On Error Resume Next
i = ActiveCell.Row

If Target.Cells.Count > 1 Then
Exit Sub
End If


If Target.Column >= 4 And Target.Column <= 7 And Target.Row >= 2 And Target.Value = "" Then
If Range("A" & i).Value = Date And Target.Value = "" Then
Activesheet.Unprotect "123"
Target.Value = Time
Activesheet.Protect "123"
End If
End If

End Sub

2 - Vá até a guia desenvolvedor > Clique em visual Basic

3- No canto esquerdo haverá um menu com todas as Plans do seu arquivo. (plan1, Plan2, Plan3, etc;)

4 - Dê duplo clique em Plan2 e na tela em branco à direita cole o cógido…

5- Dê duplo clique em Plan3 e na tela em branco à direita cole o cógido…

6 - e assim por diante até colocar em todas as planilhas que tem esse controle de horário. (na plan orientações não precisa…)

Quando terminar, feche o visual basic e salve seu arquivo como .xls ou .xlsm


#9

Bom dia,ok esta gravando automatico em todas as planilhas, sò a senha que não esta funcionando


#10

Você copiou e colou esse código ou o código que já estava na planilha?
Eu não te falei mas fiz uma pequena alteração nesse código que está postado acima.
Tente colar ele no lugar dos que já estão lá.


#11

Boa tarde,desculpa , mas usei aquele codigo que voce enviou primeiro e usei este que voce postou por ultimo, segui suas orientações , como disse o horario funcionou corretamente so a senha que não funciona , quando clico em cima da celula grava a hora e se aperto delete , ela some


#12

Você pode postar a planilha final? aí eu faço alterações necessárias direto nela…


#13

boa noite eu enviei no e-mail que chegou pra mim


#14

FOLHA DE PONTO.xlsm (40,2 KB)


#15

Segue conforme pedido…

att.

TESTE PONTO.xlsm (40,5 KB)


#16

Funcionou corretamente, muito obrigado, abraço.


#17

Boa noite, conforme eu disse funcionou, so que quando eu vou mudar o mes na planilha inicio na celula b9 as planilhas não atualizão,arrumei a celula a9 e tive tambem que editar a celula b9 , so que as marcações não funciona .TESTE PONTO.xlsm (38,9 KB)


#18

Boa tarde Andre tudo bem,desculpa,mas neste ultimo post que fiz , sera que voce pode ajudar ?