Notifications
Clear all

Cancelar/ Interromper uma sub/ macro em execução

4 Posts
3 Usuários
0 Reactions
4,754 Visualizações
 msc
(@msc)
Posts: 1
New Member
Topic starter
 

Prezados, criei uma macro (sub Repetir_Mensagem) e a associei a um botão para ativá-la.

Do mesmo modo quero associar a outro botão uma macro que interrompa a que criei enquanto ela estiver rodando.

Ocorre que não sei o pq ela está dando erro.

O código dela é o descrito abaixo:

Sub Parar()
If Repetir_Mensagem = True Then
Exit Sub
Else
MsgBox ("Macro já está desativada.")
End If
End Sub

Desde já agradeço o auxílio.

Grato.

 
Postado : 07/12/2015 8:47 pm
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

msc,

Bom dia!

Por gentileza, leia as regras do fórum.

Para melhor respostas a sua demanda, estou transferindo seu tópico para o sub fórum apropriado: VBA & Macros.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/12/2015 7:48 am
Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

msc,

Para interromper a execução da macro, você pode, simplesmente, pressionar CTRL + BREAK.

Da forma que você está tentando não é possível. Para maior clareza do que você precisa, anexe, aqui mesmo no fórum, um arquivo exemplo compactado (com dados fictícios, porém com o verdadeiro layout do seu arquivo original). Assim ficará mais fácil todos entenderem e ajudá-lo.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 08/12/2015 7:52 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

É bem como o Wagner disse, da para captar a idéia, mas precisamos de detalhes, dependendo do tipo de rotina que está executando tem como parar atraves de outra, por exemplo, supondo que está executando uma rotina que adiciona um relógio em uma celula e o mesmo fica atualizando segundo a segundo, ou seja continuará até que interrompemos a execução, então colocamos outra para interromper.
Seria mais ou menos assim :
Pegando um exemplo aqui do Forum (relogio automatico - viewtopic.php?f=29&t=7309)

Dim aHora As Date
    
    Sub Tempo()
        Sheets("Plan1").Range("A1").Value = Format(Time, "hh:mm:ss")
        Horario
    End Sub

    Sub Horario()
        aHora = Now + TimeValue("00:00:01")
        Application.OnTime aHora, "Tempo"
    End Sub

    Sub Parada()
        Application.OnTime EarliestTime:=aHora, Procedure:="Tempo", Schedule:=False
    End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 08/12/2015 8:51 am