Changing Color Font based on date/time column

Hi,
I need some help with a macro and I’m not very proficient in visual basic

What I want to do is change the font color each time the date/time row changes.

Column A3 has date/ time is in that column

I want to change the font color for Range A3:H3 to red

Then in the next row (A4:H4) change it to red if the date / time in A4 is the same as A3, but if it is higher by 30 minutes change it to another color. This continues down another 30 rows (A?:H?) or so until no more data in Time / date column.

I could not figure out how to do this in the conditional formatting manager so I turned to a simple macro that isn’t so simple for me.

Thanks,

Mike

Is date reference always cell A3 or is it the cell before the one evaluated? Like A4 is compared to A3 but A5 will be compared to A4, etc.
Below is a workbook with dates in column A and conditional formatting as per your request. I hope!
If this works for you, you might just have to extend the range the conditional formatting applies to.
Look at the range of cells the conditional formatting applies to and you'll see it goes up to column ZZ. Change this to suit your needs. Change this to both conditions.
Regards

Now that I understand what you want to do, here is a macro that should do it.
I'll let you play with the RGB values to get the colors you want. You can change the number of color by changing the C_olor array parameters.

You might find it easier to use ColorIndex instead of RGB. So here is the modification to the macro:

Public Sub Change_Color()
Dim C_ell As Range, Color_Index(10)
Color_Index(0) = 3
Color_Index(1) = 4
Color_Index(2) = 5
Color_Index(3) = 7
Color_Index(4) = 8
Color_Index(5) = 9
Color_Index(6) = 10
Color_Index(7) = 12
Color_Index(8) = 11
Color_Index(9) = 13
Range("A3").EntireRow.Font.ColorIndex = 3
i = 0
For Each C_ell In Range("A4", Cells(Rows.Count, 1).End(xlUp))
  If C_ell = C_ell.Offset(-1, 0) Then
    C_ell.EntireRow.Font.ColorIndex = Color_Index(i)
  Else
    If i = 10 Then i = 0 Else i = i + 1
    C_ell.EntireRow.Font.ColorIndex = Color_Index(i)
  End If
Next
End Sub