Hi all,
Not sure if this is possible or not so hear goes.
I would like to record the market prices (football) at set intervals say 5mins 10mins 15 mind and so on but would like to do this over multi markets 1.5 2.5 3.5 and so on. Is it possible to do this automated or by creating a spreadsheet macro
football markets recording
-
- Posts: 41
- Joined: Sun Nov 01, 2009 1:25 pm
In a word - yes.
Open bet-angel multiple through guardian, on the bet-angel tabs at the bottom of the sheet create copy's of the sheets so you have one for each market you want to monitor.
Then create another two sheets one called "Data Capture" and another "Summary" in cell A1 of the Summary sheet link it to the 1st price you want to monitor example(bet-angel sheet over 1.5 goals back price) A2 the lay price etc etc.
Then in excel developer create a module and add this.....
Then this.....
End Sub
And this.....
End Sub
You can add activeX buttons onto your sheet to control the stop and start of recording.
A couple of points you can change the time it records on the starttimer time value currently set at 10 seconds.
Also you will have to write this line of code
For every price you wish to record but change Range("A" & Rows.Count) to B,C,D etc etc as this is the coloum the data will be recorded into and change this Range("A1").Value to A2,A3 etc etc or whatever cell the prices are in on the summary sheet as these are the cell's what are being recorded.
Merry Xmas
Gally
Open bet-angel multiple through guardian, on the bet-angel tabs at the bottom of the sheet create copy's of the sheets so you have one for each market you want to monitor.
Then create another two sheets one called "Data Capture" and another "Summary" in cell A1 of the Summary sheet link it to the 1st price you want to monitor example(bet-angel sheet over 1.5 goals back price) A2 the lay price etc etc.
Then in excel developer create a module and add this.....
Code: Select all
Sub ValueStore1()
Dim dTime As Date
Worksheets("Data Capture").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Worksheets("Summary").Range("A1").Value
Call StartTimer1
End Sub
Code: Select all
Sub StartTimer1()
dTime = Now + TimeValue("00:00:10")
Application.OnTime dTime, "ValueStore1", Schedule:=True
End Sub
And this.....
Code: Select all
Sub StopTimer()
On Error Resume Next
Application.OnTime dTime, "ValueStore1", Schedule:=False
You can add activeX buttons onto your sheet to control the stop and start of recording.
A couple of points you can change the time it records on the starttimer time value currently set at 10 seconds.
Also you will have to write this line of code
Code: Select all
Worksheets("Data Capture").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Worksheets("Summary").Range("A1").Value
Merry Xmas
Gally