View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.misc
Bob Phillips
 
Posts: n/a
Default Creating an Alert Box

Here's another idea Paul.

Link a cell to the cell that gets update via the feed, with a simple =H10
say.

Add this code, which should trigger when the linked cell, A1 in my example,
goes below 1

Private Sub Worksheet_Calculate()
Const WS_RANGE As String = "A1:H10"
Static oldvalue

If Me.Range(WS_RANGE) < oldvalue Then
If Me.Range(WS_RANGE).Value <= 1 Then
MsgBox "Alert"
End If
End If
oldvalue = Me.Range(WS_RANGE).Value
End Sub


'This is worksheet event code, which means that it needs to be
'placed in the appropriate worksheet code module, not a standard
'code module. To do this, right-click on the sheet tab, select
'the View Code option from the menu, and paste the code in.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Paul987" wrote in
message ...

New problem. The cell I was going to use the data validation on is real
time data. Therefore, the user isn't entering a value into the cell,
it's changing automatically and the validation doesn't work. Any
ideas?


--
Paul987
------------------------------------------------------------------------
Paul987's Profile:

http://www.excelforum.com/member.php...o&userid=24850
View this thread: http://www.excelforum.com/showthread...hreadid=520206