Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Limitar rotina de F...
 
Notifications
Clear all

Limitar rotina de FOR

 
2024 - VBA & Macros
Post Recente por leogranja 7 anos atrás
4 Posts
3 Usuários
0 Reactions
1,185 Visualizações
RSS
 leogranja
(@leogranja)
Posts: 17
Active Member
Topic starter
 

Prezados, boa tarde.

Em tópico anterior, solicitei para gerar uma rotina de FOR para uma tabela. Conforme código abaixo, considerando que o Range F1:F100 possui 100 células, o código irá rodar para todas as 100 células.

Gostaria de limitar a rotina de FOR em 10 células no máximo por vez que eu executar a macro, porém sem reduzir o Range("F1:F100"). Deste modo, se as 100 células obedecerem o critério do FOR, vou ter que rodar a macro 10 vezes.

Alguém têm alguma ideia?

For Each celly In Sheets("Macro").Range("F1:F100")

  If celly <> "" Then

    [b]código utilizando celly[/b]

  End If

Next celly

Muito obrigado!!
Atenciosamente,
Leonardo.

 
Postado : 24/08/2017 10:19 am
brunoxro
 brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde,

Fiquei com uma dúvida. Porque fazer isso?

att,

 
Postado : 24/08/2017 11:33 am
leandroxtr
 leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Não sei se entendi bem, mas veja se ajuda.

Dim contador as integer
contador = 1

For Each celly In Sheets("Macro").Range("F1:F100")

  If celly <> "" and contador <= 10 Then

    [b]código utilizando celly[/b]

  End If

Next celly

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 24/08/2017 12:22 pm
 leogranja
(@leogranja)
Posts: 17
Active Member
Topic starter
 

Boa noite!

Desculpem a demora pela resposta.

@brunoxro, esta planilha envia e-mails automaticamente se celly <> "". Considerando que a a celly poderia ter muitas linhas, ela iria emitir muitos e-mails ao mesmo tempo, fazendo o computador travar.

@leandroxtr, mas o que irá incrementar a variável contador dentro da rotina FOR?

Muito obrigado!
Atenciosamente,
Leonardo.

 
Postado : 25/08/2017 5:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico