Advanced Auto Filter. ( Get Distinct Value, Max, Min )

Hi everyone,

I am new in macro and vba. I am having a problem in getting the data in my RawData. I want to get the max and min value, distinct value, and number of total records of each element. It ranges from (D:T) in RawData Sheet and to be extract in Sheet2. I have attach my file that i made and put some details. I also put Sheet3 which is the sample result of my work it is filled with color red on the tab.

I will be glad to have your suggestions or if there is revisions to be made.

Thanks.

Hi Ross

In my macro in commandbutton it will filter RawData column(B) and will filter the first element the ones filled with color yellow in RawData. I want to filter it starting in Column(D) to column(T) and so on if there will be added elements. Then after RawData column(B) will be filter to a certain criteria e.g(Primary) and the first element will be filtered column(D) after column (D) is filtered by
unchecking the blanks, then it will do the following:

First copy the LabCode(RawData!C) unique values only maximum of two will be copy. It will be copied to Sheet2!F5:G5, if only 1 labcode put in F5, G5 will be left blank
Then it will get the number with greater than> or less than< sign it will be put in Sheet2(H5:J5) maximum of three det. limit if blank it will ignore or left as blank.
Then it will get the maximum and min number in the filtered element RawData columnD. Max no. will be copied to Sheet2!K5 and min no. will be copied to L5.
Then it will get the total number of records when everything is unfiltered. and get the number of records of the elements when RawData!B is filtered and RawData!D is filtered.

I will attach a follow up sample. Thank you for your time. and please tell me if i need some revision.