Автофильтр использует в поле переменную вместо числа

Question

Я делаю новый макрос, где я использую автофильтры.Моя программа должна прочитать все столбцы и обнаружить те, где написано «Inspecc. Tornillo» или «caracterización exfoliación». Я имею в виду, что макрос должен работать с разными исключениями, когда вы не знаете порядок столбцов, вы простознаю, что у одного из них будет имя "caracterización exfoliación" и т. д. Поэтому я попытался использовать автофильтр следующим образом:

ActiveSheet.Range(Cells(1, 1), Cells(nFilas, nColumnas)).AutoFilter   
**Field:=tornillo**, Criteria1:="=Inspeccionar", Operator:=xlOr, Criteria2:="=No"

Вместо:

> ActiveSheet.Range(Cells(1, 1), Cells(nFilas, nColumnas)).AutoFilter   
> **Field:=7**, Criteria1:="=Inspeccionar", Operator:=xlOr, Criteria2:="=No"

Я объявилпеременная tornillo как вариант, но она не работает. Как я могу это сделать?

Заранее спасибо

Answer 1

Скажем, у нас есть:

, и мы не знаем, какой столбец является столбцом Сокровище .Мы хотим найти столбец Сокровище и отфильтровать его для золото :

Sub TreasureHunt()
    Dim N As Long

    N = Range("1:1").Find(what:="Treasure", after:=Range("A1")).Column
    ActiveSheet.Cells.AutoFilter Field:=N, Criteria1:="Gold"
End Sub