Hi I'm working on a macro code to search and filter and there are more than 30 ways to search it. Unfortunately vba only allow me to do about 20 ways long. Below is my code
If Not (Cells(x, "J") 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, "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, "F") 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, "L") 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, "J") 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, "E") Like "*" & Target & "*" And Cells(x, "L") Like "*" & Range("F2") & "*") Then
Rows(x).EntireRow.Hidden = False
End With
Do you know any other way around to get more of this enter to run?
Thanks
Bookmarks