Dartcompetitie maken

[popipipo]

maar waarom houd je vast aan die opzet?

Het verschil is dat het bestandje van benni683 is uitgesplitst naar verschillende weken.
Het bestand van Ruben staat alleen wie tegen wie speelt niet uitgesplitst dus naar datum

dan links de te spelen wedstrijden komen

 

[Verwijderd lid 501906]

Ohhh wow Het laden duurt erg lang.
en mijn laptop is erg snel.

Ik heb mijn schema voor je ingevuld.

wel bij eigenschappen van het bestand blokkering opheffen aanvinken

 

[Verwijderd lid 501906]

@popipipo
Dat klopt niet
druk wel even de tweede knop
en vul een uitslag in , 1-0 in een van de velden

 

[popipipo]

Dan zal het wel aan mij liggen maar ik zie nergens een weekschema zoals beni683 in zijn bestandje (uit reactie #18) heeft staan. (kolom AtmD)
En dat was volgens mij de vraag.

 

[Verwijderd lid 501906]

Mod edit: Reactie verwijdert. Graag je onbeschofte reacties achterwege laten. Lees dit als een waarschuwing.

 

[popipipo]

Mijn bijdrage is het antwoord op de vraag

maar waarom houd je vast aan die opzet?

Een antwoord kan ook bestaan uit een reactie op iemand anders.
Dat daar nog iets niet helemaal klopt.
Dat hoeft niet te betekenen dat ik het zelf beter kan.
Heb je ook de 8758 andere antwoorden allemaal bekeken?

Bovendien werkt de knop nog te spelen wedstrijden ook niet naar behoren.
Als je geheel overnieuw begint hoeft niemand tegen Benjamin Aerts te spelen.
Dit is dus alleen een constatering en geen kritiek

Helaas is mijn kennis van VBA niet voldoende om dit te kunnen aanpassen

Sorry voor dat ik je op je tenen hebt getrapt.

 

[Verwijderd lid 501906]

Bovendien werkt de knop nog te spelen wedstrijden ook niet naar behoren.
Als je geheel overnieuw begint hoeft niemand tegen Benjamin Aerts te spelen.

klopt niet
Benjamin Aerts staat bovenaan en speelt tegen iedereen.

Maar ik heb je inmiddels geblokkerd
kan erg slecht tegen mensen die...........

 

[popipipo]

Dan begrijp ik niet precies de tabel die gemaakt wordt.

Ik kan ook slecht tegen mensen die niet tegen opbouwend commentaar kunnen.
Maar om daar iemand voor te gaan blokkeren vind ik wel heel erg.
Laten we even afwachten of benni683 je bestandje bruikbaar vind of niet.

 

[jverkerk]

Wat een flauw gedoe weer, en dan moet het jaar nog beginnen.
Geef positief commentaar en iets minder positief mag ook heus wel.
Als iemand mij de tent uit scheld blokkeer ik die ook maar is hier niet het geval, als dit het ergste is zal je in de maatschappij nog wel wat anders tegenkomen.

 

[Benni683]

Ohhh wow Het laden duurt erg lang.
en mijn laptop is erg snel.

Ik heb mijn schema voor je ingevuld.

wel bij eigenschappen van het bestand blokkering opheffen aanvinken

Hey Ruben bedankt voor de bijgewerkte excell,

Echter zou ik toch meer iets willen dat richting mijn rangschikking gaat die ik nu heb.
Als ook de matchen hoe ik het had doorgestuurd

 

[Benni683]

Dan begrijp ik niet precies de tabel die gemaakt wordt.

Ik kan ook slecht tegen mensen die niet tegen opbouwend commentaar kunnen.
Maar om daar iemand voor te gaan blokkeren vind ik wel heel erg.
Laten we even afwachten of benni683 je bestandje bruikbaar vind of niet.

Hey Popipipo..

Is idd niet wat ik bedoel eigenlijk de rangschikking is goed zoals ik eerder heb gestuurd enkel zoek ik nog iets om automatisch de wedstrijden te bepalen. Zoals de andere bijlage

 

[HSV]

Ik heb hier nog wel een leuke, maar niet voor die hele reeks zoals in jouw bestand,

 

[Benni683]

Ik heb hier nog wel een leuke, maar niet voor die hele reeks zoals in jouw bestand,

hehe ja ik zoek gewoon eigenlijk dat ik er nog 6namen kan bijvoegen en dan is mijn probleem opgelost

 

[HSV]

Voor meerdere spelers.

De gegevens in de kolommen K, L en M mag je weghalen (controle voor mij).
Je mag de code nog aanpassen naar onderstaande indien je geen beeldflikkeringen wil.

Sub hsv()
Dim sv
Application.ScreenUpdating = False
Range("e2", Cells(Rows.Count, "e").End(xlUp)).Name = "spelers"
sv = [spelers]
 Range("a2").Resize(UBound(sv)).Name = "bereikA"
 Range("c2").Resize(UBound(sv)).Name = "bereikC"
 Union(Columns(1), Columns(3)).ClearContents
   Do
     Union([bereikA], [bereikC]) = "=rand()"
     [bereikA] = Application.Index([spelers], [index(rank(bereikA,bereikA),)], 1)
     [bereikC] = Application.Index([spelers], [index(rank(bereikC,bereikC),)], 1)
   Loop While [sum(--(bereikA=bereikC))] > 0
End Sub