Este fórum está sendo desativado

[pasedo]

Boa tarde pessoal, fiz este cronometro baseado em um do access, mas não deu certo, onde está o erro aqui neste do excel? Grato

[babdallas]

Aquela outra solução que eu fiz no tópico "segundos no label" não te atendeu?

Outra coisa, você usou uma propriedade chamada TimeValue do Userform. Que eu saiba esta propriedade não existe.

[pasedo]

Ola babdallas, sim aquele no label deu certinho muito obrigado, é que este seria para um cronômetro de milésimos de segundos, no acess funciona onde eu coloquei timevalue é timeinterval no access, só que no excel não tem esta propriedade . Grato

[pasedo]

Bom diaaaa, alguém para dar uma idéia? grato

[blackout7]

Private Sub CommandButton1_Click()
r = False
Etii = Timer() - n
Me.Repaint
Do Until r
e = Int((Timer() - Etii) * 100) / 100
If e > n Then
n = e
Label1.Caption = Format(e / 86400, "hh:mm:ss.") & Format(e * 100 Mod 100, "00")
DoEvents
End If
Loop

End Sub

[babdallas]

Muito bom blackout7. Não conhecia este função timer! Sempre aprendendo! Obrigado!

[pasedo]

blackout7, muito obrigado deu certo, só não estou conseguindo pausar o cronometro, mas valeu.

[pasedo]

Ola bom dia consegui esta parte, preciso que o reset funcione para que ele pare o cronometro e limpa . grato a quem puder me ajudar.

[blackout7]

Adicionar botão stop no userform com o código<r=true>,abaixo de Option Explicit escrever <dim r as boolean>,em Private Sub cmdTimer_Click() deletar dim r,em Private Sub cmdReset_Click() deletar UserForm1.lblElapsed.Visible = False e escrever range("a3:a100").delete