Marco para solo ingresar fechas mayores de edad para poder trabajar

Buenas tardes, quisiera saber si se puede realizar una macro para poder ingresar fechas mayores de edad y edad minima para poder trabajar que este me lance un mensaje diciendo cuando es MUY MAYOR para trabajar y que me lance un mensaje cuando ES MUY JOVEN PARA TRABAJAR

1 Respuesta

Respuesta

en una celda comun usa la function  sifecha  seria asi

=sifecha (celda fecha de nac,celda de fecha de hoy,"y")

=sifecha(a1,a2,"y")  en el caso de

Fecha de nsc. Este en la celda a1

Fecha de hoy este en la celda a2

Y en a3 estaría la fórmula

Luego en el evento change de la hoja

Seria así

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a3") < "18" Then
MsgBox " es menor de edad "
End If
End Sub

estos es en el caso de menor de edad

ya para los muy adulto seria

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a3") > "70" Then
MsgBox " es mayor de edad  "
End If
End Sub

le puse 70 año pero tu elijiras el que quieras

Si te silve no ovides valorar para cerrar la pregunta 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas