vc esqueceu de criar as Dim Dim col As Long Dim Lin As Long mas agora esta parando aqui olha If wsEN.Cells(Lin, col).Value ...

Puts, que vacilo. O i no final troca por lin mas ele trava no for aqui For col = 7 To 33

outra coisa eu nao entendi uma coisa eu quero que o envio de email individual aconteca somente se a Celula Q22 estiver = 1, caso contrario ignorar e ...

ao rodar a macro deu erro aqui, e parou no FOR - For col = 7 To 33 For col = 7 To 33 For lin = 2 To 99 If wsEN.Cells(lin, col...

a sim falto o loop de email 1 de cada conforme se celula Q22= 1 Then inicia o envio individual de cada email conforme G2 a G99 depois I2 a I99 ...

pronto amigo, testei aqui ao mudar para 9 deu tudo certo e no fina ele zerou tudo !!! Grato So falta agora inserir a imagem no corpo do email essa i...

eu tenho aqui copiar de 1 a 14

tudo funcionou direito, mas agora que vi e fiz uma modificacao em : For i = 11 To 13 For j = 5 To 8 para For i = 11 To 13 For j =...

agora ele marcou a celula E11=1, depois F11=2 , G11=3, H11=4, dai pulou a I11 que seria =5 e pulou para E12=6 dai pulou de novo a I12 e foi pra E13, e...

lembro que este codigo ficara , porem se a celula Q22 estiver com o numeral 1, entao ao inves de envair por bloco enviara um email de cada vez, por is...

Ola amigao esta parte do codigo abaixo nao funcionou no seu codigo , todo o restante parece que bateu certo Este codigo abaixo funciona completando ...

Opa amigo, pode sim, veja que eu preciso destas partes, pois dependo disto pra outras areas funcionarem If Range("I12") = "" Then...

Amigao Patropi, era exatamente isso que eu queria, muito Obrigado ! Andre