Excel Rodar macro automaticamente dependendo de CheckBox marcada

[Elainekitty]

Olá, bom dia! 

Tenho um arquivo que quando clico no botão Executar, a macro deve mostrar números consecutivos na coluna D a partir de 1.

Se o CheckBox "Executar automaticamente" estiver marcado, a execução deve ser feita automaticamente a cada 1 minuto.

Se não estiver, deverei executar manualmente, apertando o botão Executar.

Para parar a execução automatica, devo apertar um botão chamado Parar.

Ocorre um erro e é informado que a macro Consec (nome da macro) não pode ser executada, conforme mostrado na imagem.

Desde já. obrigada!

 

[OreiaG]

Olá, @Elainekitty.

 

Ocorre um erro e é informado que a macro Consec (nome da macro) não pode ser executada ...
Para facilitar o entendimento e ajuda, anexe o seu arquivo Excel (imagens não ajudam) e informe exatamente em que situação o erro ocorre.

 

Lembrando que para anexar arquivos com macro aqui no fórum, os arquivos devem estar compactados (zip, zipx, 7z) conforme está descrito abaixo.

[Elainekitty]

Ok, obrigada OreiaG . Anexei.

EXEMPLO.zip

[Elainekitty]

@OreiaG

[Midori]

O erro acontece porque o procedimento tem o mesmo nome do módulo.

 

Para resolver isso você pode passar os dois para OnTime: "Consec.Consec"

[OreiaG]

Veja se ajuda.

 

Simplifiquei e alterei o código Consec, assim o código Temporizador não é mais necessário.

Coloquei intervalo de 5 segundos somente para efeitos dos seus testes, altere depois para 1 minuto, conforme o seu  código original.

Sub Consec()
 Cells(Rows.Count, "D").End(3)(2) = Cells(Rows.Count, "D").End(3) + 1
 If Planilha1.CheckBox1 = True Then Application.OnTime (Now + TimeValue("00:00:05")), "Consec.Consec"
End Sub

 

E acrescente o código abaixo vinculado ao botão Parar.

Private Sub CommandButton2_Click()
 Planilha1.CheckBox1 = False
End Sub

 

[Elainekitty]

Adaptei a minha planilha e ficou perfeito. Obrigada Midori e OreiaG !