Auteur Topic: Lotto nazicht 2024 (gelezen 94894 keer)

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

Visueel lijkt het of er niets gebeurt, maar typ eerst eens iets in AM1. Dan zie je dat verdwijnen.

Maar, als je die code zo aanpast en de macro opnieuw uitvoert, werkt je werkboek dan (na kopie van Lotto)

SoftAid

JeanPierre · « **Reactie #16 Gepost op:** 18 augustus 2024, 15:44:31 »

SoftAid

Ik heb respect voor uw geduld, normaal zeggen ze dat van mij ook, maar nu begin ik toch aan de grens te komen.

Wat of welke code er ook staat de kolommen blijven staan en zelfs als ik ze verwijder en terug probeer te plakken werkt het ook niet, ja de cijfers worden er wel ingezet na OK te klikken op de foutmelding, maar de kolommen blijven staan.

Ik word er moedeloos van, ik heb Office al ge-herinstalleerd, al een systeemherstel gedaan naar vorige week, maar niets blijkt helpen, wat kan dat toch zijn?

Jean-Pierre.

SoftAid · « **Reactie #17 Gepost op:** 18 augustus 2024, 16:14:26 »

Zo rap ga je het toch niet opgeven, hé

Probeer deze code eens (zet ze apart onder je andere code en start ze van in de VB Editor):

Code: [Selecteer]

Sub invullen_SA()

Application.ScreenUpdating = False
ActiveSheet.Unprotect
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(23 + i, 42) * 100 / 100
    Next i
Columns("AM:AP").NumberFormat = "General"
Range("L25").Select
Application.ScreenUpdating = True
ActiveWorkbook.Save

End Sub

SoftAid

JeanPierre · « **Reactie #18 Gepost op:** 18 augustus 2024, 16:23:58 »

Nee, eigenlijk heb je gelijk, en weet je waarom, op één of andere manier van blijven proberen was me iets opgevallen.

De winsten werden niet correct weergegeven de 5+ en de 6 werden niet getoond, dan heb ik van alles geprobeerd en het is me nu, na een paar testen gelukt om het terug werkbaar te maken.

De code:

Code: [Selecteer]

For i = 1 To 9
    Cells(18 - i, 23) = Cells(23 + i, 42) * 100 / 100

heb ik veranderd in:

Code: [Selecteer]

For i = 1 To 9
    Cells(18 - i, 23) = Cells(26 + i, 42) * 100 / 100

En geloof het of niet maar daar was niets aan veranderd...

Dus so far so good, hartelijk voor de support en de steun en nog een prettige zondag avond. $_/-\o_$

Grts,

Jean-Pierre.

SoftAid · « **Reactie #19 Gepost op:** 18 augustus 2024, 16:55:10 »

Hallo JeanPierre,

blij als je (denkt) de oplossing (fout) gevonden te hebben, maar verklaar mij dan eens hoe het komt dat jou niet-werkende code bij mij wel werkte?

Enige verklaring die ik kan bedenken op dit ogenblik, en met de aanpassing die voor jou nu wel blijkt te werken is dat je op een andere positie begint te kopiëren op de Lotto-site.

Daarmee verschuift je data, en komen je (winst) cijfers niet meer in de juiste Rij.

Wat je gedaan hebt met de aanpassing van de code is gewoon 3 rijen lager (in kolom AP) data ophalen.

Als je oude code bij mij wel werkte, betekend dit dat jij op een andere positie in het lotto formulier begon te copiëren. Dat vermoedde ik al, daarom vroeg ik een printscreen van je selectie van je Lotto.
Blijkbaar heb je (3) meer rijen geselecteerd, en me maar een gedeelte laten zien in die printscreen.

Laat het maar horen als je opnieuw problemen ervaart.

Groeten,

SoftAid

JeanPierre · « **Reactie #20 Gepost op:** 18 augustus 2024, 17:20:25 »

Ja Theo, dat zijn de ondoorgrondelijk geheimen van het computeren....

Want ik geloof u ten volle, en ik doe al maanden of jaren dezelfde handeling om te kopieren..

Ik gebruik Edge ik weet niet welke browser gij gebruikt, maar kan het daar ook aan liggen dat de ene meer weergeeft dan de andere??

Ik ga er nu in alle geval mijn hoofd niet meer over breken en ga mij een aperitiefje nemen....

Grts en nogmaals bedankt.

Jean-Pierre.

SoftAid · « **Reactie #21 Gepost op:** 18 augustus 2024, 17:45:03 »

Hallo JeanPierre,

Het laatste uur heb ik het hier nog zitten testen met jou oude code, en dat werkt nog steeds perfect.

Als..... de lotto site veranderd is sinds vorige week, dan zou dat de oorzaak kunnen zijn. Maar Dan zou je oude code ook niet meer kunnen werken.
Ik heb in de code nog een aanpassing gemaakt, die controleert of de data op de juiste plaats staan als je ze ge-kopieerd hebt naar je Excel. Zoniet geeft hij een waarschuwing.

Code: [Selecteer]

Sub invullen_SA_2()

Columns("AL:AZ").Clear
Range("AM1").Select
ActiveSheet.Paste
Range("AM1:AM6").Copy
Range("F25").Select
Selection.PasteSpecial Paste:=xlPasteValues, Transpose:=True
   If Cells(23, 42).Value <> "Winst" Then
     MsgBox "De gegevens staan niet op de juiste plaats. Kopieer opnieuw de Lotto-data."
   Else
   Range("M25") = Range("AM7")
      For i = 1 To 9
        Cells(18 - i, 23) = Cells(23 + i, 42) * 100 / 100
      Next i
   ActiveWorkbook.Save
   End If

End Sub

doe er maar mee wat je wilt. En... santé

Groeten,

SoftAid

JeanPierre · « **Reactie #22 Gepost op:** 21 augustus 2024, 12:26:28 »

Hallo Theo even een update ter info,

Ge gaat het niet geloven hoor, maar vandaag na nog eens een testje heb ik de code weer moeten zetten zoals voorheen....

For i = 1 To 9
Cells(18 - i, 23) = Cells(26 + i, 42) * 100 / 100

Dus de 26 terug naar 23, ik weet nu toch echt niet wat er aan de hand is

, voor de rest doet mijn Pc normaal.

Grts,
Jean-Pierre.

SoftAid · « **Reactie #23 Gepost op:** 21 augustus 2024, 15:59:28 »

Hallo JeanPierre,

Ik geloof het best, ik had niets anders verwacht. En ik had het je gemeld op voorhand

Zelfs als je de code:

Code: [Selecteer]

Cells(18 - i, 23) = Cells(26 + i, 42) * 100 / 100zou gebruiken, en in het lotto-blad 2 lijntjes hoger zou selecteren (dus vanaf de bovenste regel) dan zou er weer een fout optreden met je joker getal.
Dan moet code regel:

Code: [Selecteer]

Range("M25") = Range("AM7")veranderen in:

Code: [Selecteer]

Range("M25") = Range("AM10")
Ik ben er nog steeds van overtuigd dat je bij het kopieren op de lotto-site niet precies VANAF het eerste getrokken getal begint te selecteren.

Groeten,

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics