That's because I got rid of these lines
Const TaskCol As Long = 1
Const HoursCol As Long = 7
Const DaysCol As Long = 15
TaskCol can be a String = "A" to be consistent with the others
HoursCol = HoursRemaingCol
DaysCol = DaysRemainingCol.
Lets take theExisting SetColors Sub
Private Sub SetColors(Cel As Range)
Dim TimePriority As Long
Dim DatePriority As Long
Dim TaskPriority As Long
Dim Rw As Long
Rw = Cel.Row
TimePriority = PriorityHours(Cells(Rw, HoursCol))
Cells(Rw, HoursCol).Font.Color = ColorByPriority(TimePriority)
DatePriority = PriorityHours(Cells(Rw, DaysCol))
Cells(Rw, DaysCol).Font.Color = ColorByPriority(DatePriority)
If DatePriority > TimePriority Then
TaskPriority = DatePriority
Else
TaskPriority = TimePriority
End If
With Cells(Rw, TaskCol).Font
.Color = ColorByPriority(TaskPriority)
.Bold = False
If TaskPriority = Priority3 Then .Bold = True
If TaskPriority = Priority4 Then .Bold = True
End With
End Sub
And reorder the lines for clarity and add your new columns
Option Explicit
Const TaskCol As String = "A"
Const HoursPeriodCol As String = "C"
Const TimeCompleteCol As String = "E"
Const HoursRemainCol As String = "G"
Const HoursDueCol As String = "I"
Const DaysPeriodCol As String = "L"
Const DateCompleteCol As String = "M"
Const DateDueCol As String = "N"
Const DaysRemainingCol As String = "O"
Private Sub SetColors(Cel As Range)
Dim TimePriority As Long
Dim DatePriority As Long
Dim TaskPriority As Long
Dim Rw As Long
Rw = Cel.Row
TimePriority = PriorityHours(Cells(Rw, HoursCol))
DatePriority = PriorityDays(Cells(Rw, DaysCol)) '<<<Changed from your Sheet Code!!!!
TaskPriority = TimePriority
If TaskPriority < DatePriority Then TaskPriority = DatePriority
With Cells(Rw, TaskCol).Font
.Color = ColorByPriority(TaskPriority)
.Bold = False
If TaskPriority >= Priority3 Then .Bold = True '<<<<Note Change
End With
'IMO, this layout is not only clearer, but I just copied one line 4 times
' and then changed one word in each new line
Cells(Rw, HoursPeriodCol).Font.Color = ColorByPriority(TimePriority)
Cells(Rw, TimeCompleteCol).Font.Color = ColorByPriority(TimePriority)
Cells(Rw, HoursRemainCol).Font.Color = ColorByPriority(TimePriority)
Cells(Rw, HoursDueCol).Font.Color = ColorByPriority(TimePriority)
Cells(Rw, DaysPeriodCol).Font.Color = ColorByPriority(DatePriority)
Cells(Rw, DateCompleteCol).Font.Color = ColorByPriority(DatePriority)
Cells(Rw, DateDueCol).Font.Color = ColorByPriority(DatePriority)
Cells(Rw, DaysRemainingCol).Font.Color = ColorByPriority(DatePriority)
'See Constants above and compare this line to previous 4 lines
'Range ("L" & Rw & ":O" & Rw).Font.Color = ColorByPriority(DatePriority)
'IMO, use the Previous 4 for consistancy with first 4. YMMV
End Sub