Necesito repetir un macro a diferentes filas
Tengo este macro,
Sub recordatorio()
Dim fechaActual As Date
Dim fechaReferencia As Date
Dim diasAnticipados As Integer
Dim diasDiferencia As Integer
fechaActual = Date
fechaReferencia = Sheets("Obras").Cells(3, 7)
diasAnticipados = 3
diasDiferencia = DateDiff("d", fechaActual, fechaReferencia)
If diasDiferencia = diasAnticipados Then
MsgBox "Plazo cerca de vencer"
End If
End Sub
Este es para llevar un control de documentos/tareas que están cerca de vencer, esta programado para que 3 días antes de la fecha para presentación me indique "Plazo cerca de vencer", necesito que este macro se repita en toda la hoja, los titulos de las columnas son:
1. Estado 2.Fases/Etapas de las Obras 3.No. Documento 4.Fecha Inicial 5.Plazo Respuesta 6.Fecha de Revisión 7.Responsable
Entonces por ejm si la fecha inicial es 26/11/17, con un plazo de respuesta de 5 días, la fecha de revisión esta para el 1/12/17, si la fecha es 28/11/17, activa el macro y el mensaje: "Plazo cerca de vencer", ya que esta programado este plazo para que alerte 3 días antes de la fecha de revisión.
Se requiere que este macro se repita para cada fila, ya que se pueden insertar "n" cantidad de fecha inicial, de acuerdo con las fases/etapas de las obras (por ejm, se puede utilizar para otro tipo de tareas).
1 respuesta
Suponiendo que tus datos están así:
Entonces ejecuta la siguiente macro.
Sub recordatorio()
'Act.Por.Dante Amor
fechaActual = Date
Set h = Sheets("Obras")
For i = 3 To h.Range("D" & Rows.Count).End(xlUp).Row
fechaReferencia = h.Cells(i, "F") 'fecha revisión
diasAnticipados = 3
diasDiferencia = DateDiff("d", fechaActual, fechaReferencia)
If diasDiferencia = diasAnticipados Then
MsgBox "Plazo cerca de vencer en la fila " & i
End If
Next
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
