Estoy tratando de desarrollar una alerta que recuerde a las personas a enviar un reporte semanal cuando determinadas fechas (que están seleccionadas en la columna BA) están igualadas con el día actual.
El problema es que mi caja de mensaje no se está mostrando, y a pesar de que el código parece ser muy simple, no estoy encontrando una solución al problema. Cambié el día en mi computadora para probar y no pasopasó nada.
El código es el siguiente:
Sub ReportReminder()
If Date = Sheets(1).Cell("BA15").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA21").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA27").Value Then
MsgBox ("Enviar reporte semanal")
ElseIf Date = Sheets(1).Cell("BA33").Value Then
MsgBox ("Enviar reporte semanal")
End If
End Sub
Cualquier otro dato que necesiten haganmeháganme saber, Muchas gracias.
Cris