Moderator: 2020vision
by samhayer » Wed Sep 09, 2020 3:21 pm
by Captain Sensible » Wed Sep 09, 2020 3:59 pm
if A1<>AA2 then .....
by Captain Sensible » Wed Sep 09, 2020 5:55 pm
Captain Sensible wrote:If things seem too complicated you can always go that route especially as you're already dumping data like balances to the sheet2 anyway.
Option Explicit
Dim currentMarket As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count = 16 Then
If [A1] <> currentMarket Then
currentMarket = [A1]
logBalance
Call Macro2
Call Macro4
Call Macro5
End If
End If
''''''''''''''''''''''''''''''''''''''''''''
Application.EnableEvents = False
If Worksheets("Sheet1").Range("T1").Value = "Reload first market" Then
Worksheets("Sheet1").Range("T1").Value = Date & " QPL reloaded " & Time()
ElseIf Worksheets("Sheet1").Range("T1").Value = "Reload QPL" Then
Worksheets("Sheet1").Range("T1").Value = "Reload first market"
Worksheets("Sheet1").Range("Q2").Value = 5
ElseIf InStr(Worksheets("Sheet1").Range("T1").Value, Date) <> 1 Then
Worksheets("Sheet1").Range("T1").Value = "Reload QPL"
Worksheets("Sheet1").Range("Q2").Value = 3
End If
Application.EnableEvents = True
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Private Sub logBalance()
Application.EnableEvents = False
Dim r As Integer
r = 2
While Sheet2.Cells(r, 1) <> ""
r = r + 1
Wend
Sheet2.Cells(r, 1) = currentMarket
Sheet2.Cells(r, 2) = [I2]
Application.EnableEvents = True
End Sub
Sub refreshQPL
Application.EnableEvents = False
If Worksheets("Sheet1").Range("T1").Value = "Reload first market" Then
Worksheets("Sheet1").Range("T1").Value = Date & " QPL reloaded " & Time()
ElseIf Worksheets("Sheet1").Range("T1").Value = "Reload QPL" Then
Worksheets("Sheet1").Range("T1").Value = "Reload first market"
Worksheets("Sheet1").Range("Q2").Value = 5
ElseIf InStr(Worksheets("Sheet1").Range("T1").Value, Date) <> 1 Then
Worksheets("Sheet1").Range("T1").Value = "Reload QPL"
Worksheets("Sheet1").Range("Q2").Value = 3
End If
Application.EnableEvents = True
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.