Open soccer markets with Vba

[Tradyann]

I'm a beginner with VBA, and I don't find a solution to search words in a range and apply to this code :

If InStr(1, tBAEvents.key, "Over/Under", vbTextCompare) > 0 AND InStr(1, tBAEvents.key, "words searched in a range", vbTextCompare) > 0 Then

e.g. "words searched in a range" should be Argentinian, Croatian... in range Z1:Z30 of sheet1 (so e.g. 30 nationality to exclude or include)

[Tradyann]

e.g. I have write Dutch in cell Z1.

If (InStr(1, tBAEvents.key, "Over/Under", vbTextCompare) * InStr(1, tBAEvents.key, Cells(1, 26), vbTextCompare)) > 0 Then

With this line, I have only Dutch Over/Under market...

with "AND NOT"... all markets excluding Dutch.

But I don't know with more than one criteria ?

[alrodopial]

If the problem is more than one criteria:

Code: Select all

If ... criteria 1 ....then
If ... criteria 2 ... then

etc

End If
End If

[faibo]

I think that the best solution is to get both "soccer" and "soccer-fixtures" then compare them and use the "soccer" path in the "soccer-fixtures" list.

Using just the "soccer" tree is simple to pick by league and country with the code in this topic

[Tradyann]

It's ok for me to select principle O/U of principle leagues (Barclays PL, Bundesliga 1, Serie A...)

Code: Select all

If InStr(1, tBAEvents.key, Cells(1, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(2, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(3, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(4, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(5, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(6, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(7, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(8, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(9, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(10, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(11, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(12, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(13, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(14, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(15, 26), vbTextCompare) > 0 Or InStr(1, tBAEvents.key, Cells(16, 26), vbTextCompare) > 0 Then
                                    If InStr(1, tBAEvents.key, "Over/Under", vbTextCompare) > 0 Then
                                    BAEvents.Add tBAEvents, tBAEvents.key
                                    On Error Resume Next
                                    eventcount = eventcount + 1
                                    Application.StatusBar = eventcount & " " & tBAEvents.key
                                    DoEvents
                                   
                                    End If
                                    End If

Maybe there is a better way

[heinz_pt]

Hello Guys, i'm trying to use OverUnder Quickpicklist Excel, to get the Tennis - Set 01 Winner market QPL.
I've successfully, created the QPL, and even appears the markets when is extracting the list.

But when i try to reloaded to the BA, it doesn't load. I've selected 3 games of the Set 01 Winner markets and created a QPL, using the BA. And the id's are very different from the one's that the Excel macro extracted.

Any ideas?

[Tradyann]

I've sent you a PM

[Tradyann]

Hello,

"fetching markets" with excel files (for soccer, basket, ice hockey) doesn't work since 1 or 2 days.
For Tennis it's always ok.

I use the latest beta (1.1.0.66x83) and "fetching" worked well this last week-end with this beta.

Very strange...

[GaryRussell]

I tested the spreadsheets you sent and they are working ok here. Can you explain in detail where you think it is going wrong?

[Tradyann]

a friend has the same problem as me.

When I click on button "fetching markets" nothing is found (no event).

I have tested without date research (like Tennis) and there's nothing either.

It's very strange because the same file works fine 2 days ago... and I haven't make any principal changes

The only thing i have changed is a profile export and deleting another.

I have tried BA_Clean_COM_Registry.exe and Delete_BA_Settings.exe given here : http://www.gruss-software.co.uk/forum/v ... =uninstall

I have uninstall re-install beta too..

[GaryRussell]

I'm afraid since it works on my PC I cannot tell you what is wrong. Surely if you debug your code you can see why it's not finding any markets? Did you write the code?

[Tradyann]

No, Osknows has created this code. I'm not very good in VBA but I will try to see where is the problem.

Thks Gary

[GaryRussell]

Just had a thought. You could try something quickly to rule out it being a language issue.

Login to Betfair's website and change your language to English then try it again. If it starts working it's because it cannot interpret the market data from the API correctly. I can help if this is the case.

[Tradyann]

Yes Gary... I have just seen in my code with the spy that sports names was not in english... (change in my betfair account...) !



Ouff !

[tom19235]

This will fix it http://www.mediafire.com/?nbrx2nrxw3an3a1

It's your system locale changing the month to "déc" instead of "Dec"

Regards
Os

Link broken. Could you repost?