Mas If wb.ActiveSheet.Cells(22, 11).Value <> 1 Then GoTo Bloco 22,11 cai na linha 22 e coluna k Q22 cai na coluna 17 ( 22,17 ) vou trocar enta...

O motivo real que deixei separados por colunas, e porque o envio maximo no Gmail sao 500 envios ao dia sendo 100 por bloco, so por isso fiz assim.

Deu erro aqui Set wsEstado = wb.Worksheets(Estado)

Vou fazer um teste aqui e depois me fala. São somente "GAUER DO BRASIL" e "LEADER NUTRITION" podendo ser Misto né? isso mesmo. ...

Cara, não entendi ainda o real objetivo desses "Copiar.. ...". Qual a necessidade disso? seria copiar Coluna G para para coluna C, fazer o ...

A planilha inteira tem 4434kb e ali tem dados confidenciais, por isso enviei apenas 2 das abas, pois esta planilha fucniona como um gerenciador alem d...

Mando em Anexo, Bernardo, parte da Planilha pra te facilitar. Porem na ABA EN apaguei os emails ok. Andre

Bom dia deu erro aqui ( Next sem For ) If wsEN.Cells(Lin, Col).Value = Empty Then ( Next ) Lin A parte de enviar emails um a um se ...

Ola amgo, boa noite, amanha eu vejo testo e com certeza falo. Por hora muito obrigado.

Finalmente depois de tanto procurar uma solucao a este problema aqui no forum e na net, achei um site que consegui resolver, e dai vou deixar aqui pos...

Bernardo, consegui resolver o problema das assinaturas, segue abaixo o codigo. Grato Option Explicit Dim assinatura As Variant Public Function peg...

Bem amigo, pesquisando aqui na Net, eu encontrei isso aqui, testei separadamente e abriu conforme exatamente eu quero, porem nao sei como adaptar na M...

Veja que acrescentei: Dim col As Long Dim Lin As Long coloquei endereco : Caminho = "C:UsersAndreDesktopPedidos Gaueram...

existem problemas tb de IF sem End If

reparei tambem que se eu excluir esse Nest acima e continuar a rodar a macro o outro Next la em baixo trava tambem em cima dele., ou seja o Next Lin, ...