Si queremos usar una planilla como agenda, ¿cómo podemos hacer para que nos avise sobre nuestros compromisos?
Sub Auto_Open()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í:
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 columna [A] comenzando desde la segunda fila y continúa hasta llegar a una celda vacía. La macro usa la función Date para obtener la fecha del día.
En esta macro, la instrucción MsgBox (una función, en realidad) tiene tres argumentos separados por comas:
✶ El primero es el texto que mostrará el cuadro. En este caso, el compromiso indicado en la segunda columna.
✶ El segundo son los botones que aparecerán en el cuadro. Como este argumento se deja en blanco, aparecerá 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 variable 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].
No hay comentarios:
Publicar un comentario
Deja todo lo que quieras decirnos, somos mentes abiertas y leemos de todo y para todos, pero por favor no insultes, no agredas, no seas pornografico, eso no nos gusta y te vamos a mandar bien lejos.