Jump to content

Comparara fecha y mostrar mensaje emergente

Posted

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

Featured Replies

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

 

  • Author

Buenas tardes

Haplox José

 

Que pena apenas contestar, eso era lo que queria, lo entendio muy bien.

Muchas gracias.

 

 

  • 2 weeks later...
  • Author

Que pena, como se puede hacer para que cuando se actualice la informacion no vuelta a mostrar el aviso

Muchas gracias

Archived

This topic is now archived and is closed to further replies.