VBA que salva arquivo excel

[aninha_27]

Boa tarde!

Tenho uma planilha que roda algumas macros dentro dela, ela tem 4 guias, mas quero salvar apenas 1 guia.

O problema é que meu código está salvando tudo e com um nome e formato que não quero.

Quero poder escolher o local em que será salvo a guia e também o formato e o nome.

Esse é o meu código, será que alguém pode ajudar?

Sub Macro_Salvar()
   
   'Salvar aba como arquivo Excel
   Dim Pasta As String
   Windows("TESTE FILTRO.xlsm").Activate
   Worksheets("Planilha2").Select
   Pasta = Application.GetSaveAsFilename
   ThisWorkbook.SaveCopyAs Pasta & ThisWorkbook.Name
   MsgBox "Cópia criada com sucesso!", vbInformation, "CÓPIA"
   
   End Sub

 

Desde já obrigada!

Editado Julho 25, 2018 por aninha_27

[Alyson Ronnan Martins]

Boa noite @aninha_27.

Eu uso sempres esse código para criar copia de abas especificas:

    Sheets("Planilha2").Select
    Sheets("Planilha2").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\kira\Documents\Teste.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

Aguardamos

[aninha_27]

Em 30/07/2018 at 20:32, Alyson Ronnan Martins disse:

Boa noite @aninha_27.

Eu uso sempres esse código para criar copia de abas especificas:

    Sheets("Planilha2").Select
    Sheets("Planilha2").Copy
    ActiveWorkbook.SaveAs Filename:="C:\Users\kira\Documents\Teste.xlsx", _
        FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    ActiveWindow.Close

Aguardamos

Olá Alyson!

Obrigada pela ajuda!

O código funcionou direitinho!

Uma dúvida, caso eu quisesse escolher a pasta que será salva a aba, como eu faria?

Eu tentei assim:  

'Set CaixaDialogo = Application.FileDialog(msoFileDialogSaveAs)
   'With CaixaDialogo
    '.Show
    
    '.Execute
    
    'End With

 Mas não deu certo!

Desde já muito obrigada!

[Alyson Ronnan Martins]

Bom dia Aninha.

Olha se assim você direciona o local:

Dim LocalArquivo as string
With Application.FileDialog(msoFileDialogFolderPicker)
  .Title = "Selecione a pasta"
  .Show
  LocalArquivo = .SelectedItens(1)
End With