Moderator: 2020vision
by cjones198 » Thu Oct 01, 2020 3:48 pm
by cjones198 » Thu Oct 01, 2020 3:53 pm
by Captain Sensible » Thu Oct 01, 2020 5:30 pm
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Dim i As Integer, end_of_loop As Integer
Dim direction As String: direction = ""
Static old_price As Currency, volume As Currency, MyMarket As Variant
If MyMarket <> Worksheets("Sheet1").Cells(1, 1).Value Then
'let's set the market variables
old_price = Worksheets("Sheet1").Cells(5, 15).Value
volume = Worksheets("Sheet1").Cells(5, 16).Value
MyMarket = Worksheets("Sheet1").Cells(1, 1).Value
Worksheets("Sheet2").Rows("10:11").ClearContents
End If
Dim iCol As Integer
iCol = Worksheets("sheet2").Cells("10", Columns.Count).End(xlToLeft).Column + 1
i = getTicks(old_price, Sheets("Sheet1").Cells(5, 15).Value)
If i >= 0 Then direction = "up"
i = Abs(i)
end_of_loop = WorksheetFunction.floor(i, 2)
If i >= 2 And Worksheets("Sheet1").Cells(2, 5).Value = "Not In Play" Then
For i = 2 To i Step 2
If direction = "up" Then
Worksheets("Sheet2").Cells(10, iCol).Value = plusTicks(old_price, 2)
Else
Worksheets("Sheet2").Cells(10, iCol).Value = minusTicks(old_price, 2)
End If
If i = end_of_loop Then
Worksheets("Sheet2").Cells(11, iCol).Value = Sheets("Sheet1").Cells(5, 16).Value - volume
Else
Worksheets("Sheet2").Cells(11, iCol).Value = 0
End If
iCol = iCol + 1
Next i
old_price = Sheets("Sheet1").Cells(5, 15).Value
volume = Sheets("Sheet1").Cells(5, 16).Value
End If
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End Sub
by cjones198 » Thu Oct 01, 2020 6:42 pm
by Captain Sensible » Thu Oct 01, 2020 7:08 pm
If MyMarket <> Worksheets("Sheet1").Cells(1, 1).Value Then
'let's set the market variables
old_price = Worksheets("Sheet1").Cells(5, 15).Value
volume = Worksheets("Sheet1").Cells(5, 16).Value
MyMarket = Worksheets("Sheet1").Cells(1, 1).Value
Worksheets("Sheet2").Rows("10:11").ClearContents
End If
If i >= 2 And Worksheets("Sheet1").Cells(2, 5).Value = "Not In Play" Then
............
End If
by cjones198 » Thu Oct 01, 2020 7:09 pm
The strength of Gruss Software is that it’s been designed by one of you, a frustrated sports punter, and then developed by listening to dozens of like-minded enthusiasts.
Gruss is owned and run by brothers Gary and Mark Russell. Gary discovered Betfair in 2004 and soon realised that using bespoke software to place bets was much more efficient than merely placing them through the website.
Gary built his own software and then enhanced its features after trialling it through other Betfair users and reacting to their improvement ideas, something that still happens today.
He started making a small monthly charge so he could work on it full-time and then recruited Mark to help develop the products and Gruss Software was born.
We think it’s the best of its kind and so do a lot of our customers. But you can never stand still in this game and we’ll continue to improve the software if any more great ideas emerge.