Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Code Lotto  (gelezen 51528 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Code Lotto
« Gepost op: 05 juni 2019, 08:42:50 »
Beste oplossers,

Ik heb een Excel file om de Lotto nummers te checken, ik heb dat ooit van iemand hier op het forum mogen gebruiken.

Het werkt, ja natuurlijk, maar ik lees hier met de regelmaat dat in een macro het woord "select" overbodig is,
maar als ik dat weglaat in de code werkt het niet meer, is het aan mij (ben geen specialist) of moet het hier wel gebruikt worden?

Sub Lottoinvullen()
   
    Sheets("Blad1").Select
    Range("K1").Select
    ActiveSheet.Paste
    Selection.TextToColumns Destination:=Range("K1"), Other:=True, OtherChar:=Chr(160)
    Sheets("Controle LOTTO.").Select
End Sub

Ik stuur een leeg formulier mee, het linker Lotto symb. is om naar de site te gaan, daar de cijfers te kopiëren en het rechter symb. is om de cijfers te plakken.

Met dank bij voorbaat,

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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code Lotto
« Reactie #1 Gepost op: 05 juni 2019, 09:49:59 »
Hallo JeanPierre,

Citaat
ik lees hier met de regelmaat dat in een macro het woord "select" overbodig is
Neem dat vooral niet al te letterlijk. Als we in die zin nog ergens het woord 'meestal' toevoegen klopt die uitspraak wel helemaal.

Je kan bijvoorbeeld wel
Range("A1").Select
Selection.Copy
vervangen door
Range("A1").Copy
maar
Range("A2").Select
ActiveSheet.Paste
NIET door
Range("A2").Paste

"Select" helemaal vermijden kan dan weer wel met bv.
Range("A1").Copy Range("A2")

Alleen, jij zit hier met een speciale situatie waarbij je niets hebt aan die laatste methode. Je gaat namelijk op een externe bron iets manueel selecteren om het vervolgens met vba in je werkboek te plakken. Dan vrees ik dat je daarvoor aan "Select" zal vastzitten.
Als eerste regel in sub Lottoinvullen() kan je wel nog zetten "Application.ScreenUpdating = False"
Mogelijk staat er ook nog wat overbodige code of formules, maar dat zal vooral afhangen van wat je precies selecteert op de website.
Zo zie ik bijvoorbeeld dat je in K1 plakt maar er staan ook een heleboel gegevens in kolommen A tot G, dus daar kan ik (voorlopig) weinig zinnigs over zeggen.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Code Lotto
« Reactie #2 Gepost op: 05 juni 2019, 10:00:50 »
Hey Pitufo,

Bedankt voor je reactie, ja dat formuliertje heeft al wel wat aanpassingen ondergaan, want vroeger ging het vrij gemakkelijk tot de Lotto de site ging aanpassen
en toen kreeg ik het niet meer voor elkaar en heeft, dacht ik, Carlo een andere code gemaakt waar het wel mee werkte.

Dus eigenlijk denk ik dat ik best zo zal laten, of misschien toch wat spelen met uw voor stellen...…

Toch bedankt voor de moeite,

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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code Lotto
« Reactie #3 Gepost op: 05 juni 2019, 10:16:10 »
Wel, JeanPierre, als je me heel specifiek weet te vertellen wat je op de website selecteert, eventueel met een PrintScreen, dan komen we waarschijnlijk wel nog een stukje verder. Aan jou de keuze!

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Code Lotto
« Reactie #4 Gepost op: 05 juni 2019, 10:33:30 »
Zoals ik reeds vermeldde, de linker knop gaat naar de site waar ik de cijfers kopieer, zoals voorbeeld,

dan met de rechterknop plakken.

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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code Lotto
« Reactie #5 Gepost op: 05 juni 2019, 12:15:49 »
Haha, dus enkel de nummers, en niet de winstverdeling.
Zoals ik het dan zie gebeurt er met alle info op Blad1 in de kolommen A tot G niets meer (behalve rij1).
Je plakt in K1, in A1 staat =K1, en op ander blad staat =SOM(Blad1!A1), da's een redelijke omweg.

Mijn voorstel ? Blad1 gewoon afschaffen, en ergens een range op blad Lotto gebruiken voor de duur van de uitvoering van de macro. Die laatste formules mogen/moeten dan ook weg.
Mocht het voor mezelf zijn, ik zou het ongeveer doen als in bijlage.

Groeten,
pitufo
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Code Lotto
« Reactie #6 Gepost op: 05 juni 2019, 12:33:54 »
Hi Pitufo,

Mooi, maar jawel in de onderste kolom wordt wel de winst weergegeven en nu niet meer...… :-[

Tog bedankt je moet er niet te veel latijn niet meer insteken hoor, zal het zo wel houden.

Tenzij je je natuurlijk niet kunt houden, want wie ben ik....  0:-)

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 pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code Lotto
« Reactie #7 Gepost op: 05 juni 2019, 13:57:44 »
O maar 't is ook gewoon plezant en 'k heb een voldoende voorraad latijn...

Ik heb in de bijlage die ik eerder stuurde wat winnende getallen ingevuld en dan zie ik de winst toch te voorschijn komen (resultaat hierbij).
Natuurlijk, in K36 en verder naar onder staat de winst volgens aantal juiste getallen. Die is alleen vast voor de laagste orden en als je de overige telkens wil updaten (lijkt mij logisch, zeker bij winst  :D ) zal je ze of zelf moeten invullen of ze ook van de website halen. Maar dat gebeurde ook niet in jouw oorspronkelijke bijlage (?)

Dus ja, ik wil er gerust nog wat verder over "brainstormen", maar zal dan mogelijk niet meteen voor direct zijn (straks een serie pc-loze werkzaamheden te verrichten)
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Code Lotto
« Reactie #8 Gepost op: 05 juni 2019, 17:11:50 »
Hey Pitufo,

Sorry voor het delay, even wat boodschappen gaan met de madam en ook van de gelegenheid gebruik gemaakt
om een pintje te gaan drinken, ja wat moeten wij als gepensioneerden anders doen????  0:-) 0:-)

Maar dat ziet er zover ik het zie al goed uit he, waarvoor dank.  :thumbsup: \o/

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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Code Lotto
« Reactie #9 Gepost op: 05 juni 2019, 18:11:01 »
ik heb ook zoiets in elkaar gestoken , wel grafisch niet zo mooi....
wil je het eens proberen : vul wat nummers in , of maak een "quick pick , (daarna wel klikken op "sorteren")" , vul dan in rij 26 de getrokken nummers in , het reserve nummer en de datum van de trekking en klik op "controle van lottotrekking"....
denk dat de rest zichzelf aanwijst maar suggesties zijn altijd welkom !
Mvg,
Arnold.

ps : omdat de winst čnkel in de laagste regionen "vast" is heb ik er bewust voor gekozen om de winst niet automatisch te laten invullen , mijn programma geeft wel aan hoeveel juiste nummers er zijn...
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code Lotto
« Reactie #10 Gepost op: 05 juni 2019, 18:23:05 »
Ziezo, ik heb er nog een stukje aan toegevoegd.
Wel opletten natuurlijk met wat je op de website selecteert en waar je daarna op klikt...

De gewonnen nummers verwerken blijft zoals het was.
Als je op die lotto-pagina vervolgens op Detail klikt kom je bij de winstverdeling.
Daar de 3 kolommen selecteren zoals op de bijlage en daarna klikken op "Winst invullen" (naast de getrokken nummers) brengt de rest ook voor elkaar.

Veel plezier ermee! En vooral veel WINST  :D
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Code Lotto
« Reactie #11 Gepost op: 05 juni 2019, 18:37:22 »
Even ook reageren op de post van Montagnard...
Ben je terug overgeschakeld op de TRAGE versie i.p.v. de significant snellere die ik je onlangs heb bezorgd  ???
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Code Lotto
« Reactie #12 Gepost op: 05 juni 2019, 19:48:05 »
Hey Pitufo,

Dat ziet er echt goed uit hoor, ik ga dat direct in gebruik nemen en verder evalueren.... 8)

Heel erg bedankt voor de moeite, ;)

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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Code Lotto
« Reactie #13 Gepost op: 05 juni 2019, 19:51:55 »
@ Pitufo :
euh.....voor zover ik weet gebruik ik uw code of een deel ervan ? maar op een gegeven moment had ik hier ook code van nog iemand anders gekregen en moet ik het een en ander door elkaar gewisseld hebben....dan heeft er een lid mij erop gewezen dat als ik me gelukkig voelde met mijn eigen code (die ik dan kan "lezen") ik dit vooral moest blijven doen , omdat de snelheid in zo'n klein bestand te verwaarlozen is...
ik denk dat ik dan maar het beste van "3 werelden" in ččn programma gebruikt heb.
t'was dus zeker niet de bedoeling om Uw hulp naast mij neer te leggen , sry hiervoor  :(
Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Code Lotto
« Reactie #14 Gepost op: 06 juni 2019, 08:37:23 »
@Pitufo :
ik ben eens gaan kijken bij mijn vorige post i.v.m. mijn lotto programma : https://www.oplossing.be/excel/lotto-nummers-oplopend-sorteren/ , en ik kan nergens een "reply" van U vinden onder de naam "Pitufo" , had je daar een andere naam of mis ik hier ergens iets ? ( sry kan al eens gebeuren dat ik iets vergeet , ben er 66 )...
ik heb hier in mijn map met Excel bestanden een map "Lotto" staan en daar een bestand dat van U zou komen en als ik het goed voorheb , heb ik daar code van geďntegreerd in mijn eigen "programma"....
maar verbeter me als ik mis ben  ;)

Mvg,
Arnold.
HP ProBook 450 G3 15 inch
OS : Windows 11 Pro NLD 64bit
Intel(R) Core(TM) i5-6200U CPU @ 2.30GHz
16 GB  Vengeance 2666 MHz
KINGSTON SA400S37480G - 447,13 GB als bootdisk
WD Blue Solid state 2 TB - intern - M.2 2280 - SATA als datadisk
AV: Windows Defender
FW: Windows Firewal

 


www.combell.com