none
MACRO com erro em tempo de execução '-2147417848 RRS feed

  • Pergunta

  • Tenho uma planilha relativamente simples, com algumas macros de copiar e colar. Quando desenvolvi a planilha, estava funcionando perfeitamente. Subitamente, no decorrer dos dias de uso, apareceu o seguinte erro descrito no título seguido da mensagem: "O método 'Paste' do objeto '_Worksheet' falhou".

    Tentei resolver no dia em que apareceu, mas sem sucesso. No dia seguinte, fui tentar utilizar a planilha, e surpreendentemente deu tudo certo, as funções das macros funcionaram perfeitamente como no início, sem sequer ter aparecido esta mensagem.

    Após o erro, ao fechar a planilha, sempre aparece "O Excel parou de funcionar". Também aparece isso quando eu simplesmente copio e colo manualmente nesta planilha.

    Porém, agora voltou a aparecer. Preciso resolver isso urgente, pois é uma planilha para fornecer orçamento de meus serviços aos meu clientes. Estou empacado.

    Segue linha de programação, caso ajude:

    Range("A21:D40").Select
        Selection.Copy
        Range("E21:H21").Select (o VBA diz que o problema está aqui)
        ActiveSheet.Paste
        Range("I21").Select
        ActiveSheet.Paste
        ActiveWindow.SmallScroll Down:=12
        Range("A42:D42").Select
        ActiveSheet.Paste
        Range("E42:H42").Select
        ActiveSheet.Paste
        Range("I42:L42").Select
        ActiveSheet.Paste
        ActiveWindow.SmallScroll Down:=-12
        Range("E21:H21").Select
        Application.CutCopyMode = False
        ActiveCell.FormulaR1C1 = "Item 2"
        Range("I21:L21").Select
        ActiveCell.FormulaR1C1 = "Item 3"
        Range("A42:D42").Select
        ActiveCell.FormulaR1C1 = "Item 4"
        Range("E42:H42").Select
        ActiveCell.FormulaR1C1 = "Item 5"
        Range("I42:L42").Select
        ActiveCell.FormulaR1C1 = "Item 6"
        Range("A42:L42").Select
        Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        With Selection.Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        With Selection.Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .ColorIndex = 0
            .TintAndShade = 0
            .Weight = xlThin
        End With
        Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
        ActiveWindow.SmallScroll Down:=6
        Range("A28:D29").Select
        ActiveWindow.SmallScroll Down:=-3
    End Sub


    • Editado Henry Gustavo sábado, 28 de novembro de 2015 12:10 Adicionar Informações
    sábado, 28 de novembro de 2015 12:08

Respostas