Здравствуйте, уважаемые! Возникла следующая проблема:
при удалении выбранных строк в таблице (выбор производится установкой галочки в первом столбце), вылетает ошибка
"метод 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
|
Файл прилагается
