Adding
This will add conditional formatting to cells "A2:C8" indicating the smallest number in each row, excluding zeros.
Sub ApplyConditionalFormatting()
Dim oFormatCondition As FormatCondition
On Error Resume Next
Set oFormatCondition = Range("A2:C8").FormatConditions(1)
oFormatCondition.Delete
On Error GoTo 0
Range("A2:C8").Select
Set oFormatCondition = Range("A2:C8").FormatConditions.Add( _
XlFormatConditionType.xlExpression, , _
"=A2=SMALL($A2:$C2,COUNTIF($A2:$C2,0)+1)")
With oFormatCondition
.Interior.Color = RGB(212, 152, 112)
End With
End Sub
© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext