Auto Filter multiple word

[SURYA2016]

Below macro code working H2 cell only, I need multiple criteria filter H2 & H3 & H4 cells also

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$H$2" Then
If Range("H2") = "" Then
Range("A5").AutoFilter
Else
Range("A5").AutoFilter Field:=2, Criteria1:=Range("H2")
End If
End If
End Sub

 

[Fluff]

Do you want to filter col B for each of those three cells?

 

[SURYA2016]

Do you want to filter col B for each of those three cells?

Do you want to filter col B & col C for each of those three cells?

Col B = H2 to H5
Col C = I2 to I5

Posible sir

 

[Fluff]

Do you mean H2 to H4 & I2 to I4 as you are filtering row 5?

 

[Fluff]

Assuming you the answer to my question is yes, try

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Ary As Variant
   If Not Intersect(Target, Range("H2:H4")) Is Nothing Then
      Ary = Application.Transpose(Range("H2:H4").Value2)
      If Application.CountA(Range("H2:H4")) = 0 Then
         Range("A5").AutoFilter 2
      Else
         Range("A5").AutoFilter 2, Ary, xlFilterValues
      End If
   End If
   If Not Intersect(Target, Range("I2:I4")) Is Nothing Then
      Ary = Application.Transpose(Range("I2:I4").Value2)
      If Application.CountA(Range("I2:I4")) = 0 Then
         Range("A5").AutoFilter 3
      Else
         Range("A5").AutoFilter 3, Ary, xlFilterValues
      End If
   End If
End Sub

 

[SURYA2016]

Assuming you the answer to my question is yes, try

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Ary As Variant
   If Not Intersect(Target, Range("H2:H4")) Is Nothing Then
      Ary = Application.Transpose(Range("H2:H4").Value2)
      If Application.CountA(Range("H2:H4")) = 0 Then
         Range("A5").AutoFilter 2
      Else
         Range("A5").AutoFilter 2, Ary, xlFilterValues
      End If
   End If
   If Not Intersect(Target, Range("I2:I4")) Is Nothing Then
      Ary = Application.Transpose(Range("I2:I4").Value2)
      If Application.CountA(Range("I2:I4")) = 0 Then
         Range("A5").AutoFilter 3
      Else
         Range("A5").AutoFilter 3, Ary, xlFilterValues
      End If
   End If
End Sub

Thank u sir, working good

But only numeric character not filtering

 

[Fluff]

Are both columns numbers?

 

[SURYA2016]

Are both columns numbers?

One colum B only numbers

 

[Fluff]

Ok, how about

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Ary As Variant
   If Not Intersect(Target, Range("H2:H4")) Is Nothing Then
      Ary = Application.Transpose(Range("H2:H4").Value2)
      If Application.CountA(Range("H2:H4")) = 0 Then
         Range("A5").AutoFilter 2
      Else
         Range("A5").AutoFilter 2, Split(Join(Ary, " ")), xlFilterValues
      End If
   End If
   If Not Intersect(Target, Range("I2:I4")) Is Nothing Then
      Ary = Application.Transpose(Range("I2:I4").Value2)
      If Application.CountA(Range("I2:I4")) = 0 Then
         Range("A5").AutoFilter 3
      Else
         Range("A5").AutoFilter 3, Ary, xlFilterValues
      End If
   End If
End Sub

 

[SURYA2016]

Ok, how about

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim Ary As Variant
   If Not Intersect(Target, Range("H2:H4")) Is Nothing Then
      Ary = Application.Transpose(Range("H2:H4").Value2)
      If Application.CountA(Range("H2:H4")) = 0 Then
         Range("A5").AutoFilter 2
      Else
         Range("A5").AutoFilter 2, Split(Join(Ary, " ")), xlFilterValues
      End If
   End If
   If Not Intersect(Target, Range("I2:I4")) Is Nothing Then
      Ary = Application.Transpose(Range("I2:I4").Value2)
      If Application.CountA(Range("I2:I4")) = 0 Then
         Range("A5").AutoFilter 3
      Else
         Range("A5").AutoFilter 3, Ary, xlFilterValues
      End If
   End If
End Sub

Thank your so much sir, working good