Autofilter to a user input value

[amrita17170909]

Hi All,

I am trying to build a code which will accept a user input for the filter.

So for example if userinput = 10,000 the code is going to only show the values over 10,000.

I also want the range to be dynamic but I am not sure how to incorporate that

Sub AutoFilter_range()

'Filter to show values over 10 Million
Application.ScreenUpdating = False

'Dim Range_to_filter As Range
'Dim UserInputValue As Long

UserInputValue = InputBox("Please enter value in millions.", , 10)

Set Range_to_filter = Range("F6:f178")

Range_to_filter.AutoFilter Field:=6, Criteria1:="UserInputvalue"

Application.ScreenUpdating = True

End Sub

 

[amrita17170909]

I have the amended code which works if instead on user input value I use actual number

Sub AutoFilter_range()

'Filter to show values over 10 Million
Application.ScreenUpdating = False

Dim Range_to_filter As Range
Dim UserInputValue As Long

UserInputValue = InputBox("Please enter value in millions.", , 10)

MsgBox (UserInputValue)

ActiveSheet.Range("A:AB").AutoFilter Field:=6, Criteria1:="UserInputValue" _
, Operator:=xlAnd

Application.ScreenUpdating = True

End Sub

 

[mikerickson]

It would be easier and more robust to just use the existing user interface for AutoFilter.

 

[Fluff]

Duplicate Filter a column for a userinput value

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).