Метод автофильтра класса Range.Не обычный - PullRequest
Новая
       20

Метод автофильтра класса Range.Не обычный

0 голосов
/ 09 октября 2018

У меня произошла ошибка, которая, похоже, мучает многих разных людей по-разному.В моем случае мой код работает, но ошибка времени выполнения, появляющаяся после каждого изменения, очень раздражает.

Мой код ниже: 

Public Sub Filter_Sheets()

    Dim i As Long
    Dim comboBox As ControlFormat

    With ThisWorkbook
        Set comboBox = .Worksheets(9).Shapes("Drop Down 229").ControlFormat
        For i = 1 To Worksheets.Count
            .Worksheets(i).UsedRange.AutoFilter Field:=15, Criteria1:=comboBox.List(comboBox.ListIndex)
        Next
    End With 
End Sub

Линия, которая терпит неудачу: .Worksheets(i).UsedRange.AutoFilter Field:=15, Criteria1:=comboBox.List(comboBox.ListIndex)

Я пробовал разные вещи для Range и Worksheets вместе с линиейнад ошибочным кодом.Я попытался поставить кавычки вокруг критериев, еще ничего не решило ошибку.

У кого-нибудь есть идеи?

...