Página 1 de 1

Exportar Planilha Selecionadas

Enviado: 31 Ago 2016 às 19:50
por refernande
Boa Noite
Precisando de um apoio uma macro para exportar planilhas selecionadas para um arquivo novo,
mais quando ela exportar para nava planilha exportar sem vinculo e exportar com nome arquivo.

Att.

Re: Exportar Planilha Selecionadas

Enviado: 31 Ago 2016 às 22:56
por refernande
Preciso que quando eu selecionar as abas Excel uma macro para exporta elas para uma pasta nova sem vínculos e mesmo nome da planilha origem ou ter opção de renomear quando estiver exportando.

Re: Exportar Planilha Selecionadas

Enviado: 01 Set 2016 às 10:10
por alexandrevba
Bom dia!!

Eu não entendi muito bem...
Código: Selecionar todos
Sub Macro1()
    Dim strSaveName As String
     ' Salva o arquivo com o nome Plan4 célula A1
    strSaveName = Worksheets("Plan4").Range("a1").Value
     ' As guias que vc deseja copiar para o novo arquivo
    Sheets(Array("Plan1", "Plan2", "Plan3")).Copy
    ActiveWorkbook.SaveAs strSaveName
     
End Sub
Favor ler as regras do fórum
indique sua postagem cruzada.
http://www.planilhando.com.br/forum/vie ... 10&t=21668

Att

Exportar Planilha Selecionadas

Enviado: 01 Set 2016 às 13:10
por refernande
Boa Tarde
alexandrevba preciso que a macro exporte automáticos a planilha (abas) selecionada.
Dessa forma ai es estou especificando na macro qual planilha ele vai exportar.
Pois vou ter que exportar planilhas aleatórias.

Att.

Exportar Planilha Selecionadas

Enviado: 01 Set 2016 às 17:51
por BrunoSP
Você vai especificar como as planilhas? Numa célula de uma das planilhas, ou vai selecionar manualmente com o mouse?

Re: Exportar Planilha Selecionadas

Enviado: 01 Set 2016 às 23:44
por refernande
Célula a1 seria o nome da planilha
Att

Re: Exportar Planilha Selecionadas

Enviado: 02 Set 2016 às 12:38
por alexandrevba
Boa tarde!!

Você testou meu código, percebeu a linha
Código: Selecionar todos
strSaveName = Worksheets("Plan4").Range("a1").Value
?

Você pode adaptar a parte do array para pegar as guias nas células.

Att