Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Exportar Plan1
 
Notifications
Clear all

Exportar Plan1

 
2024 - VBA & Macros
Post Recente por kurkas 9 anos atrás
6 Posts
3 Usuários
0 Reactions
1,283 Visualizações
RSS
kurkas
 kurkas
(@kurkas)
Posts: 85
Trusted Member
Topic starter
 

Olá,
Tenho uma planilha com três abas, sendo que a aba "Registos" é preenchida com valores.
Preciso que, ao clicar no botão "Exportar", seja aberto um novo wokbook com os dados desta aba.
Porém, tenho pesquisado, e o que tenho encontrado é bem diferente.
Tenho uma planilha (não da minha autoria) de cadastro, em que uma das opções é essa mesma, abrir uma nova planilha e exportar os dados.
O problema é que não consigo adaptar esse código á minha.
Haverá alguma alma que me possa ajudar?

 
Postado : 09/09/2015 10:30 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!

Poste seu arquivo modelo!!

Veja:
http://cse.google.com.br/cse?cx=partner ... gsc.page=1

Att

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

 
Postado : 09/09/2015 10:58 am
kurkas
 kurkas
(@kurkas)
Posts: 85
Trusted Member
Topic starter
 

A ideia é exportar a aba Registos para um novo workbook, conforme anexo.

Frota 2015 (Recuperado).7z
 
Postado : 09/09/2015 11:06 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Abre o editor de vba insere um modulo e coloca esse codigo nele

Importante: crie uma pasta em C: com o nome Registros

Sub Salvar()
Sheets("Registos").Select
Sheets("Registos").Copy
Windows("Frota 2015 (Recuperado).xlsm").Activate
ChDir "C:Registros"
ActiveWorkbook.SaveAs Filename:="C:RegistrosRegistros.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close

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 : 09/09/2015 11:14 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

O codigo acima apresentou erro use este

Sub Salvar()

Sheets("Registos").Select

Sheets("Registos").Copy
ActiveWorkbook.SaveAs Filename:="C:RegistrosRegistros.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
ActiveWorkbook.Save
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 : 09/09/2015 11:23 am
kurkas
 kurkas
(@kurkas)
Posts: 85
Trusted Member
Topic starter
 

É isso mesmo.
Obrigado

 
Postado : 09/09/2015 12:03 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico