Crear macro que muestre fecha vencimiento dentro de Userform
Me gustaría saber como crear un mensaje de alerta de vencimiento dentro de un userform.
Tengo un userform, que mediante un botón de búsqueda me da los datos de varios empleados. Esto sobretodo me da fechas de caducidad de sus certificados. Podría crear una macro o dentro de la misma para que muestre una alerta de vencimiento (por ejemplo cuando quede 1 mes) para cumplir dicha fecha, o se resalte esas fechas en concretos cuando le doy a buscar en el formulario.
Sub Consultarone()
Sheet5.Visible = True
Dim FilaRegistro As Long, rango As String, UltFila As Long
UltFila = Range("A" & Rows.Count).End(xlUp).Row
rango = "AE2:AE" & UltFila
FilaRegistro = filaexisteregistro(frmCertificates.TxtID1, rango)
If FilaRegistro = 0 Then
ans = MsgBox("ID don´t exist", vbExclamation, "FRS")
Exit Sub
End If
frmCertificates.TxtName1 = Sheet5.Cells(FilaRegistro, 2)
frmCertificates.TxtSurname1 = Sheet5.Cells(FilaRegistro, 3)
frmCertificates.TxtCompet1 = Sheet5.Cells(FilaRegistro, 11)
frmCertificates.TxtVisa1 = Sheet5.Cells(FilaRegistro, 10)
frmCertificates.TxtWatch1 = Sheet5.Cells(FilaRegistro, 12)
frmCertificates.TxtBasic1 = Sheet5.Cells(FilaRegistro, 13)
frmCertificates.TxtPax1 = Sheet5.Cells(FilaRegistro, 14)
frmCertificates.TxtCraft1 = Sheet5.Cells(FilaRegistro, 15)
frmCertificates.TxtFire1 = Sheet5.Cells(FilaRegistro, 16)
frmCertificates.TxtFRB1 = Sheet5.Cells(FilaRegistro, 17)
frmCertificates.TxtFirst1 = Sheet5.Cells(FilaRegistro, 18)
frmCertificates.TxtMedical1 = Sheet5.Cells(FilaRegistro, 19)
frmCertificates.TxtFit1 = Sheet5.Cells(FilaRegistro, 20)
frmCertificates.TxtForklift1 = Sheet5.Cells(FilaRegistro, 21)
frmCertificates.TxtARPA1 = Sheet5.Cells(FilaRegistro, 22)
frmCertificates.TxtGmdss1 = Sheet5.Cells(FilaRegistro, 23)
frmCertificates.TxtHSC1 = Sheet5.Cells(FilaRegistro, 24)
frmCertificates.TxtAssist1 = Sheet5.Cells(FilaRegistro, 25)
frmCertificates.TxtSecurity1 = Sheet5.Cells(FilaRegistro, 26)
frmCertificates.TxtEcdis1 = Sheet5.Cells(FilaRegistro, 27)
frmCertificates.TxtCook1 = Sheet5.Cells(FilaRegistro, 29)
frmCertificates.TxtFood1 = Sheet5.Cells(FilaRegistro, 30)
End sub
