Esto se puede resolver con una macro automática que se ejecute al abrir la planilla y compare cada fecha de la lista con la fecha actual. Si coinciden, muestra el compromiso en un cuadro de mensaje. Algo así:

Sub Auto_Open()

fila = 2

Do While Not IsEmpty(Cells(fila, “A”))

If Cells(fila, “A”) = Date Then

x = MsgBox(Cells(fila, “B”), , “Compromisos para hoy”)

End If

fila = fila + 1

Loop

End Sub

Esta macro recorre la colum­na [A] comenzando desde la segunda fila y continúa hasta llegar a una celda vacía. La macro usa la fun­ción Date para obtener la fecha del día.

En esta macro, la instrucción MsgBox (una función, en realidad) tiene tres argumen­tos separados por comas:

✶ El primero es el texto que mostrará el cuadro. En este caso, el compromiso indica­do en la segunda columna.

✶ El segundo son los boto­nes que aparecerán en el cuadro. Como este argumen­to se deja en blanco, apa­recerá el botón [Aceptar], que es el estándar.

✶ El tercero es el texto que aparecerá en la barra de título del cuadro.

En esta forma, MsgBox es una función, por lo que debe aparecer a la derecha de un signo igual. La varia­ble x aparece en la macro sólo para recibir el valor de la función.

 

Una macro automática recorre esta lista y, cuando la fecha de la primera columna coincide con la fecha de hoy, muestra el compromiso indicado en la columna [B].