[Dba-office] conditional formatting in formulas

[Bryan Fitzpatrick]

Something like this?


Sub test()

     ActiveSheet.Range("R13").Select
     If ActiveCell > 499 Then
         x = ActiveCell.Row
         ActiveCell.EntireRow.Select
         Selection.Interior.Color = RGB(204, 153, 0)
     Else
         If ActiveCell > 299 Then
             x = ActiveCell.Row
             ActiveCell.EntireRow.Select
             Selection.Interior.Color = RGB(234, 234, 234)
         Else
             If ActiveCell > 99 Then
                 x = ActiveCell.Row
                 ActiveCell.EntireRow.Select
                 Selection.Interior.Color = RGB(153, 102, 51)
             End If
         End If
     End If


HTH

*/Bryan Fitzpatrick
Mobile: 0418 618 469/*
On 8/07/2016 12:50 PM, John R Bartow wrote:
> Is there a way to color a row based on the value of a formula in one cell?
>
>   
>
> Right now I just have row marked as a color using this rather simpleton
> formula:
>
> =IF(J3+K3>499,"Gold",(IF(J3+K3>299,"Silver",(IF(J3+K3>99,"Bronze","")))))
>
>   
>
> Would be better to color those rows instead.
>
>   
>
> _______________________________________________
> Dba-office mailing list
> Dba-office at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/dba-office
>
>
> -----
> No virus found in this message.
> Checked by AVG - www.avg.com
> Version: 2016.0.7640 / Virus Database: 4613/12576 - Release Date: 07/07/16
>
>




-----
No virus found in this message.
Checked by AVG - www.avg.com
Version: 2016.0.7640 / Virus Database: 4613/12576 - Release Date: 07/07/16