Criação de VBA

Question

Boa tarde,

Pessoal,

Estou dando um inicio em um projeto " simples ", o que é para a VBA fazer:

Abrir uma planilha X, copiar uma sheet X desta planilha - ex: Planilha 11.2018 e criar uma cópia com o nome 12.2018, após isso ir na célula G6 e trocar a data para 01/12/2018, depois disso, criar uma sheet nova com o nome Suporte 12.2018, salvar e fechar e após isso iniciar o mesmo processo em outra planilha. 

Qual a sugestão dos senhores para que eu consiga fazer isso? Tentei de algumas formas mas estou com algumas dúvidas em como fazer, sou bem iniciante, obrigado!

Answer 1

Bom Dia, LuckyAllDays

Tudo bom?

Seria algo semelhante a isso; Como será uma lista de arquivos precisaria apenas criar um looping de processo, onde ele vai executar a macro até chegar no último arquivo da lista.

Sub Duvida_LuckyAllDays()

     'ABRIR O ARQUIVO
     ChDir "C:\TESTE"
     Workbooks.Open Filename:="C:\TESTE\ARQUIVO_TESTE.xlsb"

     'SELECIONANDO A SHEET:
     Sheets("11.2018").Select
     
     'COPIANDO OS DADOS PARA OUTRA SHEET:
     
     'Selecionando Dados
     Range("A1").Select
     Range(Selection, Selection.End(xlToRight)).Select
     Range(Selection, Selection.End(xlDown)).Select
     Selection.Copy
     
     'Criando nova Sheet e renomeando como "12.2018"
     Sheets.Add After:=ActiveSheet
     Sheets("Planilha2").Select
     Sheets("Planilha2").Name = "12.2018"
     
     'selecionando a Sheet e colando os dados copiados:
     Sheets("12.2018").Select
     Range("A1").Select
     ActiveSheet.Paste
     Application.CutCopyMode = False
     
     'ALTERANDO A INFORMACAO DE DATA DA CELULA G6
     Sheets("12.2018").Select
     Range("G6").Select
     ActiveCell.FormulaR1C1 = "12/1/2018"
     
     'APENAS SALVA O ARQUIVO
     ActiveWorkbook.Save

     
End Sub

---

Obrigado! Jhonny César de Paula