*

Help!

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

Hulp bij posten

Recente topics

Pagina's: 1 ... 3 4 [5] 6 7   Omlaag

Auteur Topic: Getrokken lottocijfers selecteren  (gelezen 23575 keer)

0 leden en 1 gast bekijken dit topic.

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Getrokken lottocijfers selecteren
« Reactie #60 Gepost op: 29 juli 2020, 21:14:23 »
wijwater, dat was toch voor dracula of niet ?

De macro werkt even perfect als die in #47.
Ik zie het niet, dus nog even een andere aanpassing om het duidelijker te zien
de Msgbox zou nu 24 als rijnummer, A2:P24 als sorteerbereik en P2 als sleutel moeten zeggen of anders daar al in de fout gaan
Events worden ook tijdelijk uitgezet

Code: [Selecteer]
Private Sub CommandButton1_Click()

   With Worksheets("10 euro")                    'op dit werkblad
      .Unprotect                                 'beveiliging er af
      regel = Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row)   'nummer laatst gebruikte in kolom C, met 2 als ondergrens
      MsgBox "eventjes het rijnummer vermelden : " & regel & vbLf & "sorteerbereik = " & .Range("A2:P" & regel).Address & vbLf & "sleutel = " & .Range("P2").Address
      Application.EnableEvents = False           'onnodig wegspringen naar calculate vermijden
      .Range("A2:P" & regel).Sort .Range("P2"), xlDescending, Header:=xlNo   'sorteren op de P-kolom, zonder header
      Application.EnableEvents = True
      .Protect                                   'blad weer beveiligen
   End With

End Sub
Gelogd

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Getrokken lottocijfers selecteren
« Reactie #61 Gepost op: 29 juli 2020, 21:37:22 »
Koe,


alles werkt weer tot aan de ok knop en dan weer dezelfde melding verbindingen verbroken blablabla...

Ik krijg in de MsgBow alles
24
$A$2 $P$24
sleutel $P$2
en dan ..........

You'll all know what happens whit the VBA syndrom ........
it stops

en dat wijwater zal inderdaad precies enkel maar Dracula zijn ..... hop allemaal naar Transyllvania :) :) :) :)

Mvg,
Marc
Gelogd
Mvg,
Marc

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Getrokken lottocijfers selecteren
« Reactie #62 Gepost op: 29 juli 2020, 23:03:12 »
tja, Dracula, dat was toch lang voor de 1e computer.
Wat hier gebeurt, daar komt mijn haar van recht !
't Is toch niet toevallig een Mac waarop je bezig bent, welke versie van excel draai je ?

Er is nu een extra regel in met gewoon sorteren op het huidige blad en je zou dan een msgbox "gelukt" moeten krijgen en dan pas in de fout gaan.
Zeg nu aub niet dat je niet aan die msgbox geraakt ...

Code: [Selecteer]
Private Sub CommandButton1_Click()

   With Worksheets("10 euro")                    'op dit werkblad
      .Unprotect                                 'beveiliging er af
      regel = Application.Max(2, .Cells(Rows.Count, 3).End(xlUp).Row)   'nummer laatst gebruikte in kolom C, met 2 als ondergrens
      MsgBox "eventjes het rijnummer vermelden : " & regel & vbLf & "sorteerbereik = " & .Range("A2:P" & regel).Address & vbLf & "sleutel = " & .Range("P2").Address
      Application.EnableEvents = False           'onnodig wegspringen naar calculate vermijden
      Range("A2:P24").Sort Range("P2"), xlDescending, Header:=xlNo   '---> sorteren rechtstreeks ???
      MsgBox "gelukt ???"
     
      .Range("A2:P" & regel).Sort .Range("P2"), xlDescending, Header:=xlNo   'sorteren op de P-kolom, zonder header
      Application.EnableEvents = True
      .Protect                                   'blad weer beveiligen
   End With

End Sub
Gelogd

Offline emields

  • Ervaren lid
  • ***
  • Berichten: 257
  • Geslacht: Man
  • Oplossing.be
Re: Getrokken lottocijfers selecteren
« Reactie #63 Gepost op: 30 juli 2020, 00:56:30 »
die fout kan natuurlijk gebeuren want alle cellen in kolom P bevatten natuurlijk een formule.

Citaat
Ik krijg in de MsgBow alles
24
$A$2 $P$24
sleutel $P$2
en dan ..........

zullen uw gegevens onderaan uw lijst staan.

probeer deze eens en vul het cijfer 9 in bij de laatste trekking. iedere keer volledig doen herrekenen is voor niets nodig
Gelogd

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Getrokken lottocijfers selecteren
« Reactie #64 Gepost op: 30 juli 2020, 07:31:10 »
Citaat
zullen uw gegevens onderaan uw lijst staan.
dat is een citaat van reactie 56, gisteren om 19:00, dus een beetje te lang geleden. Toen werd nog het ganse bereik A2:P412 gesorteerd, nu enkele A2:P24, dus kunnen ze niet meer naar onderaan verhuizen.

Ik wil of durf niet voorspellen wat jouw laatste bestand als resultaat zal opleveren, maar in essentie staat er daar niets nieuws in, dus ook een fiasco.
Ik vermoed dat Plainme de laatst nieuwe versie van excel zal hebben, blijkbaar krijgt hij alleen die foutmelding, en nieuwere versies zijn vaker geen vooruitgang.
Het herrekenen uitschakelen zit bij mij in die enableEvents false en true.

Hieronder 2 manieren van sorteren, "Nieuw" is zoals opgenomen met de macro-recorder en "Oud" is zoals ik het al jaren gebruik.
Probeer eerst een keer "Nieuw" en dan "Oud"
Op het eerste zicht zie ik die Key range("P2:P24") op als opvallend verschil in nieuw.
Code: [Selecteer]
Sub Nieuw()
   Application.EnableEvents = False
   Sheets("10 Euro").Unprotect
   ActiveWorkbook.Worksheets("10 Euro").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("10 Euro").Sort.SortFields.Add Key:=Range("P2:P24"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("10 Euro").Sort
      .SetRange Range("A2:P24")
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With
   Sheets("10 Euro").Protect
   Application.EnableEvents = True
End Sub

Sub Oud()
   Application.EnableEvents = False
   With Sheets("10 Euro")
      .Unprotect
      .Range("A2:P24").Sort .Range("P2"), xlDescending
      .Protect
   End With
   Application.EnableEvents = True
End Sub

Sub eventsOn()
   Application.EnableEvents = True
End Sub
Gelogd

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Getrokken lottocijfers selecteren
« Reactie #65 Gepost op: 30 juli 2020, 08:19:54 »
Hallo,

Voor wat het waard is: 'k heb er ook even naar gekeken, met name hierom:
Citaat van: cow18 op 29 juli 2020, 23:03:12
Wat hier gebeurt, daar komt mijn haar van recht !

En het mag duidelijk zijn: al van bij het begin was er op zich niets mis met de sorteercode. Het enige wat ik me tussendoor afvroeg is wat die kolom A daar staat te doen. Met of zonder die kolom diende er uiteraard gekeken worden naar aantal spelers om de sorteerrange te bepalen, en vanaf dan kan het in principe niet meer fout gaan.
De methode zoals ze met de recorder wordt geschreven of deze die wij zelf uit ons toetsenbord schudden, het moet niet eens in vraag worden gesteld. Beide doen prima hun ding (niet alleen in dit geval, maar altijd en overal). De eerste is enkel nodig vanaf een groter aantal keys, meer dan 3 als ik het goed heb.
En het calculate-event uitschakelen om te sorteren is natuurlijk een goed idee maar mag ook geen verschil maken (tussen haakjes : @plainme, die doorloopt ook een veel te grote range!)

Vermoedelijk is er dus bij TS iets aan de hand dat we vanop afstand moeilijk zullen kunnen achterhalen.
Al is er nog geen antwoord gekomen op
Citaat
't Is toch niet toevallig een Mac waarop je bezig bent, welke versie van excel draai je ?
Gelogd
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Getrokken lottocijfers selecteren
« Reactie #66 Gepost op: 30 juli 2020, 08:47:15 »
Beste Koe, Pitufo

Ik gebruik Office 2016
en neen geen Mac.....

@ Koe -> Ik krijg beide methode niet aan de praat! ik kan nu nog enkel denken dat het ergens hier het probleem zal liggen... ( instellingen ofzo)
@ Pitufo -> wat die kolom A daar doet geen idee ..... het is een bestandje dat hier eerder gepost was die ik hier heb overgenomen om te gebruiken.

Wel zelf een beetje gepimpt ... kwestie van het oog en het logische gemak ( winstberekening, aantal spelers, etc...)

@ Koe
bij routine Nieuw melding " Het subscript valt buiten bereik!
bij routine Oud melding : " Systeemfout reeks cijfers en de melding dat de verbindingen van het aangeroepen object met de cliënts zijn verbroken.

Als jullie nog buskruit staan hebben ..... fire away hoor...

Alvast bedankt


Mvg,
Marc

Gelogd
Mvg,
Marc

Offline cow18

  • Ervaren lid
  • ***
  • Berichten: 340
  • Geslacht: Man
  • Oplossing.be
Re: Getrokken lottocijfers selecteren
« Reactie #67 Gepost op: 30 juli 2020, 10:17:31 »
na deze gooi ik de handdoek in de ring, teveel wijwater.
Er moet iets pietluttigs zijn, wat we over het hoofd zien.
Zoals Pitufo aangaf, wat er staat is fundamenteel correct en het werkt bij mij en ook bij een aantal anderen.

Wat moet je doen ?
- Ga in het werkblad van "10 euro" staan
- Zet de macro-recorder aan,
- beveiliging van het blad er af
- selecteer handmatig het bereik A2:P24
- klik op sorteren en geef als sleutel de P-kolom aan
- klik op uitvoeren
- beveiliging van het blad er terug op
- macro-recorder stoppen

En nu ...
- ga naar die opgenomen macro en laat hem nog een keer lopen
Gaat hij nu in de fout ?

Post anders een keer die opgenomen macro hier.
Gelogd

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Getrokken lottocijfers selecteren
« Reactie #68 Gepost op: 30 juli 2020, 10:59:50 »
ik heb zojuist eens de Excel file die als bijlage staat bij reactie#63 van Emields geopend en bij mij werkt alles goed , Excel versie van Microsoft 365....
persoonlijk zou ik voorstellen dat TS vooreerst eens indien mogelijk Excel (of Office) volledig te verwijderen , en daarna opnieuw te installeren zodat er nergens dingen verkeerd staan ingesteld ?

https://support.realconnections.nl/hc/nl/articles/200486626-Microsoft-Office-2013-2016-of-Office-365-verwijderen

Mvg,
Arnold.
Gelogd

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Getrokken lottocijfers selecteren
« Reactie #69 Gepost op: 30 juli 2020, 11:02:56 »
Hey Koe,

Men kan wel water bij de wijn doen maar wanneer men wijn bij het water moet doen is het inderdaad teveel.

Heb gedaan zoals in je reactie en handmatig de macro opgenomen..... Guess what.....
ERROR !!!!!!! of wat had je dan gedacht

Compileerfout
Ongeldige of niet gedefinieerde verwijzing
Wat heb ik allemaal gedaan
Macro opnemen
titel gegeven " Handmate"
beveiliging van het blad gehaald
Selectie gemaakt  " A2:P24"
Aangepast sorteren aangeklikt en daar de keuze opp kolom "P" geplaatst
Beveiliging terug erop
en Macro laten uitvoeren...
Hieronder de code  van de macro
Code: [Selecteer]
Sub Handmate()
'
' Handmate Macro
'

'
    .ActiveSheet
    Range("A2:P25").Select
    Name.DisplayRightToLeft("10 Euro")...DupeUnique
    Name.DisplayRightToLeft("10 Euro")...ActiveSheet  := Range("P2:P25"), Type := _
        xlSortOnValues, SortOn := xlAscending,  := xlSortNormal
    With Name.DisplayRightToLeft("10 Euro").
        .Range ("A2:P24")
        . = xlGuess
        . = FALSE
        . = xlTopToBottom
        . = xlPinYin
        .
    End With
    . ActiveSheet := TRUE,  := TRUE, Dummy2 := TRUE
End Sub


hopelijk zie jij het

Mvg,
Marc
Gelogd
Mvg,
Marc

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Getrokken lottocijfers selecteren
« Reactie #70 Gepost op: 30 juli 2020, 11:07:52 »
@Montagnard....

Is dit geen drastische beslissing? Niet dat dit een groot probleem is hoor het verwijderen en terug installeren...
alleen ....pffffff outlook alle mailadressen weer invoeren etc.....

Nu bij geen verdere oplossingen zal ik dit sterk overwegen.
Houd je zeker op de hoogte

Mvg,
Marc
Gelogd
Mvg,
Marc

Offline Montagnard

  • Ambassadeur
  • *****
  • Berichten: 2.385
  • Geslacht: Man
Re: Getrokken lottocijfers selecteren
« Reactie #71 Gepost op: 30 juli 2020, 11:23:29 »
Citaat van: plainme op 30 juli 2020, 11:07:52
....pffffff outlook alle mailadressen weer invoeren etc.....

ah , werk je met een POP account misschien ? zoja dan moet je uw gegevens exporteren als een "pst" bestand , bij een nieuwe installatie kan je dan dit bestand opnieuw importeren , dan ben je niks kwijt , ook je adresboek niet...
https://overheid.vlaanderen.be/praktisch/digitale-werkplek/outlook/hoe-maak-je-een-back-van-je-outlook-gegevens-e-mails-ea

maar het is misschien te overwegen om over te schakelen naar IMAP , zo raak je nooit je gegevens meer kwijt....
meer uitleg : https://www2.telenet.be/nl/business/klantenservice/verschil-imap-en-pop-3/

Mvg,
Arnold.
Gelogd

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Getrokken lottocijfers selecteren
« Reactie #72 Gepost op: 30 juli 2020, 11:36:21 »
@Montagnard,

Ik werk zowel met IMAP als pop ( telenet = IMAP - MSN=POP)
Maar wanneer je de office versie verwijderd dan moet je zowel IMAP als POP terug invoeren.
Ale dat heb ik toch moeten doen bij de aanschaf van Office 2016

Nu de wereld is dit niet natuurlijk, maar toch ... onder de noemer " rompslomp " zullen we het dan maar plaatsen.  ::) ::) ::)


Mvg,
Marc
Gelogd
Mvg,
Marc

Offline pitufo

  • Ambassadeur
  • *****
  • Berichten: 1.343
  • Geslacht: Man
Re: Getrokken lottocijfers selecteren
« Reactie #73 Gepost op: 30 juli 2020, 11:46:36 »
Hallo Marc,

Even terug naar #69: is dat werkelijk exact, punten en komma's inbegrepen, hoe je macro te voorschijn komt na opname met de recorder?
Dat was even slikken toen ik dat te zien kreeg... wil je dat proefje nog eens overdoen?
Gelogd
"De computer doet wel degelijk wat je hem vraagt,
 maar NIET wat je DENKT dat je hem vraagt"

Offline plainme

  • Lid
  • *
  • Berichten: 91
  • Geslacht: Man
  • Ab uno disce omnes (leer uit één allen kennen)
Re: Getrokken lottocijfers selecteren
« Reactie #74 Gepost op: 30 juli 2020, 11:49:52 »
@Pitufo,

Ga ik zeker doen maar zal voor na 13:00' zijn... Eerst andere taken volbrengen... de innerlijke mens moet ook gesterkt worden  ;D 0:-) ;D
en is zoals beschreven uitgevoerd en dat was de code die ik terugkreeg. ik keek er ook naar met grote ogen, maar dacht zo bij mijzelf, zal wel aan het probleembestandje liggen  ::) ::)

Ik laat niet na dit hier te plaatsen.

Mvg,
Marc
Gelogd
Mvg,
Marc
Pagina's: 1 ... 3 4 [5] 6 7   Omhoog
 


www.combell.com