Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Lottowinst  (gelezen 977 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Lottowinst
« Gepost op: 14 juni 2022, 12:08:16 »
Beste Excellers,

Ze hebben bij de Lotto de E-site aangepast met het verhaal dat ik mijn Lottowinsten niet meer kan kopiëren en plakken zoals voorheen.

Ik heb in VBA al van alles geprobeerd maar dit is voor mij nog steeds veel latijn....

Met de knop Lotto boven links en rechts is er geen probleem, maar met de knop Winst invullen loopt het mis,

als ik de winsten kopieer en plak kom er niets in de cellen W9 tot W17.

Met dank bij voorbaat.

Grts,
Jean-Pierre
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Lottowinst
« Reactie #1 Gepost op: 14 juni 2022, 13:12:14 »
Jean Pierre,

kan je eens een screenprint maken van het gebied op de Lotto-website dat je kopieert.

:) SoftAid :)             
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lottowinst
« Reactie #2 Gepost op: 14 juni 2022, 13:49:21 »
Bedankt voor de reactie,

Hierbij de screenprint en ook url naar de winst.

https://www.nationale-loterij.be/onze-spelen/lotto/uitslagen-trekking/11-06-2022?

Grts,
JP
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lottowinst
« Reactie #3 Gepost op: 14 juni 2022, 16:25:08 »
Dag JeanPierre,

Met de methode die in je document wordt gehanteerd kan de minste wijziging aan de website inderdaad voor problemen zorgen.
Maar het valt hier wel heel goed mee.
Vervang in "Sub winst" in de regel
Cells(18 - i, 23) = Cells(i, 40) * 100 / 100de 40 eens door 42.
Op het eerste zicht zou dat moeten volstaan.

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lottowinst
« Reactie #4 Gepost op: 14 juni 2022, 16:42:07 »
Hoi Molly,

Dank u wel, er komt zeker iets in te staan alleen het staat verkeerd dwz de winst van 6 staat bij 1 en de winst van 1 staat bij 6.

Nu zou ik dat ook kunnen aanpassen door de formules te veranderen, maar als je een beter en sneller idee hebt.... graag.

Grs,

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lottowinst
« Reactie #5 Gepost op: 14 juni 2022, 16:54:24 »
Hallo JeanPierre,

En je kopieert wel degelijk van de website waarvan je de link had toegevoegd, en je kopieert dan de 'rechthoek' van de 6 linksboven tot de 1,25 € rechtsonder?
Heb je misschien nog een ander bestand in gebruik? Want in het bestand dat je had bijgevoegd moet dat echt wel werken. Dat zie ik zelfs zonder te proberen.
Voor de zekerheid hierbij het bestand waarin ik zelf de aanpassing heb gedaan, inclusief het resultaat.
Bekijk je het nogmaals?

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lottowinst
« Reactie #6 Gepost op: 14 juni 2022, 16:59:40 »
Beste Molly,

Ik was juist iets te laat om te zeggen dat het om één of andere opgelost is/was.

Nu moet ik wel zeggen, met dat getal 42 was ik ook al aan het goochelen maar het kwam niet goed en nu dus wel,

reuze bedankt voor de snelle oplossing....

Grts,

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lottowinst
« Reactie #7 Gepost op: 14 juni 2022, 17:03:42 »
Graag gedaan JeanPierre, en blij dat we er vlug uit zijn  :thumbsup:
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.129
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Lottowinst
« Reactie #8 Gepost op: 14 juni 2022, 19:54:05 »
Hallo JeanPierre en Molly,

JeanPierre,

Als je het gebied zoals afgebeeld op screenprint selecteert, en dan de volgende macro uitvoert, dan dien je maar een macro, één klik op "Winst invullen", en alles staat op zijn plaats.

Macro:

Sub invullen()

Application.ScreenUpdating = False
Range("AM1").Select
ActiveSheet.Paste
Range("AM1:AM6").Copy
Range("F25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
Range("M25") = Range("AM7")
For i = 1 To 9
    Cells(18 - i, 23) = Cells(24 + i, 42) * 100 / 100
Next i
Range("AM1:AP35").Clear
End Sub

zie (en probeer) de bijlage eens:

:) SoftAid :)             


Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lottowinst
« Reactie #9 Gepost op: 14 juni 2022, 22:15:57 »
Hallo Theo,
Ik ben juist eens gaan kijken op het pc-ke dat ziet er mooi en gemakkelijk uit, ware het niet dat er een klein foutje in de winsten zit met een groot verschil in bedrag...

Ik kijk morgen verder.

Slaap wel,
Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lottowinst
« Reactie #10 Gepost op: 15 juni 2022, 06:58:47 »
Goede morgen,

Dus gisten opgemerkt dat de winst op 1+ 0 was, de winst op 2+ 1,25€ en de winst op 6 was de winst van 5+.

Nu heb ik geprobeerd met het getal 24 hieronder te vervangen door 23, en blijkbaar heb ik juist gekozen, naargelang mijn uitslag....

Cells(18 - i, 23) = Cells(24 + i, 42) * 100 / 100

Grts,

Jean-Pierre
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

Offline MollyVH

  • Excel-Expert
  • Oplosser
  • *****
  • Berichten: 847
Re: Lottowinst
« Reactie #11 Gepost op: 15 juni 2022, 07:30:59 »
@ SoftAid,

Ik had mij enkel bezig gehouden met de specifieke vraag van JeanPierre. Met zijn werkwijze kon hij de spanning geleidelijk opbouwen  :), met knop 1 al te zien krijgen hoeveel punten en met knop 2 hoeveel winst het oplevert.
Maar je hebt inderdaad gelijk dat het ook met slechts één macro op te halen valt.

@ JeanPierre,

Breek er vooral je hoofd niet verder over, met de aanpassing die je hebt gedaan zit het helemaal goed. Enkel nog hopen dat de structuur op de nieuwe lotto-site een tijdje behouden blijft.

Mvg,
Molly
Windows 11 Home NLD 64bit
11th Gen Intel(R) Core(TM) i7-11700 @ 2.50GHz 2496
Aspire TC-1660
Intel(R) UHD Graphics 750 1024MB
476 GB SSD KINGSTON OM8PCP3512F-AA
1863 GB HD Seagate ST2000DM008-2FR102
Office 2021 Professional Plus NLD 64bit

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lottowinst
« Reactie #12 Gepost op: 15 juni 2022, 07:37:30 »
Goede morgen,

Dank u Molly voor de positieve reactie, en ja het is natuurlijk leuker en gemakkelijker wat SoftAid heeft voorgesteld

en ik zou maar gek zijn dit niet te aanvaarden, waarvoor nogmaals dank aan SoftAid.

En ja die structuur is al regelmatig veranderd en soms lukt mij de aanpassing redelijk en soms (zoals nu) niet....

Nogmaals dank, Molly & SoftAid,

Grts,

Jean-Pierre.
Windows 10 Pro   NLD 64bit
Intel(R) Core(TM) i7-7700 CPU @ 3.60GHz 800
PRIME Z270-P
NVIDIA GeForce GTX 1050 Ti 4095MB 1920 x 1080
NVIDIA Virtual Audio Device (Wave Extensible) (WDM)
Nr: 1 Model: Samsung SSD 850 EVO 250GB
Nr: 2 Model: WDC WD2003FZEX-00SRLA0
Nr: 3 Model: Canon TS8100 series USB Device
AV: Avast free
FW: Windows Firewal Enabled: True

 


www.combell.com