Página 1 de 1

Botao para sair da rotina "For"

Enviado: 26 Jan 2017 às 23:09
por valcir
Ola tenho o codigo abaixo rodando dentro de 01 botao .
Private Sub btExecuta2_Click()
For cont = 1 To 1000
ActiveCell.Value = cont
ActiveCell.Offset(1, 0).Select
End Sub
Next
Como faço para colocar um codigo em OUTRO BOTAO para interromper o loop se novo botao for clicado.
Ou seja se durante a execuçao do (for) se o outro botao for acionado, sair da rotina. O Outro Botao esta em um formulario.

Botao para sair da rotina "For"

Enviado: 26 Jan 2017 às 23:39
por DJunqueira
Testa uma variável pública se ela for verdadeira EXIT SUB...

Botao para sair da rotina "For"

Enviado: 27 Jan 2017 às 20:33
por valcir
Ola estou tentado aprender VBA, pelos videos do youtube, nao sei todos os conceitos ainda. poderia detalhar como seria este processo.
obrigado

Botao para sair da rotina "For"

Enviado: 28 Jan 2017 às 06:41
por DJunqueira
Declara a variável fora da sub-rotina, bem no início.

Public Botão_Sim_Não As Boolean

Depois monta um IF THEN ELSE

IF Botão_Sim_Não = True Then Botão_Sim_Não = False Else Botão_Sim_Não = True

E depois checa a variável em alguma parte da sua sub-rotina.

Botao para sair da rotina "For"

Enviado: 31 Jan 2017 às 21:02
por valcir
Ola obrigado pela resposta, mais nao consegui. estou enviando a planilha anexo caso alguem posso incluir este codigo agradeço, estou estudando todos os dias mais e complexo.
E assim ( Na Plan5 clicar no Botao Iniciar processamento- Em seguida vai aparecer um formulario com um botao de nome(Abortar processamento agora). Preciso que ao clicar neste botao pare a Rotina (For)e saia da Sub.
Obrigado.

Re: Botao para sair da rotina "For"

Enviado: 01 Fev 2017 às 07:41
por DJunqueira
Resposta no código.

Botao para sair da rotina "For"

Enviado: 01 Fev 2017 às 19:49
por valcir
Ola, DJunqueira, primeiro obrigado pelo retorno. Porem o Botao (Abortar processamento agora nao funcionou) a Opçao Control+break em uma emergencia funciona, mas o ideal e a instrução no botao que esta no formulario. se puder rever agradeço.