Este fórum está sendo desativado

[josejunior0021]

Boa noite,

busco ajuda para criar uma macro que salve um arquivo .xlsx com um nome pré definido.

a idéia é abrir a janela para salvar, já com o nome do arquivo preenchida, para que o usuário selecione somente a pasta onde será salvo.

O nome do arquivo fica em uma variável e é gerado dependendo de algumas situações.

Tentei anexar a foto aqui mas dá um erro

[mprudencio]

Não é mais facil gerar o arquivo ja em uma pasta pre-definida?

Poste o arquivo informando quais as guias deveram ser salvas

[osvaldomp]

Experimente. Coloque em A1 o nome do arquivo, sem a extensão. Altere se desejar.

Código: Selecionar todos

Sub SalvarComo()
 Dim p, nomeArq As String
  nomeArq = [A1]
  p = Application.GetSaveAsFilename(InitialFileName:=nomeArq, _
      fileFilter:="Excel Files (*.xlsx), *.xlsx", FilterIndex:=1)
   If p <> False Then
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=p, FileFormat:=51
    Application.DisplayAlerts = True
   End If
End Sub

[josejunior0021]

funcionou perefitamente!!!!!!!!!!!!!!
voce da aulas particulares?