Mensaje al aproximarse la fecha
Hola antes que nada un saludo.
En mi B.D. Tengo un campo de fecha el cual tiene por objeto fijar un termino de vencimiento.
Necesito que 15 días antes de la fecha me mande un mensaje de texto y a la vez este muestre que registro es.
No se si es muy difícil, yo tenia un ejemplo de esto que perdí y el ejemplo se hacia con una macro.
Te lo agradeceré infinitamente.
En mi B.D. Tengo un campo de fecha el cual tiene por objeto fijar un termino de vencimiento.
Necesito que 15 días antes de la fecha me mande un mensaje de texto y a la vez este muestre que registro es.
No se si es muy difícil, yo tenia un ejemplo de esto que perdí y el ejemplo se hacia con una macro.
Te lo agradeceré infinitamente.
1 Respuesta
Respuesta de Elsa Matilde
1
No me explicás mucho al respecto, por lo que asumí que el control se hará al activar la hoja donde en la celda L1 hay un campo fecha que se debe controlar.
(Todo esto lo tenés que ajustar a tu modelo)
Entonces en el Editor, en la hoja donde estará el campo fecha copiá esta rutina:
Private Sub Worksheet_Activate()
Dim vto As Date
Dim celda as string
'establece la dirección de la celda controlada
celda = range("L1").address(false, false)
'toma la fecha de la celda L1
vto = Range("L1").Value - 15
'compara con la fecha actual
If Now() >= vto Then
'envía mensaje
MsgBox "Vto en celda " & celda
End If
End Sub
Espero que el ejemplo te ayude a resolverlo.
Saludos
Elsa
*** No te pierdas el Manual con las 200+ Macros explicadas en español. Descarga la Demo gratis desde:
http://es.geocities.com/lacibelesdepunilla/manual
(Todo esto lo tenés que ajustar a tu modelo)
Entonces en el Editor, en la hoja donde estará el campo fecha copiá esta rutina:
Private Sub Worksheet_Activate()
Dim vto As Date
Dim celda as string
'establece la dirección de la celda controlada
celda = range("L1").address(false, false)
'toma la fecha de la celda L1
vto = Range("L1").Value - 15
'compara con la fecha actual
If Now() >= vto Then
'envía mensaje
MsgBox "Vto en celda " & celda
End If
End Sub
Espero que el ejemplo te ayude a resolverlo.
Saludos
Elsa
*** No te pierdas el Manual con las 200+ Macros explicadas en español. Descarga la Demo gratis desde:
http://es.geocities.com/lacibelesdepunilla/manual
