Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para salvar u...
 
Notifications
Clear all

Macro para salvar uma única guia da planilha

 
2024 - VBA & Macros
Post Recente por wolneypk 12 anos atrás
6 Posts
3 Usuários
0 Reactions
2,449 Visualizações
RSS
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Senhores, é o seguinte:

Tenho o arquivo Sistema.xlsm e dentro desse aquivo tenho por volta de 6 planilhas (Plan1, Plan2, Plan3...)
Quero criar uma macro que ao ser ativada, crie um novo arquivo á partir do Sistema.xlsm, com um novo nome, e que contenha apenas uma da planilhas do seu arquivo original (Plan2)
E se possivel, já salve esse novo arquivo na Área de trabalho.

Já tentei dezenas de possibilidades, mais todas sem sucesso... :cry:

Alguém poderia me dar uma luz?

Um forte abraço!
Wolney Pickler

"O impossível, é só uma questão de tempo"

 
Postado : 04/11/2012 3:55 pm
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

wolneypk,

Boa Noite!

Veja se esse código aatende a sua necessidade>

Sub SalvarComo()
    Sheets(Array("Plan1", "Plan3", "Plan4", "Plan5", "Plan6")).Select
    ActiveWindow.SelectedSheets.Delete
    ActiveWorkbook.SaveAs Filename:="C:UsersWagnerDesktopNovoSistema.xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

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/11/2012 4:47 pm
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Perfeito Wagner!
Só uma dúvida: Existe a possibilidade do Excel perguntar para o camarada aonde ele quer salvar o arquivo ao invéz de salvá-lo automaticamnte?
Outra coisa, o Excel joga um aviso na tela falando que está excluindo uma planilha e que nela pode conter dados e blá blá blá...
Será eu tem como o Excel excluir as planilhas sem fazer essa pergunta?

"O impossível, é só uma questão de tempo"

 
Postado : 04/11/2012 6:50 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Wolney, veja os links abaixo :

Existe a possibilidade do Excel perguntar para o camarada aonde ele quer salvar o arquivo ao invéz de salvá-lo automaticamnte?
Janela Salvar Como [Resolvido]
viewtopic.php?f=23&t=4877&p=25412&hilit=saveas#p25412

Abrir planilha em outro diretório
viewtopic.php?f=10&t=2848&p=12855&hilit=path#p12855

Use VBA SaveAs in Excel 2007-2010
http://www.rondebruin.nl/saveas.htm

Save Workbook as New File using VBA in Excel
http://www.excely.com/excel-vba/save-wo ... file.shtml

Será eu tem como o Excel excluir as planilhas sem fazer essa pergunta?
Para inibir esta caixa de Alerta utilize a linha abaixo antes da instrução que exclui a aba, mas tome cuidado ao utilizar este recurso, uma vez que apos a exclusão, não tem volta.

Application.DisplayAlerts = False

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/11/2012 8:17 pm
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Mauro, o primeiro exemplo que vc colocou pra mim: "Janela Salvar Como" é perfeito cara!
Só que têm um porém: Dá um erro fatal no meu Excel e ele é fechado...
Será que teria alguma outra macro pra fazer exatamente a mesma coisa só que com outros códigos?

Um forte abraço e muito Obrigado mestre!
Wolney Pickler

"O impossível, é só uma questão de tempo"

 
Postado : 06/11/2012 12:37 pm
wolneypk
 wolneypk
(@wolneypk)
Posts: 188
Estimable Member
Topic starter
 

Mauro, quebrei a cabeça aqui um pouquinho e funfou!
Mudei a posição do código na ordem de execução e tudo deu certo!

Muito Obrigado amigos por mais essa ajuda!

Um forte abraço á todos!
Wolney Pickler

"O impossível, é só uma questão de tempo"

 
Postado : 06/11/2012 1:05 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico