Football Macro

[thunderfoot]

I know this will be "Simples" but .....

Have loaded all todays football matches, that have a Correct Score market, to the Quick Pick list, and because a large number start at the same time the 'Clear Bet Refs on Auto Select market' won't do what I want.

I want the Bet Ref, Bet Time, Av. Matched Odds, Matched Stake and Profit/Loss Area (called this 'Bet_Area') to clear when I manually select the next fooball game, so when cell A1 changes the 'Bet-Area' is cleared.

Got this bit of code but ain't working :-

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$A$1" Then
    Application.Goto Reference:="Bet_Area"
    Selection.ClearContents
    Range("Q4").Select
    End If

End Sub

[GaryRussell]

That code assumes that cell A1 will be updated by itself and also that it's only updated when the market changes. That doesn't happen. It's updated at the same time as the odds on every refresh.

You need to record the contents of cell A1 in a variable and then compare on each update.

The code below would be more appropriate. I haven't tested it though.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count=16 Then
       If [A1]<>currentMarket then
          Application.EnableEvents=False
          Application.Goto Reference:="Bet_Area"
          Selection.ClearContents
          Range("Q4").Select
          Application.EnableEvents=True
       End If
       currentMarket=[A1]
    End If
End Sub

[thunderfoot]

Nah! Didn't work

Don't know if it makes any difference but I'm using EXCEL 2003 and the 'old' Betfair Trader (pre-release ver 0.99z30).

[GaryRussell]

Why do you want to use the old Betfair Trader? What's wrong with Betting Assistant?

It does make a difference because that version does not update the same number of columns.

[GaryRussell]

It's 13 columns in Betfair Trader so it should be as follows, but I am no longer developing this version so if you run into problems I recommend you use the latest version of Betting Assistant so I can provide better support.

Code: Select all

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Columns.Count=13 Then
       If [A1]<>currentMarket then
          Application.EnableEvents=False
          Application.Goto Reference:="Bet_Area"
          Selection.ClearContents
          Range("Q4").Select
          Application.EnableEvents=True
       End If
       currentMarket=[A1]
    End If
End Sub

[thunderfoot]

Hi Gary,

Thanks for this ..... using the 'old' BT 'cos I'm testing. Once I'm happy that BT does what I want then I'll switch over.