Este fórum está sendo desativado

[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.

[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.

[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

[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.

[BrunoSP]

Você vai especificar como as planilhas? Numa célula de uma das planilhas, ou vai selecionar manualmente com o mouse?

[refernande]

Célula a1 seria o nome da planilha
Att

[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