макрос, работающий в одном Excel, но не в другом, получил ошибку в фильтре

Question

Я получаю сообщение об ошибке в фильтре. Ошибка субскрипта вне диапазона. Ваши усилия приветствуются. Я получил ошибку в фильтре. Это работает для одного Excel, но ошибка в другом excel

`

ActiveSheet.ListObjects("Claims").Range.AutoFilter Field:=33, Criteria1:= _
    ">=-.09", Operator:=xlAnd, Criteria2:="<=.01"


enter code here

Answer 1

Вы должны убедиться, что на активном листе есть таблица с именем «Заявлено», поскольку именно этим вы управляете с помощью своего кода. Или используйте другой код для фильтрации без использования таблицы.

Создание таблицы:

1. Выберите область таблицы (вручную или выбрав один вызов и Ctrl + A), а затем Ctrl + T (или Вставка> Таблица)

2. Затем убедитесь, что его имя правильное. (из вкладки «Дизайн» ленты)

Использование другого кода:

ActiveSheet.Cells(1,1).CurrentRegion.AutoFilter Field:=33, Criteria1:= _
    ">=-.09", Operator:=xlAnd, Criteria2:="<=.01"

После проверки отправленных вами файлов. Вы должны использовать что-то вроде этого:

Sub DeleteRecord()
    Dim MySheet As String
    Dim cnt As Long
    MySheet = ActiveSheet.Name
    Cells(1, 1).CurrentRegion.AutoFilter Field:=33, Criteria1:= _
        ">=-.09", Operator:=xlAnd, Criteria2:="<=.01"
    cnt = Worksheets(MySheet).Cells.SpecialCells(xlCellTypeLastCell).Row
    If cnt > 3 Then Range("A2", ActiveCell.SpecialCells(xlLastCell)).Delete
    Cells(1, 1).CurrentRegion.AutoFilter Field:=33
End Sub