Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Salvar Como renomea...
 
Notifications
Clear all

Salvar Como renomeando arquivo no vlr de célula

 
2024 - VBA & Macros
Post Recente por MPrudencio 7 anos atrás
2 Posts
2 Usuários
0 Reactions
1,170 Visualizações
RSS
 marcosuke
(@marcosuke)
Posts: 72
Trusted Member
Topic starter
 

Olá amigos!

Estou tentando escrever uma macro que quando executada apresenta a janela para o usuário escolher o local para salvar e também para renomear o arquivo com mesmo nome da célula ``C4``.
Meu problema é que minha macro faz tudo isso, mas quando clico em salvar, simplesmente não salva o arquivo. OBS: Quero salvar apenas a aba ativa, não o arquivo todo. Poderiam me ajudar a encontrar onde está o erro na minha macro?

Sub Salvar_como()
fileSaveName = Application.GetSaveAsFilename( _
VBA.Strings.Format(Range("C4").Value) + ".pdf", _
fileFilter:="pdf Files (*.pdf), *.pdf")
End Sub

Obrigado!

No aguardo!

 
Postado : 10/11/2017 4:52 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Se é apenas para salvar como e o usuario precisa escolher o lugar, nao faz muito sentido, ja que o usuario faz tudo manualmente.

O ideal é que seja todo automatizado, evita a possibilidade de erros

O codigo abaixo faz isso

Sub SalvarPDF()

Dim w  As Worksheet
Dim Arq As String


Set w = Sheets("Plan1") ' Troque o nome da planilha a ser salva.
 
   
    Arq = w.Range("C4").Value 
        
        ChDir "C:Backup" 'Crie uma pasta com o nome backup ou troque pelo caminho da pasta onde sera salvo. 
       'Note que abaixo precisa realizar a troca tambem
        
        w.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:="C:Backup" & Arq & ".pdf"
       
  MsgBox "Orçamento Salvo com Sucesso!", vbOKOnly, "Salvando Arquivo...."
        
 
End Sub

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 10/11/2017 7:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico