How to Search in VisibleCell then enter value if meet criterias

Hi,
I'm looking a code to do a task as follow (I did a macro recording but it's not working right)

1. Find the Max value of column F:F; if the value =3 or smaller then Exit Sub
2. First Filter Column E:E = 0;
3. Second Filter Column F:F by the 2nd and 3rd largest number from the Max value of this Column F:F
4. Start Searching in each visible cell in Column F:F => If cell = 3rd largest number AND below cell = 2rd largest number then
a/ if cell = 3rd largest number AND below cell = 2rd largest number then
b/ IF TRUE then enter value "0" in column D:D
c/ IF FALSE then leave BLANK
d/ The value should be increased by 1 for each next group of patten

5. Repeat step 3 & 4 but searching for the 3rd and 4th largest number then enter value in the next Column C:C

6. Repeat step 3 & 4 but searching for the 4th and 5th largest number then enter value in the next Column B:B

7. Repeat step 3 & 4 but searching for the 5th and 6th largest number then enter value in the next Column A:A

Please see sample attached for more clarification
Regards,
tt3

Please Login or Register  to view this content.

Hi,
That code work but not exactly of my expectation:

Your result:
Your Result
0 2
1 0 3
2 0 3
3 0 3
4 0 3
5 0 3
0 2
6 0 3
7 0 3
8 0 3
9 0 3
10 0 3
11 0 3
12 0 3
13 0 3
0 2
14 0 3
15 0 3
16 0 3
17 0 3
18 0 3



Should be:

Should Be
0 0 2
0 0 3
0 0 3
0 0 3
0 0 3
0 0 3
1 0 2
1 0 3
1 0 3
1 0 3
1 0 3
1 0 3
1 0 3
1 0 3
1 0 3
2 0 2
2 0 3
2 0 3
2 0 3
2 0 3
2 0 3

Should Be.PNG