Este fórum está sendo desativado

[Spatafora]

Ola mestres tudo bem

podem me ajudar?

Tenho uma macro para salvar os dados em outras planilhas na rede

Hj toda vez que ela é movida para outra pasta tem q ajustar no código o novo caminho, queria colocar na capa da planilha que envia esses dados os caminhos e assim a macro ler os caminhos que estarão nas células da capa

[osvaldomp]

Olá, @Spatafora .

Acredito que um Loop do tipo For Each ... Next atuando na coluna em que está a lista dos caminhos pode resolver.

[Spatafora]

@osvaldomp

Não conheço como colocar esse comando consegue me ajudar?


esse é o código


Sub Planilha_BKO()
Dim Wp As Workbook 'Pasta atual
Dim WS As Workbook 'pasta destino
Dim WPSheet As Worksheet 'Planilha atual
Dim rngWO As Range 'Região com os dados a serem copiados

Set Wp = ActiveWorkbook
Set WPSheet = Wp.Sheets("Micro Áreas")

WPSheet.Select
'Seleciona as celulas que deseja copiar
Range("A2:M40000").Select

'Copiar as células selecionadas
Selection.Copy

Set WS = Workbooks.Open("C:\Users\rspatafora\Desktop\Atualizações Doméstico\REVENDAS X MICRO AREAS.xlsx") 'abre o arquivo desejado para efetuar a colagem
WS.Sheets(1).Select 'seleciona a aba que desejar neste caso a primeira




Range("a4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False 'colar as somente as informações necessárias e limpa as que não existem mais

Range("G1").Value = Now 'muda a data para o dia atual
WS.Sheets(1).Name = WPSheet.Name

ActiveWorkbook.Save 'salva a pasta de trabalho que está selecionada ou ativa
ActiveWorkbook.Close 'fecha a pasta de trabalho que está aberta ou sendo usada
'WS.Saves Wp.Path


Range("a1").Select 'após conclusão do trabalho deixa selecionado qualquer célula que desejar


End Sub

[osvaldomp]

opção1 - para colar dados em vários arquivos: coloque os caminhos na coluna P, a partir de P1. Acrescente ao seu código as linhas em vermelho conforme abaixo.
Dim arq As Range
...
...
For Each arq In Range("P1:P" & Cells(Rows.Count, "P").End(3).Row)
Set WS = Workbooks.Open(arq.Value) 'remova a linha correspondente do seu código
...
...
ActiveWorkbook.Save 'salva a pasta de trabalho que está selecionada ou ativa
Next arq
ActiveWorkbook.Close 'fecha a pasta de trabalho que está aberta ou sendo usada

_____________________________________________________________________________________________________

opção2 - para colar dados em somente um arquivo: coloque o caminho em P1 e substitua a linha correspondente no seu código por esta abaixo.
Set WS = Workbooks.Open([P1])
#
obs. para as duas opções acima o caminho em P de ser completo, por exemplo ~~~> C:\Users\rspatafora\Desktop\Atualizações Doméstico\REVENDAS X MICRO AREAS.xlsx