Excel VBA Фильтрующие выпуск

Question

Потрясающие пользователи StackOverflow,

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

Sub FilterWorksheet(sCriteria As String) 
    'First, clear the filter 
    ThisWorkbook.Worksheets("MyAwesomeSheet").AutoFilterMode = False 

    'Then apply the filter for the Transfer_From_seg column 
    ThisWorkbook.Worksheets("MyAwesomeSheet").AutoFilter Field:=2, Criteria1:=sCriteria 
End Sub 

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

Runtime Error '448' 

Named argument not found 

я делаю что-то действительно глупое с этим?

Спасибо!

Обновление:

Так что я нашел решение. Вот как это выглядит:

Sub FilterWorksheet(sCriteria As String) 
    'First, clear the filter 
    ThisWorkbook.Worksheets("MyAwesomeSheet").AutoFilterMode = False 

    'Then apply the filter for the Transfer_From_seg column 
    ThisWorkbook.Worksheets("MyAwesomeSheet").Range("A:H").AutoFilter Field:=2, Criteria1:=sCriteria 
End Sub 

Я не совсем уверен, почему это работает & предыдущий не так, если кто-то может объяснить мне, что было бы замечательно. Еще раз спасибо!

Answer 1

Необходимо указать диапазон, который вы хотите фильтровать. Например:

ThisWorkbook.Worksheets("MyAwesomeSheet").Range("B3:C11").AutoFilter field:=2, Criteria1:=sCriteria 

Autofilter Method in the Excel 2003 VBA Language Reference