Using Array(s) to filter 13k+rows with 600+ keywords

[robkrouse]

this has been one frustrating day, that's for sure. :-/

here are the questions that i actually have.
is there a more efficient way to do this? Or even an easier user interface. I mean, i put it together, so i know how to work it. But, when i pass it on for someone else to use, that's another story.

I work 10K+ rows. Usually around 60-70k. i have 600+ key words that i am using to filter out the data with. with all of the sorting that i have to do, one filter is still way to much data to sort through all at once. So, i broke it up into 15 different filters.

I have around 600 keywords I am filtering for right now.(and it will continue to grow). The number of rows typically exceed 10k. When I apply the filter, it doesn't catch everything. Maybe 60-65%. And i have to go and eyeball the rest that need to be removed. So, i broke up the arrays into smaller chunks to make it easier on the eyes. While sifting through what the filters don't catch, i'm deleting the ones i don't need and moving the ones that i want to keep to a different sheet, just so i can keep myself from going over the same ol' data over and over again, just because one filter doesn't catch it.

Is there a more efficient way to get the same results?

I download a list of data then export to excel. When I copy and paste the data to this sheet, it messes the Array's all up and I have to go back and correct every cell because it gives me a reference error showing that file path back to where it was saved previously. Is there a way around this? Maybe a Macro or something?

(i just thought of this, but would protecting sheet, workbook or Mark as Final, solve that problem?)

I really appreciate the help i have received from all of you folks in the forum. I hope that i will be able to pay it forward one day.

[Neil_]

Try this UDF. Put it in a new module.

Function FilterFind(Lookup As Range, FilterSet As Range) As Boolean
    Dim CL As Range
    For Each CL In FilterSet.Cells
        If CL & "" <> "" And InStr(Lookup, CL.Value) > 0 Then
            FilterFind = True
            Exit For
        End If
    Next
End Function

Usage

=filterfind($A1,filter!$A$1:$AO$29)

[sourabhg98]

Hey there,
I have kept 1000 rows of data for testing in the file attached.
You just need to click the button.
You can see the progress in the blue status bar below.
This macro will delete all the rows except those found on filter sheet

[robkrouse]

thanks for the suggestions. I'm still having difficulty with it. when i'm using the array's i have them set up now, it is not working right. If i use the filters one at a time from left to right, i cut a pretty good chunk of the junk out. But once i get to that point, it keeps pulling stuff up that should have been cleared from the first go around of filtering. I'm not sure what to do. I think i'm going to have to start over from scratch.

[sourabhg98]

Oops, posted by mistake.
Post deleted

[sourabhg98]

Where are you facing problems?