Alertas para cada fila.
Publicado por Juan Cruz (28 intervenciones) el 01/04/2020 19:17:47
Tengo el siguiente código:
Lo 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?
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fechaActual As Date
Dim fechaReferencia As Date
Dim diasAnticipados As Integer
Dim diasDiferencias As Integer
Dim mensaje As String
fechaActual = DatefechaReferencia = 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 If
Lo 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?
Valora esta pregunta
0