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,079 Visualizações

RSS

evilmaax

(@evilmaax)

Posts: 82

Trusted 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: 698

Honorable 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