Jump to content
Sign in to follow this  
jcjones

Comparara fecha y mostrar mensaje emergente

Recommended Posts

Buenos dias

Tengo una hoja donde se realiza los calculos de la nomina para su pago, deseo que cuando se habra la hoja compare la fecha del salario minimo y si es diferente ( anterior) me salga el mensaje "por favor actualizar el salario minimo). Mejor dicho cada que cambie el salario minimo dme de ese mensaje. La fecha esta en B3.

Anexo ejemplo

 

Muchas gracias por su ayuda

Nomina.xlsx

Share this post


Link to post
Share on other sites
Hace 19 horas, jcjones dijo:

deseo que cuando se habra la hoja compare la fecha del salario minimo y si es diferente ( anterior) me salga el mensaje "por favor actualizar el salario minimo)

No te entiendo muy bien lo que quieres, pero para lo que he entendido solo debes poner en un evento WorkBook lo siguiente:
 

Private Sub Workbook_Open()
Dim fecha As Long, hoy As Long

fecha = [b3]
hoy = Date

If fecha < hoy Then
    MsgBox "por favor actualizar el salario minimo", vbInformation, "Fecha de Salario Mínimo"
End If

End Sub

 

Share this post


Link to post
Share on other sites
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png