uitbetaling prijzengeld

[plongske]

Luc,
Aan de formules van de voorwaardelijke opmaak heb ik niet geraakt.
Ik meen mij te herinneren dat deze vroeger wel werkten.
Wat die macro's betreft ben ik wel niet zo goed op de hoogte.
Het is inderdaad mogelijk om de werkbladen te beveiligen en toe te laten om bepaalde kolommen te beveiligen het zullen wel meer kolommen moeten zijn daar de series ook moeten kunnen ingevuld worden.
Ik zal alles even bekijken maar heb straks nog avondles.

 

[plongske]

Luc
De voorwaardelijke opmaak van de series is terug in orde.
Volgens mij werkte de macro om het blad leeg te maken nog niet goed.Dit heb ik ook aangepast.
Ik zou de beveiligingen niet weg doen. Deze zijn erbij gezet speciaal omdat er geen cellen waar formules in staan zouden kunnen gewijzigd worden.
Het is natuurlijk een beetje ongemakkelijk zolang het programma nog niet volledig op punt staat en er nog wijzigingen moeten gebeuren na het uitvoeren van een macro.
Misschien zou het interessant zijn als bij het afsluiten van het bestand en of het uitvoeren van een macro het ook telkens gesaved wordt( wat nu al automatisch gebeurd) maar dan met datum en eventueel de tijd erbij.
Je hebt dan een origineel bestand en telkens een backup bestand.
Helaas heb ik daar weinig kennis van, ik was al blij dat het lukte om de macro voor het blad leeg te maken kon oplossen.
Het beste zal waarschijnlijk een nieuwe vraagstelling worden om de Vba en macrospecialisten er op los te laten.

 

[coolsluc]

Plongske,Bedankt voor alles,het werkt naar behoren.
ps:wat betreft de beveiliging,deze ga ik voorlopig zou laten; zoals je hebt aangegeven, als de file werkt is dit geen probleem!
Nu heb de beide files eens nagekeken en ik vind het verschil niet (werking voorwaardelijke opmaak voor/na aanpassing)??
dit om te weten wat er mis was en nog iets bij te leren (kun jij mij zeggen wat je aangepast hebt).

mvg,Luc

 

[plongske]

Luc,
De eerste voorwaardelijke opmaak werkte correct.
Als je kijkt naar het vorig bestand zal je zien dat bij de 2é en 3é opmaak in de formule een foutmelding staat omdat excel niet meer wist in welke cellen die formule moesten toegepast worden.
code was.

=EN(V2>1;V2=GROOTSTE(#VERW!;2))

en

=EN(V2>1;V2=GROOTSTE(#VERW!;3))

De eerste code is

=EN(V2>1;V2=MAX($V$2:$V$201))

Dus heb ik in beiden terug het bereik ingevoerd. dus #VERW! vervangen door het bereik $V$2:$V$201
als je nog bijkomende vragen hebt laat het maar weten.

 

[coolsluc]

Plongske,bedankt voor de uitleg (ik vond het nog steeds niet)-->verkeerde file genomen,in orde nu.
ps:Zaterdag is de grote finale,ik laat wel iets weten indien er nog spoken opduiken.


mvg,Luc

 

[plongske]

Luc,
Succes met de finale.
Het is inderdaad te hopen dat er geen spoken meer ronddwalen.
Je mag altijd roepen mochten er nog problemen opduiken.
Hou toch een origineel bestand achter de hand en sla het bestand tijdens het tornooi regelmatig eens op telkens met een andere naam.
De macro's worden gesaved in het bestand dat open staat. als er iemand toevallig op de knop leegmaken blad drukt ben je al de reeds ingevulde gegevens kwijt.

 

[coolsluc]

plongske:misschien is er nog een mogelijkheid (ken er niet veel van)zou het niet mogelijk zijn om in de macro iets in te bouwen??
vb:er wordt op de knop (BLAD LEEGMAKEN) gedrukt-->een vraag verschijnt:BEN JE ZEKER-->ZO JA,BLAD WORD GELEDIGD.

ps:weet niet of dit mogelijk is??


mvg,Luc

 

[plongske]

Luc,
dit zal wel mogelijk zijn maar niet met macro denk ik het zal via vba moeten gebeuren.
helaas ben ik niet de man om je daarbij te helpen

 

[coolsluc]

Plongske;Ik ga vandaag de file grondig uittesten en misschien later een nieuwe vraag stellen ivm de macro
ps:bedankt voor alle hulp en misschien tot later.


mvg,Luc

 

[coolsluc]

plongske:nog enkele spoken denk ik.
1)bekijk de uitbetaling van het klassement eens??
2)tevens de uitbetaling van de serie's klopt ook niet,denk ik,na de laatste prijs gaat deze terug omhoog,is het mogelijk om deze op nul te laten staan??
3)ik denk dat er een fout zit in de voorwaardelijke opmaak van de serie's??-->bij de kolom K en L staat in de opmaak ook de formule idem aan kolom J?,
4)De prijzen in het klassement lopen verder ook als er geen nodig zijn??
kun jij er eens na kijken A.U.B.
ps:ikheb de formule van de opmaak van de serie's aangepast maar als ik deze kopieer/doortrek veranderen deze steeds terug,wat doe ik mis????


mvg,Luc

Bekijk bijlage MET MACRO KNOPPEN-fout in formule 2.xls

 

[plongske]

Luc,
Ik heb die spoken aangepakt.
Deze zaten terug in de formules voor het beperken van de tabellen.
Wat de voorwaardelijke opmaak betreft van de series komt dit doordat er geen 2e plaats is wel een gedeelde eerste plaats.

 

[coolsluc]

Plongske, Bedankt voor de snelle reactie (ik heb niet naar de juiste formules gekeken)moet nog veel leren!!
ps:ga nog een en ander uittesten, hopelijk moet ik u niet meer lastig vallen (word stilaan verlegen).
Zaterdag een nieuwe finale-->MIJN WELGEMEENDE DANK VOOR ALLES en misschien tot later.


mvg,Luc

 

[plongske]

Luc,
Je moet niet verlegen worden,de meeste fouten komen toch van mij.Parijs en Rome zijn ook niet in 1 dag gebouwd.
Soms is het moeilijk om de direct de juiste formule te vinden.Zelf ben ik ook nog maar een jaartje vertrouwd met Excel en moet zelf nog veel leren.Al doende leert men.
Laat maar weten als er nog fouten tevoorschijn komen. dan zoeken we een oplossing.

 

[coolsluc]

Plongske,het siert u dat u de fouten aan u eigen toewijst (dit is zeker niet het geval)volgens mijn beperkte kennis heb jij hier wonderen verricht.
ps:zonder jou hulp had ik helemaal niet het beoogde doel bereikt waarvoor nogmaals mijn oprechte dank.
Ik heb nog wat verder getest en als ik de prijzen van het klassement bekijk heeft de laatste in de rij een andere formule??Ik heb nog eens nagekeken wanneer de fout verschijnt-->vanaf tafel 20 zonder sponsergeld??
ps:Als ik sponsergeld invul treed de fout op bij een ander aantal tafels (van deze formules begrijp ik echt niets SORRY)
ook de prijzen van de series komen niet overeen met de prijzen uit de sheet uitbetaling?
Wil jij er nog eens naar kijken A.U.B.(dit is voor mij te hoog gegrepen).

Bekijk bijlage kaarten noeveren finale.xls

mvg,Luc

 

[coolsluc]

Plongske,Ik heb een fout ontdekt in de uitbetaling.
bij het optellen van de prijzen per tafel kom ik tot de vaststelling dat vanaf tafel 12 er steeds 1€ te veel word uitbetaald?
ps:1)bij de uitbetaling van het klassement lopen de prijzen steeds met 5€ per tafel op.
2)bij de uitbetaling van de potten gaan de prijzen steeds met 4€ omhoog.
3)bij de uitbetaling van de series kan ik er geen lijn in trekken bv:2€,3€.4€.5€.6€.7€.8€.8€.9€.10€.11€.12€.13€.

Misschien zit daar een fout,kun jij er eens naar kijken A.U.B.


mvg,Luc

 

[plongske]

Luc,
Sorry voor de late reactie. er worden geen mails verstuurt als je nog aanpassingen doet in een reactie.De vorige reactie had ik gelezen maar daar stonden nog geen bijkomende problemen bij.
Wat de sponsoring betreft dit moet ik opnieuw uitpluizen.
Wat je vragen betreft uit #95 houden die ook verband met sponsorgeld?
Kan je even het bestandje sturen waar je de cellen een kleurtje geeft die fout lopen en eventueel wat uitleg.Want ik kan effen niet meer volgen.
Ik vind nergens terug waar die euro teveel betaald wordt vanf ronde 12.
Ik zie nergens waar de prijzen in per ronde (potprijzen) met 4€ oplopen
zie ook niet waar de prijzen in het klassement met 5€ oplopen.
Helaas ik een druk weekend voor de boeg en zal pas zondag in de late namiddag kunnen verder werken.

 

[VenA]

Als reactie op #87 twee mogelijkheden:
Alleen met een msgbox:

Sub leegmaken()
If MsgBox("Weet u het zeker?", vbYesNoCancel) = 6 Then
    With ActiveSheet
        .Unprotect
        .Range("C2:G201,J2:L201,AD1:AD2").ClearContents
        .Rows("34:201").EntireRow.Hidden = True
        .Protect
    End With
End If
End Sub

Of nog een stapje verder met een wachtwoord waarin "ww" het wachtwoord is.

Sub leegmaken1()
If MsgBox("Weet u het zeker?", vbYesNoCancel) = 6 Then
    If InputBox("voer wachtwoord in:") <> "ww" Then
        MsgBox "het wachtwoord is onjuist", vbCritical
        Exit Sub
    Else
        With ActiveSheet
            .Unprotect
            .Range("C2:G201,J2:L201,AD1:AD2").ClearContents
            .Rows("34:201").EntireRow.Hidden = True
            .Protect
        End With
    End If
End If
End Sub

Een kleine tip: Als je met macro's werkt is het handiger dat je deze een logische naam geeft.

Jouw laatste vraag laat ik graag aan @plongske over.

 

[coolsluc]

Plongske,hulp is enkel nodig als jou dit uitkomt (is al moeilijk genoeg)Ik kom waarschijnlijk onduidelijk over SORRY.
Als ik de prijzen optel (klassement,potten en series) in sheet prijskamp kom ik tot deze sommen
De prijzen heb ik uit de sheet uitbetalen kolomen W,X,Y 53 tot 103->verschil tussen de twee is 1€ vanaf 12 tafels.
ps:inleg bij 12 tafels = 120€,als je de uitbetaling kontroleert is dit 121€ (zie bijlage)de gele cellen geven tesamen 121€ aan
maar als je de series verandert naar meer gelijke score worden er 6 prijzen uitbetaald samen 11€ I.P.V. 10€ waardoor er steeds 1€ teveel word uitbetaald.
Bekijk bijlage kaarten.xls

als je 50 tafels invult krijg je een foutmelding in de uitbetaling (16de prijs) van het klassement en ook de prijzen van de series komen niet overeen met deze in de sheet uitbetalen.
ps:als je het vergelijkt met de tabel in sheet uitbetalen komen deze niet overeen.

Bekijk bijlage kaarten noeveren finale2.xls

indien onduidelijk vraag maar


mvg,Luc

 

[coolsluc]

VenA, bedankt voor de oplossing maar hoe moet ik dit aan de macro toevoegen??
ps:wat is msgbox?? (ken hier niet zo veel van) deze zonder paswoord is voldoende voor mij

mvg,Luc

 

[plongske]

Luc,
De fout zat wederom in de verborgen kolommen bij het beperken van de tabellen.Heb nogmaals de formules aangepast.
Hopelijk is het spook nu weg. Ik heb in cel I2 (van tabblad prijskamp),nu een som formule geplaatst ter controle van de uitbetaalde prijzengeld.
Deze kan later verwijdert worden éénmaal alles goed werkt.