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

Salvar nova planilha

 
2024 - VBA & Macros
Post Recente por _Will_ 7 anos atrás
3 Posts
2 Usuários
0 Reactions
1,018 Visualizações
RSS
 _Will_
(@_will_)
Posts: 47
Trusted Member
Topic starter
 

Olá pessoal,
Estou tentando criar uma programação, porém, está apresentando erro.
Onde será que estou errando?
A idéia seria o seguinte:
A planilha irá abrir uma nova aba, copiar todo o conteúdo da "Plan1" e colar na nova aba.
depois irá mover a aba criada para uma nova planilha e salvar com a data de hoje (linkada na planilha origem - range("N1"). A planilha será salva da seguinte forma "4-set-2017.xlsx"

    Set pasta = ThisWorkbook
    Set planOrigem = pasta.Sheets("Plan1")
    Set Plandestino = Sheets.Add
        
        planOrigem.Select
        planOrigem.Range("A1").CorrentRegion.Select
        planOrigem.Range("A1").CorrentRegion.Copy Plandestino.Range("A1")
        
        Plandestino.Range("A:AA").Columns.AutoFit
        Plandestino.Move
        arquivo = ThisWorkbook.Path & planOrigem.Range("N1").Value & ".xlsx"
        
        ActiveWorkbook.SaveAs arquivo
        ActiveWorkbook.Close

    Set Plandestino = Nothing
    Set planOrigem = Nothing
    Set pasta = Nothing

Obrigado

 
Postado : 04/09/2017 10:54 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Will,

Boa tarde!

Solicitamos, por gentileza, utilizar a TAG CODE ao postar código VBA aqui no fórum., a TAG CODE fica localizada logo acima da caixa de mensagens.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 04/09/2017 11:02 am
 _Will_
(@_will_)
Posts: 47
Trusted Member
Topic starter
 

Ok Wagner! :)

Esqueci de colocar...

Sub SalvarComo ()
    Set pasta = ThisWorkbook
    Set planOrigem = pasta.Sheets("Plan1")
    Set Plandestino = Sheets.Add
        
        planOrigem.Select
        planOrigem.Range("A1").CorrentRegion.Select
        planOrigem.Range("A1").CorrentRegion.Copy Plandestino.Range("A1")
        
        Plandestino.Range("A:AA").Columns.AutoFit
        Plandestino.Move
        arquivo = ThisWorkbook.Path & planOrigem.Range("N1").Value & ".xlsx"
        
        ActiveWorkbook.SaveAs arquivo
        ActiveWorkbook.Close

    Set Plandestino = Nothing
    Set planOrigem = Nothing
    Set pasta = Nothing

End Sub
 
Postado : 04/09/2017 8:06 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico