Notifications
Clear all

Filtrar e Exportar PDF em Loop

5 Posts
2 Usuários
0 Reactions
922 Visualizações
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Amigos, bom dia!

Tenho uma base de dados de tarefas. Na coluna E eu tenho o responsável de cada tarefa (Essa coluna é variável, ora terá mais responsáveis, ora menos). Eu queria uma macro que fizesse em loop... selecionava o primeiro item do filtro da coluna E e gerava um pdf, depois iria para o segundo item e gerava outro pdf e assim na sequencia.

Alguém poderia ajudar-me?

Obrigado

 
Postado : 02/01/2017 6:02 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde Romanholi,

Como seria esse PDF? Dá própria planilha? Qual a regra do filtro?

Disponibilize um planilha de exemplo, assim fica mais fácil ajudar.

att,

 
Postado : 02/01/2017 11:04 am
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

Bruno, Obrigado pelo Retorno!

É assim, tenho um cronograma onde cada tarefa tem um responsável, e preciso enviar esse cronograma para o responsável por e-mail.

Então preciso que a macro filtre o responsável coluna E, e envie para o e-mail dele que está numa planilha Lst_Email.

Nesse exemplo anexo, vai enviar para dois e-mail, para Ana e João (No caso deixei meu e-mail para teste). Então pensei em gerar um PDF da área filtrada e enviar para o e-mail da ana, depois desfiltra, filtra o segundo nome (João) e envia para o e-mail do João, e assim para quantos responsáveis tiver... caso não tenha o e-mail cadastrado ele informa numa Msgbox que não será enviado e pula para o próximo.

Será que poderia me ajudar?
Veja o anexo

Obrigado

 
Postado : 02/01/2017 12:51 pm
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde romanholi,

A parte de enviar o email automaticamente não posso ajudar (envio de email não é meu forte).

Na parte de gerar Loops, você pode observar a montagem inicial que coloquei em anexo.
Criei um planilha chamada Auxiliar, e nela receber os valores da linha de acordo com o nome da lista de email (Se for muitos dados, o Loop pode demorar um pouco).

Dê um ponto de pausa na linha 67 e veja o que montei usando o F8.
Na linha 67 está o comando Cells.Clear, para limpar os dados copiados e partir para o próximo nome.

Não coloquei para salvar em PDF por que não parei para ajeitar as informações copiadas, mas o ponto para colocar o código já está especificado.
O código está no módulo 1.

Teste e veja se é aproximadamente isso que você deseja.

att,

 
Postado : 05/01/2017 1:06 pm
(@romanholi)
Posts: 177
Estimable Member
Topic starter
 

É isso mesmo que eu preciso meu amigo, a rotina de gerar o pdf e enviar por e-mail eu tenho aqui e já utilizei noutros arquivos.

Muitíssimo obrigado. De verdade mesmo! Valeu!

 
Postado : 06/01/2017 9:09 am