Hi,

Here is the setup:
I get streaming data in cell g2. I want to compare this data with the
previous data in this cell so I copy the old data in cell g3. If G3 is
4 points less I must send a string to a api system to buy stock.

This is what I came up with:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("g2") < Range("g3") - 4 Then
Range("c10") = Range("c10") + 1 (<= this where the string should be.
NOW TESTING )
Range("g3") = Range("g2")
Range("g3") = Range("g3")
End If

End Sub


This works but only when I click on the sheet when G2 changes.
I tried to put it in a macro with loop but then my streaming data
doesn´t work.
I am a newbee so please can sommeone help me on the right track?

Thanks


--
climax
------------------------------------------------------------------------
climax's Profile: http://www.excelforum.com/member.php...o&userid=30816
View this thread: http://www.excelforum.com/showthread...hreadid=506297

Try this

Private Sub Worksheet_Change(ByVal Target As Range)
Const WS_RANGE As String = "G2:G3"

On Error GoTo ws_exit:
Application.EnableEvents = False
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Me.Range("G2") < Me.Range("G3") - 4 Then
Me.Range("C10") = Me.Range("C10") + 1
Me.Range("gG3") = Me.Range("G2")
End If
End With
End If

ws_exit:
Application.EnableEvents = True
End Sub

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"climax" wrote in
message ...

Hi,

Here is the setup:
I get streaming data in cell g2. I want to compare this data with the
previous data in this cell so I copy the old data in cell g3. If G3 is
4 points less I must send a string to a api system to buy stock.

This is what I came up with:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Range("g2") < Range("g3") - 4 Then
Range("c10") = Range("c10") + 1 (<= this where the string should be.
NOW TESTING )
Range("g3") = Range("g2")
Range("g3") = Range("g3")
End If

End Sub


This works but only when I click on the sheet when G2 changes.
I tried to put it in a macro with loop but then my streaming data
doesn´t work.
I am a newbee so please can sommeone help me on the right track?

Thanks


--
climax
------------------------------------------------------------------------
climax's Profile:
http://www.excelforum.com/member.php...o&userid=30816
View this thread: http://www.excelforum.com/showthread...hreadid=506297

Thanks
My straeming data in cell g2 works ok, but cell g3 doesn´t change so it
can´t compare old with new data. Cell c10 works ok ( Tried it by
entering higher value in g3 )


--
climax
------------------------------------------------------------------------
climax's Profile: http://www.excelforum.com/member.php...o&userid=30816
View this thread: http://www.excelforum.com/showthread...hreadid=506297