Onderwerp: Lotto Trekking

Hier ben ik weer, nu had ik een sheet gemaakt waar je kan kijken of je gewonnen hebt met de lotto of niet.
Nu zou ik graag verwezelijken dat de getrokken lotto nummers en joker automatisch worden veranderd in mij sheet.
Ik denk dat je een link moet leggen met de website van de lotto, maar hoe doe ik dat.
Nog even iets belangrijks, de sheet in deze bijlage is in office 2003, ikzelf werk in office 2007

Hallo,

Dit kun je verwezenlijken met een webquery, ik heb zelf excel 2007 niet meer maar 2003.
Daar zit het onder, data, import external data, new wequery. Je kunt dan de betreffende tabel selecteren waar het om gaat.

Groeten,

Michel van Drunen
http://members.home.nl/mgvandrunen

dat had ik reeds geprobeert, maar bij de volgende trekking veranderde er niets.
wat doe ik dan fout

Rudolf,

1. als je zo vraag hebt laat het dan even weten dat het om bv de Belgische lotto gaat of de Nederlandse lotto.
2. een link van de site waar het om gaat.
3. de webquery welke je hebt/had
4. heb je de webquery die je had wel vernieuwd, en vernieuwde die de gegevens toen ook niet?

het gaat om de Belgische lotto, heb het net terug in mijn blad gebracht, en nu maar afwachten wat er straks gebeurt, zal nadien nog wel iets laten weten.
Maar die gegevens om mijn werkblad kunnen die niet automatisch worden vernieuwd of moet ik dat telkens zelf doen ?
Bij deze de iets aangepaste versie.
Ook nog even dit, zoals je mischien weet is er bij de winstberekening: 1 juiste, 2juiste, 3juiste, 4juiste, 5juiste, 5juiste+reservegetal en 6juiste.
Die van 1 tot 6 juiste dat duid hij aan, maar hoe bekom ik 5+.
Daar zoek ik allang achter, hopelijk heb ik hier meer succes

je haalt gegevens uit je cash van je explorder

Nu rest er me nog mijn vraag over 5+.
Daar bedoelde ik mee dat in mijn sheet zie kolom (HITS) het aantal juiste nummers wordt vermeld, en in kolom(R.G.) het reserve getal.
Maar hoe bekom ik nu 5+ in kolom (HITS)
Want de winst in Euro gaat hij vertikaal zoeken.

dit is de equivalent van de webquerys

Code:

Option Explicit

Const URL_LOTTO As String = "URL;http://www.lotto.be/pages/show.aspx?Culture=nl&pageid=results/latest/lotto&cache=33919f2a"
Const BESTEMMINGSCEL_LOTTO As String = "AD10"
Const URL_JOKER As String = "URL;http://www.lotto.be/pages/show.aspx?Culture=nl&pageid=results/latest/joker&cache=33919f2a"
Const BESTEMMINGSCEL_JOKER As String = "AD25"


Sub Webquerys()
'ActiveWorkbook.Worksheets.Add
  With ActiveSheet.QueryTables.Add(Connection:=URL_LOTTO, Destination:=Range(BESTEMMINGSCEL_LOTTO))
    .Name = "lotto"
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .RefreshStyle = xlOverwriteCells
    .WebTables = "18,""_2669ea9b8633daee__ctl0__ctl1_LottoNbrTable"",""_2669ea9b8633daee__ctl0__ctl1_LottoDetail"""
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
  End With

  With ActiveSheet.QueryTables.Add(Connection:=URL_JOKER, Destination:=Range(BESTEMMINGSCEL_JOKER))
    .Name = "joker"
    .WebSelectionType = xlSpecifiedTables
    .WebFormatting = xlWebFormattingNone
    .RefreshStyle = xlOverwriteCells
    .WebTables = """_2669ea9b8633daee__ctl0__ctl1_JokerNbrTable"",""_2669ea9b8633daee__ctl0__ctl1_JokerDetail"""
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
  End With
End Sub

Voor de rest heb ik geen tijd moet werken
maar begreep je vraag ook niet echt
leg het even beter uit kijk ik er morgen nog even naar

ik heb nog even gekeken, maar ik ben niet goklustig maar................
die 5+ betekend dat dan dat je 5 goed hebt + het reserve getal ?????

ja dat bedoelde ik.
Wat ik wil realiseren is dat ik in een werkblad de uitslag van de trekking van de belgische lotto automatisch verkrijg. En dat deze telkens er een nieuwe trekking plaats vondt ook automatisch veranderd. Deze trekkingen vinden plaats op woensdag en zaterdag avond. Deze gegevens kopieer ik dan naar mijn lottobladen, als eindresultaat dat ik zelf niets meer moet doen, enkel maar 1 maal mijn eigen nummers inbrengen. Het gaat hier niet enkel om de getrokken getallen, maar ook om de winst verdeling. Ik heb ondertussen al een ander exemplaar gemaakt, waar ook met behulp van een andere persoon de 5+ is in orde gebracht. Dit exemplaar maakt het mischien wat eenvoudiger. In het blad gegevens Lotto staat nog wat uitleg van wat mijn bedoeling is. Hopelijk kan je met deze uitleg er wat beter aan uit. IN ELK GEVAL BEDANKT, Mr Magoo