Connecting table filter to cell value

[floragray]

Hi All

I have a table and I need it to filter on the basis of a value entered in a different cell -
but i want it to show all rows greater than and equal to that specific value.



Sub Testmacro()
filtercriteria = Range("H3").Value

Sheets("Report 1").ListObjects("Table1").Range.AutoFilter _
Field:=4, Criteria1:=">=filtercriteria"

End Sub



Can anyone help me fix this?

Thanksss a ton!!!!

 

[sijpie]

Sub Testmacro()   dim FilterCriteria as variant
   filtercriteria = Range("H3").Value


   Sheets("Report 1").ListObjects("Table1").Range.AutoFilter _
        Field:=4, Criteria1:=">=" & filtercriteria


End Sub

You had the word filtercriteria in your criteria1 - it would read ">=filtercriteria"
but you want the value of filtercriteria, so stop the string and append the value:
if Filtercriteria is 4 then now it will read ">=4"

I also suggest that you start each module with

Option Explicit

(you can do that automatically in the tools/options/Require Variable Declaration)
That will force you to dim each variable, and prevent errors. See also my guide, link below.