Using Input Box to Filter Text - VBA

Question

I want to filter a pre-determined column using a query from a user (Input Box)

Ex: Filter column "L" with a user input text "Joey". Can anyone guide me as to what needs to be done? This is the code I was trying...

Set wSheetStart = ActiveSheet
Set rFilterHeads = Range("L1", Range("IV1").End(xlToLeft))

With wSheetStart
    .AutoFilterMode = False
    rFilterHeads.AutoFilter
    strCriteria = InputBox("Enter Criteria")
    If strCriteria = vbNullString Then Exit Sub
    rFilterHeads.AutoFilter Field:=3, Criteria1:=strCriteria         
End With

@Jmax I had to also tweak the strCriteria code that's one of the reasons it gave an error. — User124726
– User124726, Commented Dec 27, 2011 at 15:09

Patrick Honorez · Accepted Answer · 2011-12-27 20:35:11Z

2

Use a loop + Like to limit entry to whatever you need.

Do
    strCriteria = UCase(InputBox("Enter criteria"))
Loop Until Len(strCriteria) = 0 Or strCriteria Like "?????"
If Len(strCriteria) = 0 Then Exit Sub
'continue...

edited Dec 27, 2011 at 20:35

answered Dec 27, 2011 at 12:56

Patrick Honorez

25.4k12 gold badges97 silver badges163 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Using Input Box to Filter Text - VBA

1 Answer 1

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related