Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Alterar pasta de trabalho e nome do arquivo

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
esbsbarbieri
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Qui Mai 16, 2019 9:32 am

Alterar pasta de trabalho e nome do arquivo

Mensagem 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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Alterar pasta de trabalho e nome do arquivo

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


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Alterar pasta de trabalho e nome do arquivo

Mensagem por Julio Mangilli »

Anexo
Anexos
Abrir PDF.rar
(19.1 KiB) Baixado 196 vezes


esbsbarbieri
Acabou de chegar
Acabou de chegar
Mensagens: 6
Registrado em: Qui Mai 16, 2019 9:32 am

Re: Alterar pasta de trabalho e nome do arquivo

Mensagem por esbsbarbieri »

Infelizmente não consegui, pois tenho mais de um arquivo. São 30 arquivos no total


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Julio Mangilli
Manda bem
Manda bem
Mensagens: 127
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Alterar pasta de trabalho e nome do arquivo

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


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder