Record real time data (stock quote)

The Sample excel ‘Record’ contains 2 sheets named ‘RTData’ and ‘Datafeed’ resp.

This excel is about recording real time data (stock quote) from trading terminal ODIN Diat.

In Datafeed sheet, we get Time and quote in cells A1 & A2 resp. This is a ‘tick’ data and it refreshes a few times EVERY SECOND.

I wish to record this data in sheet ‘RTData’. Time in col A, & Quote in col B. (for time interval 10 Sec)

After searching the forum, I got the following code:

Sub update()

With Sheets("RTData")
rw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Range(.Cells(rw, 1), .Cells(rw, 2)).Value = Sheets("datafeed").Range("a1:b1").Value
End With
Application.OnTime Now + TimeSerial(0, 0, 10), "update" ' run again after 10 seconds
End Sub

I wish this code / or something better than this (if someone can suggest) with a few modifications:

1. Controls to start and stop recording.
2. Something on ‘error handling’

Can someone please help in this matter ?

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)