Defining A Range For An Autofilter In VBA

[Ark68]

I am trying to VBA code an autofilter on my worksheet (ws_salt)

Private Sub uf2_create_Click()
    Dim f_range As Range
    With ws_salt
        .AutoFilterMode = False 'turn off autofilter if on
        f_lr = ws_sheet2.Cells(i, 11)
        f_ur = ws_sheet2.Cells(i, 12)
        last_col = .Range("A1").CurrentRegion.Columns.Count
        f_range = Range(.Cells(1, 1) & ":" & .Cells(1, last_col))
        f_range.AutoFilter field:=1, Criteria1:=">" & f_lr, Operator:=xlFilterValues
        f_range.AutoFilter field:=1, Criteria1:="<" & f_ur, Operator:=xlFilterValues
    
    End With

The autofilter I am trying to accomplish is to filter out all the rows of data, in which the value in column 1 of worksheet "ws_salt", a range of A: the last column of the worksheet with data in it (last_col), is greater than the lower value (f_lr) and less than the upper value (f_ur).

I am getting an error with the line in red. ("Method 'Range' of object '_Global' failed." Based on my unfamiliarity in applying autofilters through VBA, I will assume the remainder of this code is likely also chalked full of errors.

Any help will be greatly appreciated!

 

[Fluff]

Try

f_range = Range(.Cells(1, 1), .Cells(1, last_col))

 

[Ark68]

Hey Fluff! Thanks you.
This has resulted in a different error ... "Object variable or With block variable not set"

Found the mistake ::

set f_range = Range(.Cells(1, 1), .Cells(1, last_col))

 

[Norie]

Put a dot in front of Range too and add Set at the start.

Set f_range = .Range(.Cells(1, 1), .Cells(1, last_col))

 

[Ark68]

OK! Thanks all, but as suspected, my filters are failing ...

         With f_range
            .AutoFilter field:=1, Criteria1:=">" & f_lr, Operator:=xlFilterValues, field:=1, Criteria2:="<" & f_ur, Operator:=xlFilterValues
         End With

"Wrong number of argument or invalid property assignment."

 

[Fluff]

Try

f_range.AutoFilter field:=1, Criteria1:=">" & f_lr, Operator:=xland,Criteria2:="<" & f_ur

 

[Ark68]

Awesome! Thank you!!!

 

[Fluff]

You're welcome & thanks for the feedback