Auteur Topic: Lotto nazicht 2024 (gelezen 112708 keer)

JeanPierre · « **Gepost op:** 18 augustus 2024, 09:32:39 »

Best, oplossers,

Ik heb een Excelfile waar ik mijn Lotto cijfers en winst kan nazien, dat is vorig keer op punt gezet door Molly, SoftAid en Montagnard, dat heeft altijd goed gewerkt tot vandaag. Via de blauwe Lottoknop ga ik naar de site, dan kopieer ik de getallen en de winst en plak ik via de knop "Alless invullen" alles op z'n plaaats.

Maar vandaag krijg ik een foutmelding "Typen komen niet met elkaar overeen" (zie bijlage), is er nu aan de site iets veranderd? Maar met mijn bestand is er niets gebeurd, vorige week werkte het nog.

Misschien iemand??

Met dank bij voorbaat.

Jean-Pierre.

SoftAid · « **Reactie #1 Gepost op:** 18 augustus 2024, 10:08:38 »

Hallo JeanPierre,

Er is niets verander bij Lotto, en je VBA code is nog steeds juist.

Ergens is er eens iets mis gegaan met de uitvoering van je macro, en daardoor is er een hoop "bagger" blijven staan in een reeks hulpcellen ("AM1:AP35")

Open je werkboek en klik op de knop "Open"
Selecteer de kolommen AM tot en met AP
Rechtsklik in een van de geselecteerde cellen en kies voor "Verwijderen".
Klik op de Knop "Veilig" en sla je werkboek op.

Bij het herstarten zou nu alles terug goed moeten werken.

Groeten,

SoftAid

JeanPierre · « **Reactie #2 Gepost op:** 18 augustus 2024, 10:35:27 »

Hoi SoftAid,

Al bedankt voor je reactie maar jammer genoeg wil het niet werken, nog met het voorbeeld dat ik gegeven heb, nog met m'n eigen file.
Ik had die scrap ook al zien staan en ook al verwijderd, maar telkens bij een nieuwe poging staat dat er terug....

Grts,
Jean-Pierre.

SoftAid · « **Reactie #3 Gepost op:** 18 augustus 2024, 10:54:28 »

Hallo JeanPierre,

Ergens doe je toch iets fout, volgens mij. Je moet wel degelijk de kolommen AM tot en met AP "VERWIJDEREN", niet de inhoud wisen. Er staat foute opmaak in die kolommen, en die zorgen voor de foutmelding.

Nog iets: al die Protect en Unprotect lijkt me toch overbodig in code als je een Protect-knop en een Unprotect-knop op je werkblad hebt staan. en dan staat Unprotect en protect nog eens in je "Alles Invullen" code.

Ik heb een voorbeeldje bijgesloten.

SoftAid

JeanPierre · « **Reactie #4 Gepost op:** 18 augustus 2024, 11:20:10 »

Beste SoftAid,

Ook met uw file lukt het van geen kanten ik krijg nog steed dezelfde foutmelding, iets fout doen wat je al een paar jaar doet en gebruikt lijkt me toch wat ver gezocht,
naar de site, getallen en winsten selecteren, Ctrl C, naar Excel en op de knop Alles invullen klikken.... altijd al zo gedaan.

Zou het mogelijk zijn dat Excel zelf tegen prutteld, zomaar een vraag?

Jean-Pierre

SoftAid · « **Reactie #5 Gepost op:** 18 augustus 2024, 11:41:00 »

Hallo JeanPierre,

dit is zo "basic" dat ik me niet kan voorstellen dat er iets mis is vanwege je Excel.

In bijlage wat ik selecteer op https://www.nationale-loterij.be/content/opp/nl/games/lotto/results.html/17-08-2024#tabs-39fcfb4121-item-f96ac65f4a-tab

Kan je nog eens een kopie (die van mij en die je bewerkt en opgeslagen hebt) bijvoegen?

SoftAid

JeanPierre · « **Reactie #6 Gepost op:** 18 augustus 2024, 11:56:41 »

Een kopie van u, knoppen verwijderd en opgeslagen.

JP.

SoftAid · « **Reactie #7 Gepost op:** 18 augustus 2024, 12:05:51 »

JeanPierre,

zet nog even een ' voor ActiveSheet.Unprotect :

Code: [Selecteer]

Sub invullen1()

Application.ScreenUpdating = False
          'ActiveSheet.Unprotect

anders krijg je een foutmelding 400 omdat je je Sheet wilt Unprotect-en terwijl ze al Unprotect is.

Verder werkt het bestand bij mij prima.

SoftAid

JeanPierre · « **Reactie #8 Gepost op:** 18 augustus 2024, 12:24:19 »

SoftAid,

De code die u meegaf staat toch al in mijn code... En verder denk ik dat ik met boze geesten zit, ik heb nog eens met uw bestand dat ik laatst heb doorgestuurd een poging gedaan, bij aanklikken "alles invullen" krijg ik weer de foutmelding, als ik op OK klik dan wordt alles ingegeven maar blijft het crap in de kolommen AM-AP staan.

In bijlage het voorbeeld.

JP.

SoftAid · « **Reactie #9 Gepost op:** 18 augustus 2024, 13:22:27 »

JeanPierre,

ook met deze laatste bijlage van U heb ik geen problemen.

voorbeeld: bij trekking verwijder ik een deel van de nummers, klik op "Alles invullen" en de trekking wordt weer correct ingevuld, zonder foutmeldingen.
(uitslagen staan uiteraard nog op het klembord).

Citaat van: JeanPierre op 18 augustus 2024, 12:24:19

De code die u meegaf staat toch al in mijn code...

Toch niet in deze laatste, alhoewel nu je knoppen niet meer kunnen gebruikt worden, je macro die het werkboek ook niet meer "protect". En zelfs met die:

Code: [Selecteer]

ActiveSheet.Unprotectwerkt het nog feilloos hier.

Voeg eens een printscreen toe van wat jij selecteert op Lotto.

SoftAid

JeanPierre · « **Reactie #10 Gepost op:** 18 augustus 2024, 13:32:06 »

De Lottosellectie.

JP

SoftAid · « **Reactie #11 Gepost op:** 18 augustus 2024, 13:37:02 »

Tja, dat ziet er normaal uit. zou dus moeten werken.

Wat is de foutmelding die je nu nog krijgt?

SoftAid

JeanPierre · « **Reactie #12 Gepost op:** 18 augustus 2024, 13:42:29 »

Nog steeds dezelfde van in begin, "Typen komen niet met elkaar overeen"

En zeggen dat er vorig w-end nog alles werkte.

JP

SoftAid · « **Reactie #13 Gepost op:** 18 augustus 2024, 14:31:31 »

JeanPierre,

Vervang in de code de regel:

Code: [Selecteer]

Range("AM1:AP35").Cleareens door:

Code: [Selecteer]

Columns("AM:AP").Delete Shift:=xlToLeft
en Opslaan

SoftAid

JeanPierre · « **Reactie #14 Gepost op:** 18 augustus 2024, 15:07:54 »

SoftAid, de kolommen blijven staan....

JP

Help!

Menu

Hulp bij posten

Zoeken

Recente topics