quarta-feira, 14 de novembro de 2012

Macro Para Exportar Planilha

Boa noite, pessoal!

Segue uma macro simples que tenho usado no dia-a-dia.

O código serve para exportar a aba que está ativa para um novo arquivo do Excel.
Primeiramente é criada uma cópia da aba selecionada e, depois, são copiados e colados valores nesta nova aba. Por último, esta aba replicada com valores é exportada.
O arquivo sai pronto para ser enviado por e-mail, por exemplo, sem risco de enviar arquivos com vínculos que podem impedir ou dificultar seu uso em outra máquina.


Sub Exportar()

    Application.DisplayAlerts = False 'Desabilita alertas
        
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count) 'Cria cópia da aba selecionada
        
    Cells.Select 'Seleciona todas as células da nova aba
    Selection.Copy 'Copia conteúdo
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 'Cola valores
    Application.CutCopyMode = False 'Desabilita modo de cópia

    ActiveWindow.SelectedSheets.Move 'Exporta aba selecionada para novo arquivo

    Application.DisplayAlerts = True 'Reabilita alertas

End Sub


Bom, é isso. Espero que gostem.

Para dúvidas e/ou sugestões, por favor, escrevam para guiamacroexcel@gmail.com.

Até a próxima!