none
Criação de VBA RRS feed

  • Pergunta

  • 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!

    quarta-feira, 30 de janeiro de 2019 17:39

Todas as Respostas

  • 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

    quinta-feira, 31 de janeiro de 2019 13:21