Página 1 de 1

Alterar pasta de trabalho e nome do arquivo

Enviado: Sex Ago 02, 2019 5:27 pm
por esbsbarbieri
Olá Pessoal, boa noite.

Tenho a macro abaixo :
Gostaria de uma forma de alterar os itens em amarelo automaticamente, sem precisar substituir, ou seja "06 - jun - 19" viraria "07 - jul - 19" (é a pasta onde estão os arquivos

e "GAM - jun19" virar "GAM - jul19" (é o nome do arquivo seguido do mês)

E assim seguidamente para os próximos meses.

ou seja "07 - jul - 19" vai virar "08 - ago - 19"
e "GAM - jul19" vai virar "GAM - ago19"

É possível?
Agradeço muito a ajuda,

Sub Macro_GAM()
Dim xT As String

Sub Macro_GAM()
Dim xT As String

xT = Dir("C:\Users\esantos10\OneDrive - RB\Documents\ABR\Meses\06 - jun - 19\GAM - jun19.xlsm")
If xT <> "" Then
Workbooks.Open Filename:= _
"C:\Users\esantos10\OneDrive - RB\Documents\ABR\Meses\06 - jun - 19\GAM - jun19.xlsm"
Range("s2").Select
ActiveCell.FormulaR1C1 = "=CELL(""filename"")"
Selection.Copy '
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ultima = Range("a2").End(xlDown).Row
Range("s3:s" & ultima).Select
Range(Selection, Selection.End(xlUp)).Select
Selection.FillDown
Windows("GAM - jun19.xlsm").Activate
Call PreencheZeros_1
ultima = Range("e2").End(xlDown).Row
Range("e2:e" & ultima).Select
Selection.Copy
Windows("DASH (Macro) - jun19").Activate
While ActiveCell.Text <> ""
ActiveCell.Offset(1, 0).Select
Wend
If Range("A7") <> "" Then
Range("A7").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Else
Range("A7").Select
ActiveSheet.Paste
End If
End If

Re: Alterar pasta de trabalho e nome do arquivo

Enviado: Sex Ago 02, 2019 5:58 pm
por Julio Mangilli
Olá amigo,
Em vez de colocar os dados do caminho na programação no VBA, coloca em uma aba em uma célula e puxa por RANGE("") ou CELLS("",""), assim você pode sempre mudar ou amarrar.

Tipo esse exemplo bem básico, espero que consiga aplicar amigo.

Re: Alterar pasta de trabalho e nome do arquivo

Enviado: Sex Ago 02, 2019 5:59 pm
por Julio Mangilli
Anexo

Re: Alterar pasta de trabalho e nome do arquivo

Enviado: Qui Ago 08, 2019 1:20 pm
por esbsbarbieri
Infelizmente não consegui, pois tenho mais de um arquivo. São 30 arquivos no total

Re: Alterar pasta de trabalho e nome do arquivo

Enviado: Qui Ago 08, 2019 1:50 pm
por Julio Mangilli
Certo mas você vai rodar um por vez certo ?
Basta fazer uma lista dinâmica na célula que busca o caminho e mandar rodar e assim vai.
Eu uso planilha que guarda arquivo como também abre arquivos de varias pasta diferentes, e eu só escolho o caminho ou faço uma outra a amarração.

Posta um modelo amigo, vou tentar ajudar.