Moderator: 2020vision
by cjones198 » Tue Sep 22, 2020 9:22 pm
by Captain Sensible » Wed Sep 23, 2020 11:54 am
Call Macro1
by cjones198 » Wed Sep 23, 2020 4:15 pm
by Captain Sensible » Wed Sep 23, 2020 5:28 pm
Call sub2
Call setup_market_sub
Call market_record_sub
If market=In Play then
Call save_sub
Call erase_sub
Call move market_sub
end if
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False ' stopping events here mean we don't need to repeat it elsewhere
Application.Calculation = xlCalculationManual '
If Worksheets("Sheet1").Range("A1").Value <> MyMarket Then
MyMarket = Worksheets("Sheet1").Range("A1").Value
' In here we'd set up all the new variables to setup a new market and it would only run once
End If
'Here would be the main section of the code where we would call sub routines that possibly run on each refresh i.e Call Record routines
Application.EnableEvents = True ' turn events back on
Application.Calculation = xlCalculationAutomatic
End Sub
by cjones198 » Wed Sep 23, 2020 5:37 pm
by cjones198 » Wed Sep 23, 2020 8:12 pm
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
Dim Price As Variant
Dim iCol As Integer
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False ' stopping events here mean we don't need to repeat it elsewhere
Application.Calculation = xlCalculationManual '
If Worksheets("Sheet1").Range("A1").Value <> MyMarket Then
MyMarket = Worksheets("Sheet1").Range("A1").Value
' In here we'd set up all the new variables to setup a new market and it would only run once
Price = Sheets("Sheet1").Cells(5, 15).Value 'store price
iCol = 4 'store col number
Sheets("Sheet2").Rows(4).Clear 'clear recorded row
End If
'Here would be the main section of the code where we would call sub routines that possibly run on each refresh i.e Call Record routines
If Price <> Sheets("Sheet1").Cells(5, 15).Value Then
Sheets("Sheet2").Cells(4, iCol).Value = Sheets("sheet1").Cells(5, 15).Value
Price = Sheets("sheet1").Cells(5, 15).Value
iCol = iCol + 1
End If
Application.EnableEvents = True ' turn events back on
Application.Calculation = xlCalculationAutomatic
End Sub
by Captain Sensible » Wed Sep 23, 2020 8:28 pm
by cjones198 » Wed Sep 23, 2020 8:38 pm
by cjones198 » Wed Sep 23, 2020 8:50 pm
by Captain Sensible » Wed Sep 23, 2020 8:54 pm
by cjones198 » Wed Sep 23, 2020 9:18 pm
by cjones198 » Thu Sep 24, 2020 10:49 am
by Captain Sensible » Thu Sep 24, 2020 12:33 pm
Private Sub Worksheet_Change(ByVal Target As Range)
Static MyMarket As Variant
Static switchMarket as Boolean
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False ' stopping events here mean we don't need to repeat it elsewhere
Application.Calculation = xlCalculationManual '
If Worksheets("Sheet1").Range("A1").Value <> MyMarket Then
MyMarket = Worksheets("Sheet1").Range("A1").Value
switchMarket = False
End If
If Worksheets("Sheet1").Range("E2").Value ="In Play" and switchMarket = False Then
Worksheets("Sheet1").Range("Q2").Value = -1
switchMarket = True
End If
Application.EnableEvents = True ' turn events back on
Application.Calculation = xlCalculationAutomatic
End Sub
by cjones198 » Thu Sep 24, 2020 12:39 pm
by cjones198 » Thu Sep 24, 2020 12:47 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.