Store Value after Calculation

[John Davis]

I currently have a spreadsheet that is populated by realtime stock
quotes from another program. As trades are executed on the stock
exchanges the worksheet is updated with the last price, accumulated
volume and time. I would like to record the time and price when the
accumulated volume hits a theshold.

Example: What time and price was the stock when the volume equaled
20% of the 10 Day Average Volume

Average Volume = 100,000
20% of Average Volume = 20,000
At what time and price did the accumulated volume crossed 20,000
shares.

The challenge that I am having is capturing the time and price when
the threshold is met.

I am not sure if an event driven procedure or macro could do this.

Any help would be greatly appreciated.

John

 

[norman]

John.
you write the code in the worksheet_change event. e.g

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If inspectionCell.value > ?? then yourStorageVariable =
Now()
etc.
End Sub

 

[John Davis]

Norman,

Thanks for your response. I currently have a list of about 50 - 60
stocks that I need to track. Where do I put the code and how do I
reference the different securities all hitting the theshold at
different times.

Thanks,

John