Moderator: 2020vision
by Ferru123 » Sun Jul 16, 2017 11:44 am
by Captain Sensible » Sun Jul 16, 2017 2:34 pm
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
Call Macro1
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Columns.Count <> 16 Then Exit Sub
If Range("AC5").Value = 1 Then Range("AD5").Value =Range("AC5").Value
End Sub
by Ferru123 » Sun Jul 16, 2017 4:54 pm
by Ferru123 » Sun Jul 16, 2017 6:00 pm
by Captain Sensible » Sun Jul 16, 2017 6:22 pm
by Captain Sensible » Sun Jul 16, 2017 6:24 pm
by Ferru123 » Sun Jul 16, 2017 9:44 pm
Captain Sensible wrote:Meant linked to Betting assistant
by Captain Sensible » Sun Jul 16, 2017 10:04 pm
If Range("AC5").Value = 1 Then Range("AD5").Value =Range("AC5").Value
by Ferru123 » Mon Jul 17, 2017 10:22 am
by Captain Sensible » Mon Jul 17, 2017 1:37 pm
by Captain Sensible » Mon Jul 17, 2017 2:57 pm
If Target.Columns.Count <> 16 Then Exit Sub
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
'code is in here
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
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 'turns off events so we don't retrigger the code
Application.Calculation = xlCalculationManual 'turns off all calculations
'code is in here
Call CopyAC5 ' just your simple copying sub routine
Application.EnableEvents = True ' events back on
Application.Calculation = xlCalculationAutomatic ' calculations back on
End Sub
Sub CopyAC5()
If Range("AC5").Value = 1 Then Range("AD5").Value = Range("AC5").Value
End Sub
Sub reset()
Application.EnableEvents = true
End Sub
by Ferru123 » Mon Jul 17, 2017 10:18 pm
by Captain Sensible » Mon Jul 17, 2017 10:43 pm
by Captain Sensible » Mon Jul 17, 2017 10:46 pm
by Ferru123 » Tue Jul 18, 2017 10:11 am
Captain Sensible wrote:Make sure you copy the sub codes into the module1 not under sheet1
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.