Cancelando Application.ontime sem botão.

2024 - VBA & Macros

Post Recente por smondardo 7 anos atrás

5 Posts

3 Usuários

0 Reactions

786 Visualizações

RSS

smondardo

(@smondardo)

Posts: 3

New Member

Topic starter

Olá,
Construi uma planilha para que ao apertar o botão "Iniciar" escreva um determinado valor gerado aleatoriamente em células (linhas sucessivas) a cada um segundo e fique fazendo isto até que um outro botão chamado "Parar" seja acionado. Porém necessito que o application.ontime pare quando uma certa condição de valor que está sendo escrita seja satisfeita, ou seja, que a mesma condição que acontece ao apertar o botão "Parar" aconteça com uma condição satisfeita.
Em anexo está a planilha com a aplicação.

O erro que acontece é o :

Erro em tempo de execução '1004':
O método 'OnTime' do objeto '_Application' fallhou

Postado : 30/01/2018 6:54 pm

klarc28

(@klarc28)

Posts: 971

Prominent Member

    If [e1] > 4 Then
    Call Cancela
    Exit Sub
    End If

Postado : 30/01/2018 8:24 pm

smondardo

(@smondardo)

Posts: 3

New Member

Topic starter

Obrigado pela resposta klarc28. Porém o erro permanece o mesmo quando habilitado o código abaixo.

If [e1] > 4 Then
Call Cancela
Exit Sub
End If

Postado : 31/01/2018 8:29 am

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

Experimente :

Sub Agendado()
 If [C1] = 1 Then
  Plan1.Cells(Plan1.UsedRange.Rows.Count + 1, 1).Value = [e1]
 End If
  Call Executa

    If [e1] > 4 Then
     Call Cancela
    End If

End Sub

Osvaldo

Postado : 31/01/2018 12:13 pm