Alterar pasta de trabalho e nome do arquivo
Enviado: 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
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