Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Sex Ago 02, 2019 5:27 pm

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
Colaborador
Colaborador
Mensagens: 90
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Alterar pasta de trabalho e nome do arquivo

Mensagem por Julio Mangilli » Sex Ago 02, 2019 5:58 pm

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
Colaborador
Colaborador
Mensagens: 90
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Alterar pasta de trabalho e nome do arquivo

Mensagem por Julio Mangilli » Sex Ago 02, 2019 5:59 pm

Anexo
Anexos
Abrir PDF.rar
(19.1 KiB) Baixado 36 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 » Qui Ago 08, 2019 1:20 pm

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
Colaborador
Colaborador
Mensagens: 90
Registrado em: Sex Out 05, 2018 2:42 pm

Re: Alterar pasta de trabalho e nome do arquivo

Mensagem por Julio Mangilli » Qui Ago 08, 2019 1:50 pm

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