Moderator: 2020vision
by excelhasey » Sat Aug 08, 2020 6:36 pm
by Captain Sensible » Sat Aug 08, 2020 7:30 pm
by Captain Sensible » Sat Aug 08, 2020 7:31 pm
by excelhasey » Sat Aug 08, 2020 7:50 pm
by Captain Sensible » Sat Aug 08, 2020 7:58 pm
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub 'If columns changed <> 16 then exit sub
Application.EnableEvents = False 'Turn off events so changes to cell don't retrigger event
With Target.Parent ' saves us hard coding the full address
If .Range("A1").Value <> Worksheets("Balance").Range("A1").Value And .Range("F2").Value = "Suspended" Then
Worksheets("Balance").Range("A1:A8").Insert (xlShiftDown)
Worksheets("Balance").Range("A1").Value = .Range("A1").Value
Worksheets("Balance").Range("A2").Value = .Range("I2").Value
Worksheets("Balance").Range("A3:A8").Value = .Range("X5:X10").Value
End If
End With
Application.EnableEvents = True 'Turn on events again
End Sub
by Captain Sensible » Sat Aug 08, 2020 8:02 pm
by Captain Sensible » Sat Aug 08, 2020 9:55 pm
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myarray As Variant
If Target.Columns.Count <> 16 Then Exit Sub 'If columns changed <> 16 then exit sub
Application.EnableEvents = False 'Turn off events so changes to cell don't retrigger event
On Error GoTo Xit:
If Worksheets("Balance").Range("B2").Value <> Worksheets("Selections").Range("A1").Value And _
Worksheets("Selections").Range("F2").Value = "Suspended" Then
Worksheets("Balance").Range("B2:BB2").Insert (xlShiftDown)
myarray = Worksheets("Selections").Range("X5:X55").Value
Worksheets("Balance").Range("B2").Value = Worksheets("Selections").Range("A1").Value
Worksheets("Balance").Range("C2").Value = Worksheets("Selections").Range("I2").Value
Worksheets("Balance").Range("D2:BB2").Value = Application.WorksheetFunction.Transpose(myarray)
End If
Xit:
Application.EnableEvents = True 'Turn on events again
End Sub
by excelhasey » Sat Aug 08, 2020 11:37 pm
by excelhasey » Sun Aug 09, 2020 3:14 pm
by Captain Sensible » Sun Aug 09, 2020 3:45 pm
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myarray As Variant
Dim lastrow As Integer
If Target.Columns.Count <> 16 Then Exit Sub 'If columns changed <> 16 then exit sub
Application.EnableEvents = False 'Turn off events so changes to cell don't retrigger event
On Error GoTo Xit:
lastrow = Worksheets("Balance").Range("B" & Rows.Count).End(xlUp).Row
If Worksheets("Balance").Range("B" & lastrow).Value <> Worksheets("Selections").Range("A1").Value And _
Worksheets("Selections").Range("F2").Value = "Suspended" Then
myarray = Worksheets("Selections").Range("X5:X55").Value
Worksheets("Balance").Range("B" & lastrow + 1).Value = Worksheets("Selections").Range("A1").Value
Worksheets("Balance").Range("C" & lastrow + 1).Value = Worksheets("Selections").Range("I2").Value
Worksheets("Balance").Range("D" & lastrow + 1 & ":BB" & lastrow + 1).Value = Application.WorksheetFunction.Transpose(myarray)
End If
Xit:
Application.EnableEvents = True 'Turn on events again
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.