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