Public Sub Colore()
Dim h As Date, d As Date, f As Date, hi As Date, m As Date, l As Long, li As Long, c As Byte, x As String
Dim pos As Byte, posh As Byte
Range("A2:A82").Interior.ColorIndex = 1: Range("A2:A82").Font.ColorIndex = 2
h = Hour(Time) / 24: m = Time - Hour(Time) / 24
For l = 2 To 82 Step 2
pos = InStr(Cells(l, 1).Value, "-")
posh = InStr(Cells(l, 1).Value, "h")
x = Mid(Cells(l, 1), 1, posh - 1)
If x / 24 = h Then
If Val(Right(Cells(l, 1).Value, 2)) = "30" Then
If m <= "00:30" Then
li = l
Exit For
Else
If m > "00:30" Then
li = l + 2
Exit For
End If
End If
End If
End If
Next l
Cells(li, 1).Interior.ColorIndex = 6: Cells(li, 1).Font.ColorIndex = xlAutomatic
For c = 2 To 8
If Cells(1, c) = Date Then Exit For
Next c
Range(Cells(2, c), Cells(82, c)).Interior.ColorIndex = xlNone
Range(Cells(2, c), Cells(li + 1, c)).Interior.ColorIndex = 6
End Sub