Dante Amor respondió:
Suponiendo que tus datos están así: Entonces ejecuta la siguiente macro. Sub recordatorio() 'Act.Por.Dante Amor fechaActual = Date Set h = Sheets("Obras") For i = 3 To h.Range("D" & Rows.Count).End(xlUp).Row fechaReferencia = h.Cells(i, "F") 'fecha...