É 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....

Bruno, Obrigado pelo Retorno! É assim, tenho um cronograma onde cada tarefa tem um responsável, e preciso enviar esse cronograma para o responsável p...

Resolvi Galera! Era uma o problema!] Pasta = ThisWorkbook.Path ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pasta & &qu...

Consegui pessoal! Não tenho certeza se é a melhor opção... mas funcionou! Obrigado a todos! Abraços Sub Envio_Email() Dim UltimaLinha As Integer ...

Tentei alterar: Sheets.Add After:=Sheets(Sheets.Count) Para Sheets.Copy After:=Sheets(Sheets.Count) Até copia, mas não copia com a quantidade que eu...

Prudencio, muito obrigado pelo retorno amigo! É quase isso... a macro está criando novas planilhas, eu preciso que ela copie a planilha ativa! Mas é...

Mais uma Basole! Muito show! Muito obrigado mais uma vez! Funcionou perfeitamente! Abraços

Prudencio, obrigado pelo retorno! Mas não deu certo! DeI uma editada no arquivo, veja se pode me ajudar! Removi algumas planilhas para poder fazer o ...