Sorting and conditional formatting

Hi

The effects you are looking for with conditional formatting are a little awkward to achieve, however in VBA it is possible.

The revised spreadsheet with VBA code is attached and I think covers what you are looking for. To view the code right click on the results tab and click view code.

To use different colors just change the values for colors 1, 2 & 3.

Regards

Jeff

Thank you very much, solnajeff. I appreciate your help. There was a small error in your code. I fixed it. I also made some adjustments to the colors for my purposes. I atached the corrected file.

And may I dare to ask for additional help? If the moderators decide, I can move these addititonal questions to a new thread. They are related to the same example. The questions:
1. Let us assume that we want to see from the tables in sheet Results only the top three and the last three rows of them. And we want to see them in the form of two new tables above the old tables. I atached the same file with a new sheet called Demo. In Demo I put six examples depending of how many rows we have in lower tables. Examples 2-6 describes how the upper tables should look when the lower tables contain less than 7 rows. Sheet Demo provides only illustrations.
2. The same descending sorting should be applied. Top three rows are colored in green and the last three in red (see 1. for more detailed explanation). We will have two new tables (left and right) with the headings, then top three rows and last three rows.
3. I suppose that in these new conditions the old tables in sheet Results may start from row 20. And the new tables should start from row 6.
4. All this should depend on the filtering of the comboboxes.
5. The contents of upper tables are part of the lower tables.

I tried to do point 3, but I don't know how exatly to apply conditional formationg to the new postition of the old tables. The conditional formating is applied to the old position by the VBA code. I was looking into this part of code for the solution:

Let a = Application.CountA(Columns(1))
Let b = Round(a * 0.25, 0)
Let c = Application.CountA(Columns(5))
Let d = Round(c * 0.25, 0)

Thank you