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

Realizar tarefas dentro de um while

 
2024 - VBA & Macros
Post Recente por evilmaax 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,068 Visualizações
RSS
 evilmaax
(@evilmaax)
Posts: 0
New Member
Topic starter
 

Olá pessoal

Criei uma planilha que envia e-mails pelo Excel para vários endereços ao mesmo tempo.
Para enviar a todos os destinatários coloquei a execução do envio dentro de um while e no campo endereço o seguinte:

.To = Worksheets("Destinatários").Range("B4")

No caso, este é o primeiro endereço. Para tentar seguir enviando criei um contador e tentei implementar de várias formas, como:

.To = Worksheets("Destinatários").Range("B4") + cont
.To = Worksheets("Destinatários").Range("B4 + cont")
.To = Worksheets("Destinatários").Range("B4" + cont)

Nenhum funciona (erro de definição), mas não consigo encontrar um site que ensine.

Alguém tem uma solução?
Obrigado

 
Postado : 03/04/2017 11:32 am
 brunoxro
(@brunoxro)
Posts: 0
New Member
 

Boa tarde max,

Pelo que vi, você está usando errado o While.

Um exemplo é:

Sub Exemplo_Do_While()
    
    Dim N       As Double
    Dim NEmails As Double
    
    
    N = 4 '4 porque é linha que começa
    NEmails = 8 'Supondo 8
    
    Do While N <= NEmails
        
        .To = Worksheets("Destinatários").Range("B" & N)
        
        N = N + 1
    Loop
    
End Sub

De uma olhada no Youtube, tem boas aulas lá: https://www.youtube.com/results?search_query=ESTRUTURA+DE+REPETI%C3%87%C3%83O+VBA

att,

 
Postado : 03/04/2017 11:58 am
 evilmaax
(@evilmaax)
Posts: 0
New Member
Topic starter
 

brunoxro

Funcionou certinho, meu amigo.
Muito obrigado pela ajuda e pela dica, vou assistir as aulas que me passou.

Abração

 
Postado : 03/04/2017 12:22 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico