Macro para copiar a última planilha salva em uma Pasta.

[Fernando Guimarães]

  Bom dia. Todos os dias, preciso Exportar um arquivo para uma pasta, gerando várias planilhas do excel ( Office 2007 ). Todas elas com datas diferentes. É possível criar uma macro para copiar sempre a última planilha? Pois a partir deste ponto, criarei outra macro  para enviar e-mail e imprimir, ( Essa parte eu consigo fazer ). Entretanto, preciso de um meio para copiar sempre a última planilha salva na pasta. Obrigado.

[Igor Ramos_661150]

Acompanhando...

[Rafael Vermohlen]

A forma mais simples possível é essa:

Sub CopiarUltimaPlanilha()    Sheets(Sheets.Count).Select    Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count)End Sub

Você pode criar variáveis para pegar o valor de Sheets.Count, que retorna sempre a quantidade de planilhas existentes na Pasta de Trabalho, atente-se para o fato de que sempre será copiada a planilha que está disposta na última posição das planilhas existentes na Pasta de Trabalho.