Eduard Caballero respondió:
Este es el macro Sub semaforo() Range("b2") = Date & " " & Format(Time, "h:mm") Range("c2") = Date + 5 & " " & Format(Time, "h:mm") End Sub Para hacer eso puedes usar formato condicional http://excellentias.com/2010/03/formato-condicional-en-excel/...