Notifications
Clear all

Contador de tempo

2 Posts
2 Usuários
0 Reactions
637 Visualizações
(@evertonnff)
Posts: 0
New Member
Topic starter
 

Olá, não sou um otimo conhecedor de VBA, mas estou precisando fazer um contador de tempo tipo "timestamp"
onde eu digito na coluna A (qualquer valor) na coluna B (começa a contar um tempo tipo cronometro).
Eu consegui essa função com um botão, mas eu preciso ao digitar em uma celula, pois quero colocar um nome, e no final marcar o tempo dessa pessoa.
Sub Botão1_Clique()
If Plan1.Buttons(1).Text = "Stop" Then
If Range("j4").Value = "" Then
Range("j4").Value = Time
Range("l3").Select
Selection.Copy
Range("k4").Select
ActiveSheet.Paste
Range("k4").Formula = "=j4-i4"
Else
Range("j3").End(xlDown).Offset(1, 0).Value = Time
Range("k3").End(xlDown).Select
Selection.Copy
Selection.Offset(1, 0).Select
ActiveSheet.Paste
End If
Plan1.Buttons(1).Text = "Start"
Else
If Range("i4").Value = "" Then
Range("i4").Value = Time
Else
Range("i3").End(xlDown).Offset(1, 0).Value = Time
End If
Plan1.Buttons(1).Text = "Stop"
End If
End Sub

Se alguem puder me ajudar dando uma luz, como eu possa fazer isso.
Agradeço

 
Postado : 11/03/2016 1:24 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No forum tem vários modelos referente cronometros, de uma pesquisada e encontrara.

Mas uma obs quanto a sua necessidade, apos digitar o nome e iniciar o cronometro, como quer fazer para parar o cronometro ? Atraves de um botão ? ou outra forma.

[]s

 
Postado : 11/03/2016 8:10 pm