Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F5")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Dim bottomC As Integer
bottomC = Range("J" & Rows.Count).End(xlUp).Row
Dim x As Long
For x = bottomC To 10 Step -1
If Not (Cells(x, "J") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "K") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "J") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "H") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "E") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" Or Cells(x, "N") Like "*" & Target & "*" And Cells(x, "F") Like "*" & Range("F2") & "*" _
Or Cells(x, "D") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "H") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "E") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "G") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "J") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "L") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "K") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*" Or Cells(x, "F") Like "*" & Target & "*" And Cells(x, "N") Like "*" & Range("F2") & "*") Then
Rows(x).EntireRow.Hidden = True
End If
Next x
If Range("F5") = "" Then
ActiveSheet.Cells.EntireRow.Hidden = False
End If
Application.ScreenUpdating = True
End Sub
PLease help
Bookmarks