Revise Min

[billandrew]

Evening all

Attempting to modify this script which highlights minimum values in columns 2 to 10 & rows indicated in the "RW" array

The modification would highlight the 3 minimum values within the row ranges.


Thank you guys...

Dim Rng As Range, r As Double, Col As Long, Rw As Variant, n As Long
For Col = 2 To 10 
Rw = Array(6, 17, 19, 30, 32, 40, 42, 50, 52, 58, 60, 66, 68, 71)
'The range of each borough
For n = 0 To UBound(Rw) Step 2
Set Rng = Range(Cells(Rw(n), Col), Cells(Rw(n + 1), Col))
 
r = Application.Min(Rng)
For Each Min In Rng
If Min.Value = r Then
 
Min.Interior.Color = RGB(253, 249, 215)
Min.Font.Color = RGB(192, 0, 0)
Min.Font.Bold = True
End If
Next Min
Next n
Next Col

 

[Peter_SSs]

Try making these 2 changes

<del>r = Application.Min(Rng)</del>
r = Application.Small(Rng, 3)

<del>If Min.Value = r Then</del>
If Min.Value <= r Then

 

[billandrew]

Thank you sir.
Appreciate it. Let you know how it works.

 

[billandrew]

apologies for late response - Works great.

Thank you

 

[Peter_SSs]

Glad to help.