Help!

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

Hulp bij posten

Recente topics

Auteur Topic: Lotto: punt duizendtallen verwijderen  (gelezen 28536 keer)

0 leden en 1 gast bekijken dit topic.

Offline JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Lotto: punt duizendtallen verwijderen
« Gepost op: 17 november 2021, 12:16:26 »
Beste oplossers,

Ik heb ooit een Lotto check form gemaakt op basis van een vroegere file, Pitufo heeft mij toen een code gegeven om ook de winsten te plakken in mijn formulier.

Nu, neen ik heb de grotere pot nog niet gewonnen, maar als er een getal staat van 4 cijfers of meer voor de komma staat daar en punt tussen de duizendtallen, door dat put krijg ik ook geen exacte berekening en krijg ik waarde te zien.

Als ik nu die punten verwijder via zoeken en verwijderen dan gaat dit prima, maar toen heb ik een kleine macro opgenomen om dit te doen en loopt alles in d' honderd.

Ik heb al iets gelezen over het Amerikaans systeem, dat de punt en de komma anders gebruikt wordt, maar voor de rest vind ik niets daarover.

In mijn bestand is de linker Lotto knop om naar de site te gaan en de rechter knop om de getallen te plakken in het formulier,  en de knop Winst invullen uiteraard om de winsten te plakken, en die knop staat nu met de macro "Winst2" gelinkt waar ik het probleem mee heb.

Iemand een ideetje?

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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #1 Gepost op: 17 november 2021, 17:25:26 »
Jean-Pierre,
ik heb tijdens het maken van mijn "Budget" bestand ook problemen gehad met invoer van een bedrag in een textbox...
dat probleem is er volgens mij omdat bij de installatie van Windows gevraagd worden naar de toetsenbord instelling en meestal wordt er dan gekozen voor Belgisch toetsenbord met punt i.p.v. komma....
ik heb toen alle mogelijke aanpassingen gedaan aan het cel formaat maar niets hielp...
zie de reacties op dat probleem :
https://www.oplossing.be/excel/montagnard-budget-2021/msg242790/#msg242790
https://www.oplossing.be/excel/montagnard-budget-2021/msg242798/#msg242798
ik heb toen volgende oplossing gekregen van Albert :
Private Sub TextBox4_Change()
TextBox4 = Replace(TextBox4, ".", ",")
End Sub

Private Sub TextBox4_AfterUpdate()
TextBox4 = Format(TextBox4, "0.00")
End Sub
misschien kan je hier wat mee ?
En mocht je de oplossing vinden dan zou ik graag hebben dat je dan nog eens je bestand post mét de aanpassing/oplossing ?
ik vind het zodanig goed uitgewerkt dat ik (met Uw toestemming) het Uwe zou gebruiken i.p.v. mijn eigen bestand.

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
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 JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lotto: punt duizendtallen verwijderen
« Reactie #3 Gepost op: 18 november 2021, 08:25:17 »
Goede morgen Arnold,

Eerst en vooral om op uw vraag te antwoorden, u mag dat natuurlijk gebruiken geen probleem, voel me zelfs vereerd...  ;)

Maar met dat punt geraak ik er niet uit, de instellingen staan correct, komma voor decimaal teken en voor duizendtallen staat leeg/niets,

het probleem begint al bij het kopiëren van de getallen omdat daar al een punt staat.

Maar hoe komt het in Gods naam dat het manueel perfect werkt maar als je daar een macro van opneemt werkt het niet,

en ik ben ook geen held in VBA....  :-[

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: Lotto: punt duizendtallen verwijderen
« Reactie #4 Gepost op: 18 november 2021, 08:46:34 »
Jean-Pierre, als ik het goed begrijp dan is de bijlage die U geplaatst hebt een "aangepaste" vorm ?
kan je eens het origineel posten ? dan kan ik beter zien wat waar fout loopt ? indien er 'gevoelige' informatie in staat moet je die maar vervangen door dummy waarden.
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 JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lotto: punt duizendtallen verwijderen
« Reactie #5 Gepost op: 18 november 2021, 08:57:49 »
Hallo Arnold,

Normaal zou dat moet werken hoor, de macro's zitten er nog in, alleen er is een macro "winst" en "winst2" het ene is om gewoon de winst te plakken en de tweede hetzelfde maar met de macro om het punt te verwijderen.

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: Lotto: punt duizendtallen verwijderen
« Reactie #6 Gepost op: 18 november 2021, 10:31:41 »
Dag JeanPierre,

Net als Arnold stond ik eerst ook perplex over de vraag wat er precies gebeurt. Na een beetje speuren kwam ik er (denk ik) achter dat je op de lotto-website de gegevens selecteert en kopieert, en het plakken vervolgens door de macro laat doen?
Om de bedragen in de juiste notatie in je tabel te krijgen zou ik er mij met een trucje vanaf maken, want als je 'gewoon' punten door komma's vervangt kan je elders problemen krijgen (tussen haakjes: in jouw macro vervang je punten door spaties, dat komt al helemaal niet goed).

Probeer dus eens volgende. Vergeet de macro 'winst2' en wijzig die ene regel in 'winst' als volgt:
Cells(18 - i, 23) = Cells(i, 41) * 100 / 100Jawel, je leest het goed: eerst met 100 vermenigvuldigen, en dan door 100 delen.

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: Lotto: punt duizendtallen verwijderen
« Reactie #7 Gepost op: 18 november 2021, 10:55:08 »
Hey Molly,

Ja ik vond het eigenlijk niet noodzakelijk om te vermelden dat je de getallen op de site wel moet kopiëren,
maar soit je hebt mij/ons uit de brand geholpen want het werkt.

Ik dank je van harte voor de 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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #8 Gepost op: 18 november 2021, 10:58:38 »
Jean-Pierre , wil je nu eens het goede bestand posten als bijlage ?
@Molly : ik had idd ook al gezien dat de punten werden vervangen door spaties maar zag niet direct een link , vandaar ook mijn vraag naar JP toe voor het originele bestand.
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 JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lotto: punt duizendtallen verwijderen
« Reactie #9 Gepost op: 18 november 2021, 11:11:13 »
Beste Arnold,

Dat was een origineel bestand, waar ik alleen mijn lottogetallen had verwijderd en er andere in heb gegeven.

Maar ik heb het bestand zelf nog eens gedownload, getest en aangepast met de uitkomst van Molly, en het werkt bij mij perfect.

Ik post hier dan nogmaals mijn gedownloade en aangepaste versie.

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: Lotto: punt duizendtallen verwijderen
« Reactie #10 Gepost op: 18 november 2021, 13:47:01 »
Dankuwel Jean-Pierre !
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 JeanPierre

  • Oplosser
  • ****
  • Berichten: 800
  • Geslacht: Man
  • Je bent nooit te oud om te leren!
Re: Lotto: punt duizendtallen verwijderen
« Reactie #11 Gepost op: 18 november 2021, 14:21:49 »
Graag gedaan Arnold, blij dat ik ook eens iets terug kon doen.  ;)

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: Lotto: punt duizendtallen verwijderen
« Reactie #12 Gepost op: 18 november 2021, 16:12:48 »
JeanPierre, Arnold,

Ik heb nog een uitdaging voor jullie, en die heet "zoek de fout"  ???

In de laatste bijlage staan 3 rijen ingevuld bij 'Persoonlijke cijfers".
Zet er eens een rij bij met de getallen 15-19-20-22-27-28 en check de winst.

Gevonden?
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: Lotto: punt duizendtallen verwijderen
« Reactie #13 Gepost op: 18 november 2021, 21:52:46 »
Mogelijk:
 
in D15
=AANTAL.ALS(O8:O21;5)-D17moet zijn:
=AANTAL.ALS(O8:O21;5)-D16
Groeten,

:) 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 Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
  • To Windows or not to Windows , that's the question
Re: Lotto: punt duizendtallen verwijderen
« Reactie #14 Gepost op: 19 november 2021, 07:52:54 »
Goedemorgen...
gisterennamiddag met een karwei bezig geweest , nogal veel ladder op en af en zat er gisteravond beetje door , geen goesting meer om te kijken...
ondertussen heeft SoftAid blijkbaar al de fout gevonden ?
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