alert pop up
- Thread starter Fat_joe
- Start date
Monty
Well-Known Member
Hello Fat
As per my experience to set up an alert pop-up in Excel using VBA for the expiry of an item, you can use the `Application.OnTime` method to schedule a macro to run at a specific time. Here's an example:
Here's how to use this code:
1. Press `Alt` + `F11` to open the VBA editor.
2. Insert a new module: `Insert` > `Module`.
3. Copy and paste the code into the module.
4. Modify the `expirationDate` variable to your desired expiry date and time.
Run the `SetExpirationAlert` macro to set up the alert. When the specified expiration time is reached, it will trigger the `ShowAlert` macro, displaying a pop-up alert.
As per my experience to set up an alert pop-up in Excel using VBA for the expiry of an item, you can use the `Application.OnTime` method to schedule a macro to run at a specific time. Here's an example:
Code:
Sub SetExpirationAlert()
' Set the expiration date and time (adjust as needed)
Dim expirationDate As Date
expirationDate = #12/31/2023 12:00:00 PM#
' Calculate the time difference between now and the expiration date
Dim timeDiff As Double
timeDiff = expirationDate - Now
' Schedule a macro to run at the specified expiration time
Application.OnTime Now + TimeValue("00:00:00") + timeDiff, "ShowAlert"
End Sub
Code:
Sub ShowAlert()
' Display a pop-up alert
MsgBox "Item has expired!", vbExclamation, "Expiration Alert"
End SubHere's how to use this code:
1. Press `Alt` + `F11` to open the VBA editor.
2. Insert a new module: `Insert` > `Module`.
3. Copy and paste the code into the module.
4. Modify the `expirationDate` variable to your desired expiry date and time.
Run the `SetExpirationAlert` macro to set up the alert. When the specified expiration time is reached, it will trigger the `ShowAlert` macro, displaying a pop-up alert.