Здравствуйте, уважаемые! Возникла следующая проблема:
при удалении выбранных строк в таблице (выбор производится установкой галочки в первом столбце), вылетает ошибка
"метод delete из класса range завершен неверно", хотя в похожей таблице на другом листе всё работает без ошибок!
Пробовал на офисе 2019.
код:
Подскажите, в чём моя ошибка?
Файл прилагается
при удалении выбранных строк в таблице (выбор производится установкой галочки в первом столбце), вылетает ошибка
"метод delete из класса range завершен неверно", хотя в похожей таблице на другом листе всё работает без ошибок!
Пробовал на офисе 2019.
код:
Код |
---|
Sub УдалитьСтрокуТорг() Dim lr2 As Long, i As Long, k As Long Application.ScreenUpdating = False k = Application.WorksheetFunction.CountIf(Range("Torg[a]"), "a") If k = 0 Then MsgBox "Не выбрано ни одной позиции!", vbCritical, "Ошибка удаления" Exit Sub End If lr2 = Cells(Rows.Count, 5).End(xlUp).Row For i = lr2 To 5 Step -1 If Cells(i, 2) = "a" Then Range("B" & i & ":R" & i).EntireRow.Delete End If Next i Range("E7").Select Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub |
Файл прилагается