Alerta de vencimiento de fechas 4 horas antes de vencer
Tengo una lista de datos con fechas
Necesito que cuando falten 4 horas antes de vencer. Me aparezacan los datos de columna que falten 4 horas para vence
Columna A columna B
167888 10/10/2016 07:00
7898667 10/10/ 2016 07:00
Aparezca un mensaje con los números
167888
7898667
Según la hora del sistema la alerta sea a las
10/10/2016 15:00
1 Respuesta
Respuesta de víctor ibarz
En un módulo el siguiente código:
Sub Reloj()
UltLinea = Range("A1048576").End(xlUp).Row
For B = 1 To UltLinea
vahora = Now()
vcompa = Cells(B, 2).Value
If vcompa > (vahora - 0.16666667) Then
vmsg = Cells(B, 1).Value & vbCrLf & vmsg
End If
Next
If vmsg = "" Then
Else
MsgBox vmsg
End If
Application.OnTime Now + TimeValue("00:00:30"), "reloj"
End Sub
Sub auto_Open()
Call Reloj
End SubSe ejecuta cada 30 segundos.
Si me aparece el mensaje pero en blanco. No de ejecutar 4 horas antes de que de cumpla la fecha
Si te aparece el mensaje en blanco es que tienes una fecha a punto de vencer en la columna "B" que no tiene dato en la columna "A". No entiendo lo que quieres decir con la segunda frase. Yo lo he probado y funciona correctamente.
