Este fórum está sendo desativado

[ElisanBrasil]

Ola Galera
Tenho em uma planilha uma lista de nomes que preciso salvar como copia para cada um dos nomes desta lista, como fazer utilizando VBA.

abs

[gfranco]

Boa tarde ElisanBrasil , pelo que entendi, vc deseja salvar cópias da pasta de trabalho inteira sendo que cada cópia deverá ser salva com os nomes que constam numa lista que está em uma das planilhas da pasta de trabalho.
Creio que um laço for next tendo como limite do contador o total de nomes da lista deve resolver o problema....
Eu escreveria dessa forma:

Sub salvamento()
dim w as worksheet
Dim t As Long ' como não sei o tamanho da lista estou atribuindo uma variável long só por garantia
set w = sheets("lista de nomes") ' ' aqui vc deve substituir o nome (lista de nomes) pelo nome da plan que contém a lista dos nomes.
t =w.Cells(Cells.Rows.Count, 1).End(xlUp).Row
ChDir "C:\Users\xxxxxxx\Desktop\pasta de sua escolha" ' nessa parte vc deverá substituir o caminho de pasta pelo _
que for usar

For i = 1 To t
'note que abaixo estou supondo que a lista de nomes começa na célula "a1"
ActiveWorkbook.SaveAs Filename:="C:\Users\xxxxxxx\Desktop\pasta de sua escolha\" & w.Cells(i, 1) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


Next


End Sub

* Assegure-se que não há células vazias ou caracteres especiais na lista pois isso geraria um erro.
* Se vc tiver dúvidas sobre o caminho da pasta, pode copiar qualquer arquivo para dentro dela e exibir suas propriedades para saber o caminho......

Espero ter ajudado.....

[ElisanBrasil]

Show
Amigo para finalizar:
a lista esta em uma pasta "DIARIO_2016_COMPARTILHAR.xlsm" plan "lista salvar" e o o arquivo que preciso salvar varias copias com o nome da lista esta em outra pasta "BRANCO.xlsm" como ficaria a Macro.
abs

[ElisanBrasil]

Boa tarde ElisanBrasil , pelo que entendi, vc deseja salvar cópias da pasta de trabalho inteira sendo que cada cópia deverá ser salva com os nomes que constam numa lista que está em uma das planilhas da pasta de trabalho.
Creio que um laço for next tendo como limite do contador o total de nomes da lista deve resolver o problema....
Eu escreveria dessa forma:

Sub salvamento()
dim w as worksheet
Dim t As Long ' como não sei o tamanho da lista estou atribuindo uma variável long só por garantia
set w = sheets("lista de nomes") ' ' aqui vc deve substituir o nome (lista de nomes) pelo nome da plan que contém a lista dos nomes.
t =w.Cells(Cells.Rows.Count, 1).End(xlUp).Row
ChDir "C:\Users\xxxxxxx\Desktop\pasta de sua escolha" ' nessa parte vc deverá substituir o caminho de pasta pelo _
que for usar

For i = 1 To t
'note que abaixo estou supondo que a lista de nomes começa na célula "a1"
ActiveWorkbook.SaveAs Filename:="C:\Users\xxxxxxx\Desktop\pasta de sua escolha\" & w.Cells(i, 1) & ".xlsm", FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False


Next


End Sub

* Assegure-se que não há células vazias ou caracteres especiais na lista pois isso geraria um erro.
* Se vc tiver dúvidas sobre o caminho da pasta, pode copiar qualquer arquivo para dentro dela e exibir suas propriedades para saber o caminho......

Espero ter ajudado.....

Show
Amigo para finalizar:
a lista esta em uma pasta "DIARIO_2016_COMPARTILHAR.xlsm" plan "lista salvar" e o o arquivo que preciso salvar varias copias com o nome da lista esta em outra pasta "BRANCO.xlsm" como ficaria a Macro.
abs

[gfranco]

Consegue postar as planilhas?