how do I copy streaming data values into excel

[morningstar333]

I have streaming data coming into an excel spread sheet. I would like to
count how many times each time a unique number displays and what that number
is. Can anyone help?

 

[RB Smissaert]

You need to describe better how the data is coming in.
Can the Worksheet_Change event pick it up?

RBS

 

[ryguy7272]

Can you give more information please? There is usually a high correlation
between the amount of information given and the quality of help given.

Thanks,
Ryan---

 

[morningstar333]

I am getting stock quotes through Etrade Pro. Etrade Pro creates an excell
spread sheet that shows the bid and ask and last trade data updated every 1
second. I do calculations on the data provided and those calculated number
change with the changes in the stock price. I want to track what numbers the
calculations come up with and how often those numbers are repeated.

 

[RB Smissaert]

So, are you looking at changes in one particular cell or a range involving a
number of cells or even a number of different sheets.
In any case have a look at the Worksheet_Change event and that should allow
you to do this.

RBS

 

[ryguy7272]

Hummm, still not getting it, but anyway. Here are a few ways to identify
uniques or dupes:
With data in ColA and ColB:
=IF(NOT(ISERROR(MATCH(A1:A6,B1:B6,0))),A1:A6,"")
this is entered as Ctrl+Shift+Enter

=IF(ISERROR(MATCH(A1:A6,B1:B6,0)),A1:A6,"")
Ctrl+Shift+Enter

With data just in ColA:
=SUMPRODUCT((A2:A78<>"")/(COUNTIF(A2:A78,A2:A78&"")))

You could try this too
=IF(COUNT(A1:A20)<ROW(A1),"",INDEX(A1:A20,MATCH(SMALL(A1:A20,ROW(A1)),A1:A20,0)))

This is nice too:
=IF(B1=0,"",IF(COUNTIF($A$1:$A$1700,$B$1:$B$1700)>0,A1,""))

This may do it:
Sub Uniques()
Dim i As Integer
i = 1
Do Until Cells(i, 1).Value = "" '(as long as your data is in column 1)
If Cells(i, 1) = Cells(i + 1, 1) Then
Else
Cells(i, 1).Copy
Cells(i, 5).PasteSpecial xlValues '(this pastes into column E)
End If
i = i + 1

Loop
Range("E5:E1000").Sort Key1:=Range("E5"), Order1:=xlAscending

Columns("E:E").Select
Selection.Sort Key1:=Range("E1"), Order1:=xlAscending ',
Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A1").Select

End Sub

HTH,
Ryan---

 

[Bob McEver]

--
Bob McEver

 

[Bob McEver]

My problem is that I too use Excel via E*Trade Manager in PRO 5.0 and it
worked fine in Excel 2003. After I upgraded to Excel 2007 I have many
compatibility problems with the latest being the loss of updating shortly
after setting up a watchlist. E*Trade says that they have not problems and
it's my setup that is the problem.
Anyone else have similar problems or is it just me?