在字段中使用变量而不是数字进行自动过滤

Question

I am doing a new macro where I use autofilters. My program needs to read all columns and detect those where is written "Inspecc. tornillo" or ""caracterización exfoliación". I mean, the macro has to work with different excels where you don't know the order of the columns, you just know that one of them will have the name "caracterización exfoliación" and so on. So I tried to use Autofilter in this way:

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

Instead of:

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

I declared the variable tornillo as variant, but it doesn't work. How could I do?

Thanks in advance

Answer 1

Say we have:

and we do not know which column is the Treasure column. We want to find the Treasure column and filter it for gold :

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