Moderator: 2020vision
by KESIMKESIM » Thu Jul 06, 2017 3:45 pm
by mike » Fri Jul 07, 2017 8:51 pm
by MarkRussell » Sat Jul 08, 2017 10:17 am
by mike » Tue Jul 11, 2017 11:12 am
by KESIMKESIM » Thu Jul 13, 2017 3:55 pm
by GaryRussell » Thu Jul 13, 2017 4:10 pm
by mak » Sat Jul 22, 2017 9:02 am
by alrodopial » Sat Jul 22, 2017 2:08 pm
ElseIf BA_Array(2, 5) = "In Play" And (BA_Array(2, 6) = "Closed" Or BA_Array(2, 6) = "Suspended" ) Then
................
by mak » Sat Jul 22, 2017 2:19 pm
by mak » Sat Jul 22, 2017 2:23 pm
by alrodopial » Sat Jul 22, 2017 6:17 pm
by mak » Sun Jul 23, 2017 4:24 pm
by Captain Sensible » Sun Jul 23, 2017 4:56 pm
by alrodopial » Sun Jul 23, 2017 6:36 pm
Dim marketChanging As Boolean, currentMarket As String, triggerInQ2 As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = 16 Then
Dim BA_Array() As Variant, MyQ2 As Variant
Application.EnableEvents = False
With ThisWorkbook.Sheets(Target.Worksheet.Name)
BA_Array = .Range("A1:BZ55").Value ' this read is probably too much for every update while full stream is on
If BA_Array(2, 59) <= 520 And Target(2, 6) <> "Closed" Then
MyQ2 = "FULL-STREAM-ON"
Else
MyQ2 = "FULL-STREAM-OFF"
End If
If Target(2, 5) = "In Play" And Target(2, 6) = "" Then ' is this If statement needed????
' ...........
ElseIf (Target(2, 5) = "In Play" And Target(2, 6) = "Suspended") Or Target(2, 6) = "Closed" Then
If Not marketChanging Then
marketChanging = True
currentMarket = Target(1, 1)
MyQ2 = -1
Else
If Target(1, 1) <> currentMarket Then marketChanging = False
End If
End If
If triggerInQ2 <> MyQ2 Then
.Range("Q2").Value = MyQ2
triggerInQ2 = MyQ2
End If
' ..........
End With
' ..........
Application.EnableEvents = True
End If
End Sub
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.