@carlosrgs Tente adaptar conforme informa nesse site. link

@lcamargo Testei o código no office 365 e funcionou, so não enviou pois nao esta configurado no outlook, porem estava na caixa de saída. Não sei s...

@topscore Só uma duvida Sheets("bdusuarios") existe nos dois arquivos?

@anderson Tenho esses arquivo que faz isso, tente adaptar para o que você precisa. OBS: não fui eu que fiz a macro. 😉 Criar-macro-em-outro...

Ronaldo se fizer o que o srobles sugeriu não acontece mais bug. Sub TesteBug()Set planilhaTeste = Worksheets("Planilha1")Application.CutCopyMode...

@bautto nesse arquivo do dia 01-09 a macro não esta igual ao que o Anderson sugeriu. Esta faltando a parte de copiar o bloco antes do With lDestino ...

@bautto como disse no outro post acredito que o problema da sua macro esteja justamente em separar a execução em 2 módulos, quando o módulo2 é inserid...

@bautto O código que o Anderson passou funciona normalmente, o seu código acredito que não esteja funcionando porque perde a referencia do Bloco quand...

@bautto aqui esta dando que o arquivo esta corrompido.

@tauron Utilizo o código abaixo para fazer algo parecido com o que você quer, veja se não consegue adaptar para a sua planilha: Private Sub Bu...

Esta dando erro na linha abaixo:   EQUIPAMENTOS = Range(Cells(lin_inicio, col_inicio), Cells(lin_final, col_final)) 'Salva o range existente...

Tente alterar o tipo de arquivo a ser salva para o formato habilitado para macro, caso não queira excluir o módulo vba. ActiveWorkbook.SaveAs Filena...

Baixei o arquivo mas esta corrompido. Aqui consegui baixar.

Veja se nesse topico nao te ajuda. http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27660

psmerlo, Seria melhor se você postasse um modelo do seu arquivo pois não esta claro como podemos te ajudar.