Notifications

Clear all

Exportar Plan1

2024 - VBA & Macros

Post Recente por kurkas 9 anos atrás

6 Posts

3 Usuários

0 Reactions

1,289 Visualizações

RSS

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

(@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)

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