Alertas para todas las celdas.
Tengo el siguiente código:
Dim fechaActual As Date
Dim fechaReferencia As Date
Dim diasAnticipados As Integer
Dim diasDiferencias As Integer
Dim mensaje As String
fechaActual = Date
fechaReferencia = Sheets("ProgramarRep").Cells(2, 7)
diasAnticipados = Sheets("ProgramarRep").Cells(2, 8)
mensaje = Sheets("ProgramarRep").Cells(2, 2)
diasDiferencias = DateDiff("D", fechaActual, fechaReferencia)
If diasDiferencias <= diasAnticipados Then
MsgBox mensaje
End IfLo que hace esto, mostrarme el mensaje de la celda que indico, si la los dias anticipados son los indicados, o menor.
Es decir: si tengo una tarea programada para el día 05/04/2020 y digo que necesito me avise con 4 días de anticipación, hoy me empieza a avisar que debo realizar esa tarea.
Hasta ahí, bárbaro, ahora mi problema, es que yo necesito que revise todas las celdas y me de un mensaje por cada fila que cumpla con la condición indicada. Siempre mostrando las columnas 2, 7 y 8, según la fila.
¿Me explico bien?
