Автофильтр с переменной / ячейкой в ​​качестве критерия

Question

Я хочу использовать функцию автофильтрации, но я хочу взять Criteria1 из ячейки с другого рабочего листа.Я пытался использовать точный диапазон, а также переменную.Я становлюсь ошибкой времени выполнения ошибки 9 подстрочного индекса вне диапазона строк.Установите GL = Worksheets ("Sheet1"). Range ("l7"). Value.Это вообще возможно?Должен ли я использовать другой тип переменной?В начале я нахожусь в рабочем листе ("DE-CC") и критериях, которые я беру из Рабочего листа ("Лист1"), ячейка "L7".Любые предложения?

Dim GL As Range
Set GL = Worksheets("Sheet1").Range("l7").Value
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("AB1").Select
    Selection.AutoFilter
    ActiveSheet.Range("a2:ab2").AutoFilter Field:=19, Criteria1:=GL

Answer 1

Это должно работать:

(непроверенная)

Dim GL As String

GL = Worksheets("Sheet1").Range("l7").Value

    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Activesheet.UsedRange.AutoFilter Field:=19, Criteria1:=GL

Изменено объявление и присвоение значения

Вы должны попробовать это также,

Dim GL As String

GL = Worksheets("Sheet1").Range("l7").Value

    Activesheet.UsedRange.AutoFilter Field:=19, Criteria1:=GL