none
Erro Macro (ajuda urgente) que copia certas informações para outra aba da planilha RRS feed

  • Pergunta

  • Boa noite, estou tentando executar uma macro porém está aparecendo um erro. Alguém poderia me ajudar?

    Ao depurar o erro aparece na linha que está em negrito. Obrigado!

    Sub orç()
    '
    ' orç Macro
    '
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Range("DQ4:DZ24").Select
        Selection.Copy
        Sheets("Orçamentos").Select
        Rows("7:7").Select
        Selection.Insert Shift:=xlDown 
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Cells.Select
        Cells.EntireColumn.AutoFit
        Sheets("Simulador").Select
        Range("C9:F20").Select
        Application.CutCopyMode = False
        Range("I9:I20").ClearContents
        Range("C9:F20").ClearContents
        Range("B29").ClearContents
        Range("D29").ClearContents
        Range("B32:B33").ClearContents
        Range("D32:D33").ClearContents
        Range("E32:E34").ClearContents
        Range("D40:D43").ClearContents
        Range("M2:M7").ClearContents
        Range("M9").ClearContents
        Range("Q17").ClearContents
        Range("C9").Select
        Application.ScreenUpdating = True
        Application.DisplayAlerts = True

        '
        
    End Sub


    • Editado Thiago RB quinta-feira, 3 de março de 2016 01:27
    quinta-feira, 3 de março de 2016 00:57

Todas as Respostas