Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Pagina 1 van 2 1 2 LaatsteLaatste
Weergeven resultaten 1 tot 20 van 21

Onderwerp: Hengelwedstrijd

  1. #1
    Junior Member
    Geregistreerd
    12 augustus 2010
    Vraag is opgelost

    Hengelwedstrijd

    Er bestaat een excel bestandje waarmee je automatisch nummer kan trekken voor bijvoorbeeld een hengelwedstrijd .
    Dus je zet alle deelnemers in de lijst en dan klik je op nummers trekken en elke deelnemer krijgt automatisch zijn plaatsnummer toegewezen.
    Iemand iets ???

  2. #2
    Mega Honourable Senior Member AlexCEL's avatar
    Geregistreerd
    3 april 2014
    Locatie
    Groningen
    Met functie ASELECTUSSEN en verborgen hulpkolom. Druk op F9 voor nieuwe lijst. Handmatig berekenen staat aan.
    Bijgevoegde bestanden Bijgevoegde bestanden
    -- een (excel) voorbeeldbestandje zegt meer dan 1000 woorden --

  3. #3
    Junior Member
    Geregistreerd
    12 augustus 2010

    hengel

    zoiets zie vb
    Bijgevoegde bestanden Bijgevoegde bestanden

  4. #4
    Mega Honourable Senior Member femke98's avatar
    Geregistreerd
    16 december 2006
    Locatie
    Almere
    Mijn man is wedstrijdvisser en heeft regelmatig wedstrijden georganiseerd waar ook de grote vissers aan meededen.
    Hij (en andere die wedstrijden organiseren) maken gewoon nummertjes, doen die in een zak en als men dan afspreekt bij de visplek of in een kantine, schud men de zak en laat men elke visser een nummertje trekken.
    Hartstikke simpel maar effectief.

    Maar goed, dat is geen antwoord op je vraag. Succes met vissen!!

  5. #5
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Deze kan achter je knop

    Code:
    Sub jec()
     Dim ar, sq, sp, j As Long
     ar = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3)
     sq = Range("B2", Range("B" & Rows.Count).End(xlUp))
     sp = Application.RandArray(UBound(sq))
       
     For j = 1 To UBound(ar)
        ar(j, 3) = sq(Application.Match(Application.Large(sp, j), sp, 0), 1)
     Next
       
     Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3) = ar
    End Sub
    Gr,
    JEC

  6. #6
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Hier ook nog een O365 formule optie

    Code:
    =INDEX(SORTEREN.OP(B2:B19;ASELECT.MATRIX(RIJEN(B2:B19)));REEKS(RIJEN(A2:A15)))
    Gr,
    JEC

  7. #7
    Junior Member
    Geregistreerd
    12 augustus 2010
    foutmelding

    Sub jec()
    Dim ar, sq, sp, j As Long
    ar = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3)
    sq = Range("B2", Range("B" & Rows.Count).End(xlUp))
    sp = Application.RandArray(UBound(sq))

    For j = 1 To UBound(ar)
    ar(j, 3) = sq(Application.Match(Application.Large(sp, j), sp, 0), 1)
    Next

    Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3) = ar
    End Sub

    regel sp=application,randarry(ubond(sq))
    Laatst aangepast door cova1 : 24 september 2022 om 17:20

  8. #8
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Welke Excel versie heb je?
    Krijg je de melding op de "randarray" regel?
    Gr,
    JEC

  9. #9
    Junior Member
    Geregistreerd
    12 augustus 2010
    office 2016

    sp = Application.RandArray(UBound(sq))

  10. #10
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Probeer dan deze eens

    Code:
    Sub jec()
     Dim ar, sq, sp, j As Long
     If Range("Z1") = Date Then Exit Sub
     ar = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3)
     sq = Range("B2", Range("B" & Rows.Count).End(xlUp))
     ReDim sp(1 To UBound(sq))
     
     Randomize
     For j = 1 To UBound(sq)
       sp(j) = Rnd
     Next
     For j = 1 To UBound(ar)
       ar(j, 3) = sq(Application.Match(Application.Large(sp, j), sp, 0), 1)
     Next
       
     Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3) = ar
     Range("Z1") = Date
    End Sub
    Laatst aangepast door JEC. : 24 september 2022 om 17:45

  11. #11
    Junior Member
    Geregistreerd
    12 augustus 2010
    Deze doet het ,
    is het mogelijk om deze slechts éénmaal daags te doen, misschien met invoeren datum in bepaalde cel?
    mvg

  12. #12
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Heb de code in de voorgaande post aangepast. Nu kun je 1x per dag runnen.
    Gr,
    JEC

  13. #13
    Junior Member
    Geregistreerd
    12 augustus 2010
    Heb systeem datum naar 26/9 gedaan , geeft aan

    COMPLILEERFOUT
    SYNTAXISFOUT

    is dit normaal ?

    grt

  14. #14
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    En als je dat niet doet?

  15. #15
    Junior Member
    Geregistreerd
    12 augustus 2010
    Ook zelfde foutmelding
    Bijgevoegde kleine afbeeldingen Bijgevoegde kleine afbeeldingen Klik op afbeelding voor grotere versie

Naam:  fout.JPG‎
Bekeken: 105
Grootte:  50,7 KB  

  16. #16
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Er staat een extra "b" achter End Sub
    Gr,
    JEC

  17. #17
    Junior Member
    Geregistreerd
    12 augustus 2010
    Nu doet deze het zonder fouten,
    kan ik nog volgende melding krijgen als ik macro voor meerdere malen gebruik,
    "plaatsen al getrokken voor vandaag"
    of iets dergelijks
    mvg

  18. #18
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Vervang de eerste regel door deze

    Code:
    If Range("Z1") = Date Then MsgBox "Plaatsen al getrokken voor vandaag", vbOKOnly: Exit Sub
    Gr,
    JEC

  19. #19
    Junior Member
    Geregistreerd
    12 augustus 2010
    Beste Jec

    Bedankt voor de moeite ,
    het is voortreffelijk,
    onze vissers zullen U dankbaar zijn.

    mvg

  20. #20
    Giga Senior JEC.'s avatar
    Geregistreerd
    27 februari 2019
    Graag gedaan, vang ze!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren