newbee got a problem

[climax]

Hi,

Here is the setup:
I get streaming data in cell g2. I want to compare this data with th
previous data in this cell so I copy the old data in cell g3. If G3 i
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 dat
doesn´t work.
I am a newbee so please can sommeone help me on the right track?

Thank

 

[Bob Phillips]

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]

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