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!