Maandprijs berekenen.

[MagicPc1]

Hallo Leden,

Ik heb een excel bestand om het klaverjassen bij te houden en dat werkt helemaal perfect maar............
Ik heb een tabblad waar per maand de punten worden bij gehouden en de hoogste wint.
Dit komt in tabblad maandprijs te staan.
Nu heb ik boven elke maand een knopje met macro gemaakt zodat dit in maandprijs wordt neer gezet.
Nu is mijn vraag?
Kan dit ook automatisch per week/maand?
We kaarten elke week dus als het per week gebeurt is het ook goed want het wordt toch alleen aan het eind van de maand uitgeprint.
Het zou dan ook wel handig zijn als de maand boven in ook gewijzigd wordt maar niet noodzakelijk want dat kan ik zelf wel.

Ik voeg even een voorbeeld toe. De namen zijn veranderd in cijfers.

Bekijk bijlage Temp klaverjassen.xlsx

 

[tkint]

Beste,

Het bestand in bijlage bevat geen macro. Hoe zie je dat automatisch gebeuren? Bij het openen van het bestand of bij het wijzigen van een getal op het tabblad "totaal" of .............? Het bestand bevat ook koppelingen maar de broncellen ontbreken. Is dat een koppeling naar een ander bestand?

 

[MagicPc1]

De blauwe letters boven in het tabblad totaal zijn normaal macro's.
De koppelingen gaan normaal naar een ander tabblad dat bij dit bestand niet is bij gevoegd.
Wat ik nu zoek is of er een formule is die, net als in dit voorbeeld, bij november het getal 20421 met gebruiker 700 er uit haalt.
Dus het is nu November en dat dus uit de kolom E moet halen en volgende maand uit kolom F en zo verder.
Ik hoop dat ik nu duidelijk ben.

mvg
MagicPc1

 

[sylvester-ponte]

wat moet er gebeuren bij gelijke stand? meerdere namen ?

 

[MagicPc1]

Dat probleem heb ik nog niet gehad maar het kan inderdaad gebeuren. Dan worden het 2 namen met 1 stand denk ik.

Gr
MagicPc1

 

[sylvester-ponte]

hoe kan excel zien welke maand bij welke kolom hoort?
het zou handig zijn als ergens in de kolom een maand naam of nummer staat.
staat in kolom c altijd de zelfde maand? (september in dit geval )

 

[MagicPc1]

Dan zetten we in tab Totaal in B1 toch =VANDAAG().

 

[sylvester-ponte]

welke kolom hoort dan bij VANDAAG() ?

 

[MagicPc1]

We kunnen in c1, d1, e1 enz ook de datum zetten van die kolom toch?

 

[sylvester-ponte]

ok, er staan nu de maand namen in: zie grijze cellen.

 

[MagicPc1]

Ik ga er even mee spelen.
Alvast hartelijk bedankt hier voor.
Je hoort nog van mij.

mvg
MagicPc1

 

[MagicPc1]

Kan je mij de functie =WINNAARS uit leggen want die kan ik nergens vinden.
Verder werkt het prima maar kan ik die ook ergens anders gebruiken.

mvg
MagicPc1

 

[sylvester-ponte]

als je alt F11 indrukt, kom je in de vba editor
daar zie de deze tekst:

Function Winnaars(Mnd As String, Tabel As Range, Namen As Range, Optional GeefPunten As Boolean = False)
    Dim M As Double, S As Range, Scores As Range
    Mnd = Left(Mnd, 3)
    Set Scores = Tabel.Rows(1).Cells.Find(Mnd)
    If Scores Is Nothing Then Winnaars = Mnd & " ????": Exit Function
    Set Scores = Intersect(Tabel, Scores.EntireColumn).Offset(2)
    M = WorksheetFunction.Max(Scores)
    If GeefPunten = True Then Winnaars = M: Exit Function
    For Each S In Scores
        If S = M Then
            Winnaars = Winnaars & Intersect(S.EntireRow, Namen) & Chr(10)
        End If
    Next
    If Winnaars <> "" Then Winnaars = Left(Winnaars, Len(Winnaars) - 1)
End Function

deze function kun je kopieren en later in een module plakken van jouw excel toepassing.
daar na kun je hem gebruiken als elke andere excel functie.

ps het kan ook best met de standaard excel formules.
maar je gebruikt toch al macro's. dan is zo'n udf eenvoudiger.

 

[MagicPc1]

Helemaal goed Sylvester.
Heel erg bedankt hier voor.

mvg

MagicPc1