Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Cancelando Applicat...
 
Notifications
Clear all

Cancelando Application.ontime sem botão.

 
2024 - VBA & Macros
Post Recente por smondardo 7 anos atrás
5 Posts
3 Usuários
0 Reactions
779 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: 857
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
 smondardo
(@smondardo)
Posts: 3
New Member
Topic starter
 

Obrigado Osvaldo, Funcionou!!

 
Postado : 07/02/2018 5:08 am
Forum Jump:
  Tópico Anterior
Próximo Tópico