Captura Automática ...
 
Notifications
Clear all

Captura Automática de horas

10 Posts
2 Usuários
0 Reactions
2,704 Visualizações
Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Colegas:
Tenho uma planilha, conforme o anexo, onde preciso capturar a data, hora de início e hora de término, para calcular tempo de trabalho.
Gostaria de ter um código ou fórmulas em que eu possa criar dois botões: um "início", ao qual estará vinculado o momento em que é acionado e outro "final", em que será capturado o momento de seu acionamento, respectivamente, nas colunas "b" e "c", para apurar o total trabalhado, na coluna "d".
Gostaria também de poder ter, na coluna "a", como lista suspensa, um calendário, para colocar a data.
Não tenho experiência em VBA. Tentei algumas fórmulas como Agora(), mas as colunas são atualizadas pelo relógio do sistema e não obtenho o intervalo.
Agradeço qualquer ajuda. :oops: :oops:

 
Postado : 12/11/2014 4:11 pm
Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Colegas, estou tentando resolver esse meu problema. Quanto à coluna "a", tentei inserir os códigos e objeto conforme os módulos do VBA, mas não funcionou.
Alguém pode dar uma avaliada para mim, por favor?
Agradeço.

 
Postado : 13/11/2014 2:49 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Uma possibilidade, a hora na linha em que o cursor estiver posicionado

Reinaldo

 
Postado : 14/11/2014 7:06 am
Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Reinaldo, bom dia.

Agradeço muito sua ajuda, funcionou como eu queria.
Sem abusar de sua gentileza, poderia verificar para mim porque não funciona a captura da data, na coluna "a"?
Deveria fixar na célula em que está o cursor, a data clicada no calendário que surge com "Ctrl+k". Onde estou errando?
Agradeço sua atenção

 
Postado : 14/11/2014 8:43 am
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Está se referindo ao objeto errado. Seu objeto calendario tem nome --> Calendar1
substitua sua rotina pela abaixo:

Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
FrmCalendario.Hide
End Sub

Obs.: A formatação da coluna A também dever ser alterada para formato data

Reinaldo

 
Postado : 14/11/2014 10:04 am
Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Reinaldo, boa tarde.
Novamente agradeço sua atenção. Como disse inicialmente, não tenho muita prática com o VBA...

Na tentativa de tornar a planilha mais operacional, criei o código:
Sub Botão8_Clique()
Dim UltimaLinha As Long
UltimaLinha = Cells(Cells.Rows).End(xlUp).Row + 1
If UltimaLinha < 9 Then UltimaLinha = 9
Cells(UltimaLinha, "C") = Format(Time, "hh:mm")
End Sub

Com a intenção de não deixar falhas ou sobrepor os dados, porém não está funcionando.
Já busquei respostas no fórum, mas não encontrei.
Agradeço se puder ajudar.

 
Postado : 14/11/2014 1:22 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Não entendi o que deseja?

Reinaldo

 
Postado : 14/11/2014 2:47 pm
Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Reinaldo, boa noite.

Desculpe responder só agora. Viajei e só retornei hoje.

Consegui colocar na planilha em anexo, uma forma de calcular horas de trabalho, mesmo ultrapassando a meia noite, utilizando um código VBA.
Entretanto, o que eu gostaria, para tornar a planilha menos poluída, é separar a data da hora e não consegui fazer.
Ou seja, fazer com que na coluna "A" apareça somente a data, na coluna "B" somente a hora, quando acionado o botão "H.Início" e, quando acionado o botão "H.Final", se for no mesmo dia, apareça na coluna "C", somente a hora e, se for outro dia, apareça na próxima linha, na coluna "A" a nova data e na coluna "C", a hora, calculando na coluna "D" o tempo decorrido.
Da forma como está, consigo fazer o cálculo, entretanto, visualmente não fica muito bom o resultado.
Agradeço seu interesse e atenção.

 
Postado : 21/11/2014 3:50 pm
Reinaldo
(@rlm)
Posts: 246
Estimable Member
 

Apesar de não concordar com a expressão "visualmente não fica muito bom o resultado"; segue a rotina alterada para horas e dia como descrito.
Agora precisa rever as formulas de calculo

Reinaldo

 
Postado : 22/11/2014 6:03 am
Bautto
(@bautto)
Posts: 70
Estimable Member
Topic starter
 

Ok, Reinaldo.
Agradeço muito sua ajuda.
Grato mesmo.

 
Postado : 24/11/2014 3:02 pm