Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Alterar pasta de trabalho e nome do arquivo
-
- Acabou de chegar
- Mensagens: 6
- Registrado em: Qui Mai 16, 2019 9:32 am
Alterar pasta de trabalho e nome do arquivo
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
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
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Alterar pasta de trabalho e nome do arquivo
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.
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.
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Alterar pasta de trabalho e nome do arquivo
Anexo
- Anexos
-
- Abrir PDF.rar
- (19.1 KiB) Baixado 207 vezes
-
- Acabou de chegar
- Mensagens: 6
- Registrado em: Qui Mai 16, 2019 9:32 am
Re: Alterar pasta de trabalho e nome do arquivo
Infelizmente não consegui, pois tenho mais de um arquivo. São 30 arquivos no total
-
- Manda bem
- Mensagens: 127
- Registrado em: Sex Out 05, 2018 2:42 pm
Re: Alterar pasta de trabalho e nome do arquivo
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.
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.