Thread
:
Find Smallest and Largest.
View Single Post
#
6
Posted to microsoft.public.excel.worksheet.functions
Don Guillett
external usenet poster
Posts: 10,124
Find Smallest and Largest.
Or 6 different colors if 6 different values. ie: three smallest the same =
color 34
Sub colorsmallest()
Set Rng = Range("p2:p18")
For Each c In Rng
Select Case c.Value
Case Application.Small(Rng, 1): mc = 34
Case Application.Small(Rng, 2): mc = 35
Case Application.Small(Rng, 3): mc = 36
Case Application.Large(Rng, 1): mc = 37
Case Application.Large(Rng, 2): mc = 38
Case Application.Large(Rng, 3): mc = 39
Case Else
mc = 0
End Select
If IsNumeric(c) Then c.Interior.ColorIndex = mc
Next
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"Don Guillett" wrote in message
...
Try this idea for condition 1. Add small,2 in the middle.
=OR(O3=SMALL($O$2:$O$8,1),O2=SMALL($O2:$O8,3))
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"dlbeiler" wrote in message
...
I have a column of random numbers and need to find the smallest, second
smallest, third smallest, third largest, second largest, largest and
highlight these numbers with different font colors.
Reply With Quote
Don Guillett
View Public Profile
Find all posts by Don Guillett