• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Filter multiple table based on one "master" table

jofata

New Member
I try to build up a small database for results of a specific test. In this test we measure a lot of parameters (about 30). the testresult is a migration curve (in 5directions) that is recorded and should be plotted in the end. I have about 200 different tests that i want to filter for different parameters and then get graphs of the migration curves of the ones that are filtered out.
Every new test that will be performed will be aded to this database.

My aproach is to load the data from a text file into excel. This part I managed to do.

I now have one spreadsheet with differnt tabs. The first tab contains a table with the parameters that i want to filter.
Sample Code:Implant in Torque (Ncm):
aFE322_V20051_1
57.3​
aFE322_V20051_2
58.39​
aFE322_V20051_3
57.49​
aFE322_V20051_4
58.93​
aFE322_V20051_5
56.19​
aFE322_V20051_6
51.23​
aFE322_V20051_7
58.34​
aFE322_V20051_8
60.2​
Once this list is filtered i would like to apply the same filter to my other tabs each containing a table containing the data that i want to plot.

The common factor is the "sample code". I tried to extract the filtered array of sample codes and apply it to a filter on the table in the next tab
Column1Column2Column3
aFE322_V20051_10.024.02
aFE322_V20051_20.024.02
aFE322_V20051_30.024.02
aFE322_V20051_40.024.02
aFE322_V20051_50.024.02
aFE322_V20051_60.024.02
aFE322_V20051_70.024.02
aFE322_V20051_80.024.02

However I was not able to extract an array of the "filtered values". It was always reading out all 8 strings instead of only 6 (after filtering out two).

The code I used is:

>>> use code - tags <<<
Code:
Sub Update()

Sheets("Header").Select

tlookup = Range("Tabelle2[Sample Code:]").Values

Sheets("Cycle").Select
ActiveSheet.ListObjects("Table14").Range.AutoFilter Field:=1, Criteria1:= _
        tlookup, Operator:=xlFilterValues

End Sub
I would really appreciate some help :)
 
Last edited by a moderator:

jofata

New Member
I am sorry but the file i tried to upload is too large. I treid to reduce. What part of the file would be necesary? I tried to extract the parts relevant :(
ill try without the data loaded in the file
 
Top