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