Pop-up message in case value becomes true

[Gebruiker01]

Hi there,

I have some VBA programming which I'm not able to figure out myself. Hope you can help me here!

I have an excel spreadsheet in which stock data is uploaded from the net and refreshed every minute. It's a single spreadsheet and named "Stock data".

In column "J" the course change for each share that day is mentioned in %. If a value in column "J" becomes greater then 5% or lower then -5% I would like to get an automtic message/pop-up. The message should only come-up once and dissappear after having pressed an acknowledge button.

In column "A" the name of each share is mentioned. The message that pops-up for, for instance the case that a specific share has reached the specified increase level should be something like "(share name) has reached specified increase level", of course for a decrease it should be the opposite.

The pop-up should be visible on screen even if excel is not the program running as the active window at that time. (so I'm not missing any of the action when busy with other work )
Is this possible? Any help is greatly apreciated!

[Shampoo Monkey]

Hey Gebruiker01

This should get you what you want:

LastStock = Range("A1000000").End(xlUp).Row

For Each cell In Range("J1:J" & LastStock)
If cell.Value >= 0.05 Then
     AppActivate "Microsoft Excel"
    MsgBox Range("A" & cell.Row).Value & " has met your specified increase level.", vbSystemModal
End If
If cell.Value <= -0.05 Then
     AppActivate "Microsoft Excel"
    MsgBox Range("A" & cell.Row).Value & " has met your specified decrease level.", vbSystemModal
End If
Next cell

Just let us know if you have any problems or questions.

[tony h]

A different way of doing things.

[Gebruiker01]

Thanks for the quick reply Shampoo Monkey,

I put the code you have made in a new module, but very little happens... I can't even run it as a macro... what am I doing wrong?