У меня есть код, первоначально измененный с here. Когда в первом столбце строки есть C, строка удаляется и сохраняется на другом листе. Это приложение для списка дел.Ошибка времени выполнения '1004' «Метод копирования класса диапазона сбой» при смене ОС
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
' Code goes in the Worksheet specific module
Dim rng As Range
' Set Target Range
Set rng = Target.Parent.Range("A1:A200")
' Only look at single cell changes
If Target.Count > 1 Then Exit Sub
' Only look at that range
If Intersect(Target, rng) Is Nothing Then Exit Sub
' Action if Condition(s) are met
Select Case Target.Text
Case "C"
Target.EntireRow.Copy Sheets("Completed").Cells(Rows.Count, "A").End(xlUp).Offset(1)
Target.EntireRow.Delete
End Select
End Sub
код прекрасно работает на Excel 2010, но не с этой ошибкой:
Run time error '1004' "Copy Method of Range Class Failed"
'On Error GoTo Whoa' программирует золото! – FreeMan