none
Como repetir uma macro para vários arquivos RRS feed

  • Pergunta

  • Boa tarde!

    Fiz um macro, e quero que ela se repita em todos os arquivos de uma pasta.

    Sub Macro2()
    
          
    
        Workbooks.Open filename:= _
    
            "Z:\Projetos\451.xlsx"      ' ESTE É O LOCAL E UM ARQUIVO, QUERIA QUE ESTE PROCESSO SE REPETISSE EM TODOS OS ARQUIVOS DESTA PASTA.
    
        Range("B60").Select
    
        Selection.EntireRow.Insert
    
        Selection.EntireRow.Insert
    
        Range("C62").Select
    
        Selection.Copy
    
        Range("C60").Select
    
        ActiveSheet.Paste
    
        Application.CutCopyMode = False
    
        ActiveCell.FormulaR1C1 = "Abertura e fechamento de módulos ( vazio)"
    
        Range("C62").Select
    
        Selection.Copy
    
        Range("C61").Select
    
        ActiveSheet.Paste
    
        Application.CutCopyMode = False
    
        ActiveCell.FormulaR1C1 = "Abertura e fechamento de módulos (carregado)"
    
        Range("C63").Select
    
        Selection.Copy
    
        Range("C62").Select
    
        ActiveSheet.Paste
    
        Application.CutCopyMode = False
    
        ActiveCell.FormulaR1C1 = _
    
            "Funcionamento de travas das cabeceiras e centrais (vazio)"
    
        Range("C63").Select
    
        ActiveCell.FormulaR1C1 = _
    
            "Funcionamento de travas das cabeceiras e centrais (carregado)"
    
        Range("C49").Select
    
        Range(Selection, Selection.End(xlToRight)).Select
    
        Range(Selection, Selection.End(xlToLeft)).Select
    
        Range("C49:E50").Select
    
        Selection.Copy
    
        Range("C51:E72").Select
    
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    
            SkipBlanks:=False, Transpose:=False
    
        Application.CutCopyMode = False
    
        Range("F49:I50").Select
    
        Selection.Copy
    
        Range("F51:I72").Select
    
        Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    
            SkipBlanks:=False, Transpose:=False
    
        Application.CutCopyMode = False
    
        Range("J59").Select
    
        Selection.AutoFill Destination:=Range("J59:J62"), Type:=xlFillDefault
    
        Range("J59:J62").Select
    
        Range("B57:B58").Select
    
        Selection.AutoFill Destination:=Range("B57:B63"), Type:=xlFillDefault
    
        Range("B57:B63").Select
    
        ActiveWorkbook.Save
    
        ActiveWindow.Close
    
     
    
    End Sub


     

    Obrigado!

    segunda-feira, 9 de outubro de 2017 20:58

Todas as Respostas

  • já me responderam em outro fórum!

    segue link da resposta!

    http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=26250&p=130966&sid=5f1692c783ee473e6d93a3b020772dbe#p130966

     Agradeço a atenção de todos

    segunda-feira, 9 de outubro de 2017 22:30