Macro que avise la fecha de vencimiento
Necesito saber como hago que excel me avise mediante un mensaje que a tal o cual trabajador le vence su contrato de trabajo.-
Tengo una planilla en donde tengo los trabajadores ordenados de la siguiente forma:
Columna A Apellido paterno
Columna B Apellido materno
Columna C Nombres
Columna D Fecha de Ingreso
Columna E Fecha de término del contrato
Entonces lo que necesito, si alguien me puede ayudar, es que al abrir mi planilla un mensaje me diga que el al trabajador xx le vence el contrato en 7 días más (ejemplo a juan diaz le vence el contrato el 30 de abril de 2018, el mensaje debe avisarme desde el 23 de abril de 2018 que a juan diaz le vence el contrato el 30 de abril de 2018)
Agradecido de ante mano..
1 Respuesta
Pon la siguiente macro en los eventos de tu libro
Private Sub Workbook_Open()
'Por Dante Amor
'Verifica la fecha de vencimiento
'
Set h = Sheets("Hoja1")
For i = 2 To h.Range("D" & Rows.Count).End(xlUp).Row
If h.Cells(i, "E").Value - h.Cells(i, "D").Value >= 7 Then
nombre = h.Cells(i, "C").Value & " " & h.Cells(i, "A").Value
MsgBox "A: " & nombre & ", le vence el contrato el : " & h.Cells(i, "D").Value
End If
Next
End SubCambia en la macro "Hoja1" por el nombre de tu hoja que contiene los datos.
Instrucciones para poner la macro en los eventos ThisWorkbook
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a ThisWorkbook
- En el panel del lado derecho copia la macro
.
.
