Vc quer salvar o arquivo com novo nome com base em que criterio?

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.

Bom dia refernande

Favor retornar no tópico abaixo e ler os links que eu postei e também a última mensagem,

Você marcou a tua resposta como Resolvido, mas se tivesse lido os links que eu postei veria que deve marcar na resposta que melhor atendeu.
Você também não aprendeu como agradecer aos colaboradores, podemos ver que o teu número de agradecimento está zerado.
Nas regras do fórum, consta que os arquivos anexados devem estar Zipados, independente do tamanho.

[]s

Patropi Desculpa pois sou novo no fórum
Quanto a anexar arquivos vou anexar arquivos em formato .zip
Não marquei a resposta como resolvido pois até agora não obtive solução

Att.

refernande

Eu não me expressei direito, é em outro tópico, clique no link abaixo para acessar o tópico e mudar a marcação de Resolvido.

viewtopic.php?f=10&t=21137&p=107047#p107047

[]s

Alguém pode me ajudar nesse problema?

Att.

Alguém pode me ajudar nesse problema?

Att.

Deixa ver se entendi, nesse arquivo tem 7 planilhas, você quer salvar alguma que você escolher em uma arquivo separada cujo nome seja o mesmo da planilha?

att,

Isso mesmo brunoxro

Att

Boa tarde refernande,

Veja a planilha em anexo.

Tem dois códigos, um que coloca o nome das planilhas na coluna A e outro que gera um arquivo novo de determinada planilha.
Gere os nomes -> clique na célula onde tem o nome da planilha que deseja gerar -> rode a macro de gerar novo arquivo.

O novo arquivo vai estar no mesmo caminho que o arquivo com a macro.

Faça uma adaptação no seguinte código, no meu caso eu salvo em txt por isso uso FileFormat:=xlText dependendo de sua necessidade altere pro modelo do excel

Sub Salvar121()

Dim Diretório
Dim NomeAqv

Diretório = Range("B25")

'----------separa o arquivo para salvar
    Sheets("SAFXs").Select
    NomeAqv = Range("Z1")
    Range("Z4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Set newBook = Workbooks.Add
    Range("A1").Select
    ActiveSheet.Paste


'----------salva como texto
    Sheets("Plan1").Select
            ActiveWorkbook.SaveAs Filename:=Diretório & "" & NomeAqv & "_Posto", _
            FileFormat:=xlText, _
            CreateBackup:=False

'----------deleta a planilha
    Windows("SAFX121_Posto.txt").Activate
    ActiveWindow.Close SaveChanges:=False

End Sub