How can I filter already filtered data? (Autofilter+VBA)

[David2]

I'm using auto filter (Criteria1:="*abc*") to filter some data. I'd like to use another filter on that data, this time using UserInput as Criteria.


How can I set up my vba code to have user input filter search the filtered data instead of resetting and searching the unfiltered data instead?

 

[DanteAmor]

Test:

dato = InputBox("Criteria")
If dato = "" Then Exit Sub
ActiveSheet.Range("$A$1:$B$4").AutoFilter Field:=2, Criteria1:="*" & dato & "*"

 

[David2]

Dante, thank you for your reply but I'm afraid I forgot to add one important thing.

Data for my first criteria ('abc') is in column B and I'd like to have my input criteria filter based on values in column C.

 

[DanteAmor]

I'm not following you, could you put your complete code? Could you give an example of what you have on your sheet?

Or maybe it's something like this:
Put the following code in the events of your sheet

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C1")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        dato = Range("C1").Value
        u = Range("B" & Rows.Count).End(xlUp).Row
        ActiveSheet.Range("$A$1:$B$4").AutoFilter Field:=2, Criteria1:="*" & dato & "*"
    End If
End Sub

If you put "abc" in cell C1, automatically the data in column B will be filtered with the data of C1

 

[David2]

Works great!

 

[DanteAmor]

I'm glad to help you