Coniditional Formatting Applying Randomly or to Whole Sheet

[AlexB123]

Hi everyone,

I need a macro to change the font of entire rows of data for two conditions.

(1) If column C (age of column B) is greater than 30 days, but less than 61 days, the font should be BOLD and BLACK.
(2) If Column C is greater than 60 days, the font should be BOLD AND RED.

I'm definitely getting frustrated ... this should be so simple.

   Dim wrkRng As Range
 
  With ActiveWorkbook.Worksheets("Sheet1").Range("A1:M1071")
            .FormatConditions.Delete
            Set wrkRng = ActiveWorkbook.Worksheets("Sheet1").Range("A1:K1071")
        End With
       
   With wrkRng
            .FormatConditions.Add Type:=xlExpression, Formula1:="=AND($C2>30,$C2<=60)"
    With .FormatConditions(1).Font
     .Bold = True
     .Color = RGB(0, 0, 0)
    End With
        End With
    
        With wrkRng
            
            .FormatConditions.Add Type:=xlExpression, Formula1:="=$C2>=61"
            With .FormatConditions(2).Font
                .Bold = True
                .Color = RGB(255, 0, 0)
            End With
        End With

 

[Fluff]

Try

   Dim wrkRng As Range
   
   With ActiveWorkbook.Worksheets("Sheet1").Range("A1:M1071")
      .FormatConditions.Delete
   End With
   Set wrkRng = ActiveWorkbook.Worksheets("Sheet1").Range("A2:K1071")

   With wrkRng
      .FormatConditions.Add Type:=xlExpression, Formula1:="=AND($C2>30,$C2<=60)"
      With .FormatConditions(1).Font
         .Bold = True
         .Color = RGB(0, 0, 0)
      End With
   End With
   
   With wrkRng
      .FormatConditions.Add Type:=xlExpression, Formula1:="=$C2>=61"
      With .FormatConditions(2).Font
         .Bold = True
         .Color = RGB(255, 0, 0)
      End With
   End With

 

[AlexB123]

Still not working ... It's like the program doesn't even recognize the parameters??? But when I check the conditional formatting rules, after the program runs, they exist and are as required. The spreadsheet just isn't implementing it ... or at least it implements it incorrectly. For instance, I have one row that the format turned to red, but the value in the Age column is 7?

 

[Fluff]

Are the values in col C hard values, or the result of formulae?
Also check if there is any cell formatting on that column.

 

[AlexB123]

Are the values in col C hard values, or the result of formulae?
Also check if there is any cell formatting on that column.

@Fluff, the cells are hard coded, and there is no formatting.

After I run my code, there are rules created under conditional formatting. They just seem to be rather confused.

Sorry for the delay, we had a holiday and then I was slammed with other requirements. Thanks!

 

[Fluff]

Would you be able to share your workbook?
With the code in post#2 I get

Excel 2013/2016
	C
1	Age
2	54
3	58
4	29
5	31
6	78
7	2
8	77
9	82
10	71
11	5
12	42
13	40
14	22
15	60
Sheet1

The blue cells are for bold black text, & the Red cells are for bold red text

 

[AlexB123]

I could create a new workbook with test data?

How would I share the test workbook?

 

[Fluff]

You can upload a file to a share site, such as OneDrive, DropBox, GoogleDrive. Mark for sharing & post the link to the thread.

 

[AlexB123]

I don't believe I'll be able to share any workbooks

Any ideas as to what could cause an error? I ran just the top code on a different sheet, with simplified data, and am still getting odd results.

For this test ... columns were
A B C D
StringNumber ClientName Age Date

003 ABC 17 10/28/18 (this was bold, which should not fall within parameters)

023 XYZ 34 10/12/18 (this one was not bold, but did fall within parameters).


Any suggestions as to troubleshooting?

 

[Fluff]

If you look at the CF rules & applies to range, are they correct?