Recording football odds

[danjuma]

Somebody uploaded a spreadsheet for recording football odds sometime ago. I have copied the VBA code from the sheet below. Unfortunately, the spreadsheet records just the match odds (1X2). It does not record or display properly when used to record other football markets like the CS etc.

Would any of you VBA whiz be kind enough to modify it so it could also record the odds for other markets, especially for the correct score market (even if that's the only one you could have time time to do).

Or, if someone knows of a sheet that does this already.

Many thanks.



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Columns.Count = 16 Then

Application.EnableEvents = False

HT = Trim(Left(Sheets("Sheet1").Range("A1"), InStr(Sheets("Sheet1").Range("A1"), "v") - 1))
If HT <> Sheets("Sheet1").Range("C21").Value Then Sheets("Sheet1").Range("A21:IV65536").ClearContents

LR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
AT = Trim(Mid(Sheets("Sheet1").Range("A1"), InStr(Sheets("Sheet1").Range("A1"), "v") + 1, InStr(Sheets("Sheet1").Range("A1"), "-") - InStr(Sheets("Sheet1").Range("A1"), "v") - 1))
ST = Trim(Mid(Sheets("Sheet1").Range("A1"), InStr(Sheets("Sheet1").Range("A1"), ":") - 2, 5))
CT = Time

If LR = 20 Then
AM_H = ""
AM_A = ""
AM_D = ""
Else
AM_H = Sheets("Sheet1").Range("P5").Value - Sheets("Sheet1").Range("R" & LR).Value
AM_A = Sheets("Sheet1").Range("P6").Value - Sheets("Sheet1").Range("AJ" & LR).Value
AM_D = Sheets("Sheet1").Range("P7").Value - Sheets("Sheet1").Range("BB" & LR).Value
End If

MyArray = Array(CT, ST, HT, "", Sheets("Sheet1").Range("B5"), Sheets("Sheet1").Range("C5"), Sheets("Sheet1").Range("D5"), Sheets("Sheet1").Range("E5"), Sheets("Sheet1").Range("F5"), Sheets("Sheet1").Range("G5"), Sheets("Sheet1").Range("H5"), Sheets("Sheet1").Range("I5"), Sheets("Sheet1").Range("J5"), Sheets("Sheet1").Range("K5"), Sheets("Sheet1").Range("L5"), Sheets("Sheet1").Range("M5"), Sheets("Sheet1").Range("O5"), Sheets("Sheet1").Range("P5"), AM_H)
Sheets("Sheet1").Range("A" & (LR + 1) & ":S" & (LR + 1)).Value = MyArray
MyArray = Array(AT, "", Sheets("Sheet1").Range("B6"), Sheets("Sheet1").Range("C6"), Sheets("Sheet1").Range("D6"), Sheets("Sheet1").Range("E6"), Sheets("Sheet1").Range("F6"), Sheets("Sheet1").Range("G6"), Sheets("Sheet1").Range("H6"), Sheets("Sheet1").Range("I6"), Sheets("Sheet1").Range("J6"), Sheets("Sheet1").Range("K6"), Sheets("Sheet1").Range("L6"), Sheets("Sheet1").Range("M6"), Sheets("Sheet1").Range("O6"), Sheets("Sheet1").Range("P6"), AM_A)
Sheets("Sheet1").Range("U" & (LR + 1) & ":AK" & (LR + 1)).Value = MyArray
MyArray = Array("Draw", "", Sheets("Sheet1").Range("B7"), Sheets("Sheet1").Range("C7"), Sheets("Sheet1").Range("D7"), Sheets("Sheet1").Range("E7"), Sheets("Sheet1").Range("F7"), Sheets("Sheet1").Range("G7"), Sheets("Sheet1").Range("H7"), Sheets("Sheet1").Range("I7"), Sheets("Sheet1").Range("J7"), Sheets("Sheet1").Range("K7"), Sheets("Sheet1").Range("L7"), Sheets("Sheet1").Range("M7"), Sheets("Sheet1").Range("O7"), Sheets("Sheet1").Range("P7"), AM_D)
Sheets("Sheet1").Range("AM" & (LR + 1) & ":BC" & (LR + 1)).Value = MyArray

Application.EnableEvents = True

End If

End Sub

[alrodopial]

This was my attempt to record odds .
If you can wait I'll post something similar in a few days when I'll have it finished.

[alrodopial]

especially for the correct score market

Trying to solve Slicer's mystery?

[danjuma]

especially for the correct score market

Trying to solve Slicer's mystery?

Not that smart, just trying to record some data for the smart guys to play with.

[Norwegian Would]

especially for the correct score market

Trying to solve Slicer's mystery?

He he - Mr Slicer - gotta lotta peapuls thinkink! A bit uff a legund in 'is own time.


I luk forward to your post Big Alrod.....