Notifications
Clear all

Exibir MSGBOX a cada X Ciclos

3 Posts
2 Usuários
0 Reactions
724 Visualizações
(@mprudencio)
Posts: 2749
Famed Member
Topic starter
 

Boa tarde, tenho um loop que preciso dar uma pausa durante a execução pois ele é longo e a saida da execução é a impressora, como pode acontecer de acabar o papel, a tinta, enfim dar problemas entao pretendo inserir uma pausa na execução a cada x documentos impressos

Inseri um teste if assim


If Cont = 50 Or Cont = 100 _
Or Cont = 150 Or Cont = 200 _
Or Cont = 250 Or Cont = 300 _
Or Cont = 350 Or Cont = 400 _
Or Cont = 450 Or Cont = 500 _
Or Cont = 550 Or Cont = 600 _
Or Cont = 650 Or Cont = 700 Then
   
MsgBox "Foram Impressos" & " " & Cont & " " & "Fichas", vbInformation, "Atenção"

End If

E funciona ate 700 cliclos acontece que esse numero pode variar para mais entao sera necessario fazer manutenção no codigo. Entao me ocorreu de fazer algo um pouco diferente, a condição ser verdadeira a cada 50 ciclos do loop independente da quantidade de linhas.

E possivel fazer isso de forma diferente ?

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 30/01/2016 1:14 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde,

Veja se atende:

If Cont Mod 50 = 0 Then
    MsgBox "Foram Impressos" & " " & Cont & " " & "Fichas", vbInformation, "Atenção"
End If

Abraço

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

 
Postado : 30/01/2016 3:59 pm
(@mprudencio)
Posts: 2749
Famed Member
Topic starter
 

Funcionou perfeitamente.

Obrigado

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 30/01/2016 4:15 pm