Saltar al contenido

Comparara fecha y mostrar mensaje emergente

publicado

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

publicado
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

 

publicado
  • Autor

Buenas tardes

Haplox José

 

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

Muchas gracias.

 

 

  • 2 weeks later...
publicado
  • Autor

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

Muchas gracias

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.