Auteur Topic: Sommen bij de hoogste datum (gelezen 7581 keer)

Eric De Vis · « **Gepost op:** 09 december 2016, 18:46:53 »

Ik zit vast bij het maken van een som in deze tabel.
- 5 namen
- verschillende datums
- verschillende aantallen per naam en per datum
Hoe maak ik voor elke naam 1 enkele som van alle aantallen, en plaats ik die (belangrijk !) automatisch achter de hoogste datum?
Voor elk van de 5 namen krijg ik graag een enkele som, die achter de hoogste datum komt te staan.
Ter controle in mijn voorbeeldtabel: zie de laatste kolom. Het totaal van de 5 deelsommen is uiteraard gelijk aan de som van alle aantallen.

Wie kan mij de toverformule vinden voor kolom D in het voorbeeld (zie bijlage)?
Eric

plongske · « **Reactie #1 Gepost op:** 09 december 2016, 22:01:20 »

is dit wat je bedoeld?
zie gele cellen

Eric De Vis · « **Reactie #2 Gepost op:** 09 december 2016, 23:29:12 »

Plongske,
Dit is al een heel eind in de goeie richting. Het werkt perfect op voorwaarde dat de datums gesorteerd staan van oud naar nieuw. Als de datums willekeurig opgelijst staan, werkt dit niet, tenzij er eerst sortering gebeurt.
Ik moet ff checken of dit wel kan. Ik wil dit toepassen op een query-export vanuit een grotere sql-database naar Excel. En dat geeft een willekeurig geordende lijst.

In de bijlage heb ik twee data veranderd (blauw gemarkeerd). Zonder dat de som verspringt naar de hoogste datum, de vet omrande cel. Helaas.
Het blijft dus nodig om dat sorteren in Excel te herhalen, telkens nadat ik de query 'vernieuwd' heb. Mocht je dus de formule kennen om het totaal per naam steeds naast de hoogste datum te plaatsen, ongeacht de volgorde in de datumkolom ... dat zou het een stuk makkelijker maken.
Maar zoals gezegd, hiermee kan ik al een heel eind verder.

Bedankt,
Eric

plongske · « **Reactie #3 Gepost op:** 09 december 2016, 23:53:53 »

@SoftAid
Wat gaat er mis? Zie dat je laatste bericht hebt bewerkt

plongske · « **Reactie #4 Gepost op:** 09 december 2016, 23:57:53 »

@ Eric
ik was inderdaad in de overtuiging dat de datums oplopend waren.

SoftAid · « **Reactie #5 Gepost op:** 10 december 2016, 00:06:30 »

Hallo plongske,

niets speciaal, enkel eeen syntaxfout in de tekst verbeterd, een open [/u] waarvan het voorste haakje ontbrak, en daarmee alle tekst onderlijnde, wat niet de bedoeling was van Eric De Vis.
Zuivere moderator-job

Elke dag opnieuw, met plezier....

Groeten,

Theo

PS:Het sorteren zou je kunnen automatiseren met een Event-macro:

Code: [Selecteer]

Sub Worksheet_Change(ByVal Target As Excel.Range)

    Range("A1:D16").Select
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range("A2:A16"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Blad1").Sort
        .SetRange Range("A1:D16")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Deze code kan ingekort worden, en je kan de grootte van de Range laten bepalen door een (Cells.Row.Count)-procedure in de macro.
Just my 5 eurocents...

SoftAid

plongske · « **Reactie #6 Gepost op:** 10 december 2016, 00:14:09 »

Nogal een geluk dat we hier zo een moderator hebben die ons in goede banen leid en nog sterk is in Excel.

Eric De Vis · « **Reactie #7 Gepost op:** 10 december 2016, 00:21:06 »

Yep, geweldig, dit forum !!! Djw, djw, djw (diepe buiging).

Ik heb de eerste suggestie van plongske ff overgenomen naar het bestand waarmee ik aan 't sukkelen was ... TOP !!
Meteen het gewenste resultaat.
Dat sorteerprobleem neem ik er dan maar bij.
Aan een macro waag ik mij niet, da's me nog teveel excelleesiaans.

Alvast bedankt he,
Eric.

plongske · « **Reactie #8 Gepost op:** 10 december 2016, 00:35:37 »

Waarom zou je je niet wagen aan de macro's? het komt uw gebruik ten goede. Hier zijn er wel genoeg vrijwilligers die je kunnen begeleiden. Ikzelf helaas nog niet. Maar onze moderator des te meer

SoftAid · « **Reactie #9 Gepost op:** 10 december 2016, 13:50:53 »

Hallo Eric De Vis & plongske,

plongske, zoals je weet ben ik GEEN groot licht in Excel. Ik kan wel wat in VBA, maar dan nog....

Ik heb nu toch even een macro geschreven, die de gegevens in de Kolommen A:C sorteert, en rekening houdt met het aantal rijen die gebruikt zijn.
Ik heb wel geen "On_Change()" macro gebruikt, maar een "On_Click" die gekoppeld is aan een knop in het werkblad.
Het is namelijk niet plezierig als je bij elke verandering ("Change") in je werkblad een herberekening ziet uitgevoerd worden.
Je code in kolom "D" werkt voortreffelijk, daar ben ik niet aangekomen

Zie Bijlage:

Met vriendelijke groeten,

SoftAid

Eric De Vis · « **Reactie #10 Gepost op:** 10 december 2016, 14:31:34 »

Wow.
Dit werkt idd schitterend. Of tenminste: de eerste knop werkt, de tweede niet. Ik krijg de foutmelding in bijlage. Waarom?

Logische volgende vraag: hoe krijg ik dit overgezet naar het bestand waar ik het wil op toepassen?
Het zal iets meer zijn dan knippen en plakken, vermoed ik.
Om te beginnen: waar vind ik de formule of het script dat van toepassing is op het oefenbestand?

Eric.

SoftAid · « **Reactie #11 Gepost op:** 10 december 2016, 15:22:46 »

Hallo Eric,

er zat een foutje in de toewijzing van de knop "Sorteren op naam" aan de Macro. Opgelost in het bestand in Bijlage.

Als je de database in dit werkboek gaat binnen halen, let dan wel op dat je de formule in "D2" moet doortrekken tot de onderste rij van kolom" D" die gebruikt wordt. Als je wilt kunnen we dit ook automatiseren.

SoftAid

Eric De Vis · « **Reactie #12 Gepost op:** 10 december 2016, 15:35:39 »

Ik ga bijleren, ik voel het
https://www.oplossing.be/Smileys/fire/grin.gif

Ik heb ondertussen de tab "ontwikkelaars" gevonden en ingeschakeld, heb me een tutorial op youtube gevonden ... en nu maar oefenen.
Ik probeer te vatten hoe jij je macro geschreven hebt, zodat ik dat zelf naar believen kan aanpassen aan wat ik nodig heb.

Ik hou je op de hoogte.
Bedankt om me op weg te zetten!
Eric.

SoftAid · « **Reactie #13 Gepost op:** 10 december 2016, 16:46:45 »

Hallo Eric,

in het Tabblad "Ontwikkelaars" vindt je het onderdeel "Macro opnemen".
Daar kan je veel uit leren, omdat er dan een macro wordt opgenomen van de handelingen die jij doet, tot je "De macro opnemen" stopt, met "Opname Stoppen.

Daarna kan je de macro bekijken en leren begrijpen aan de hand van de handelingen die je net daarvoor hebt ingevoerd.

Er zal veel te veel data staan. Wat je wel en niet kan verwijderen, dat moet je leren, en proefondervindelijk.
Je kan ook enorm veel info vinden via Google of een andere zoekmachine, zoek dan steeds op "VBA" + een opdracht die je ziet, maar niet begrijpt. Zoals in dit topic had ik de eerste macro ook gewoon even gemaakt met de "Macro opnemen", maar de laatste versie heb ik dan weer met dat wat ik kende, en het beste uit de eerste macro gecombineerd.

Als je hulp wilt, steeds tot je dienst..

SoftAid

pitufo · « **Reactie #14 Gepost op:** 10 december 2016, 21:38:45 »

Hallo,
Met de regelmaat van een klok schrijf ik zelf ook vba-code, in principe enkel als dat de enige manier is of minstens een meerwaarde biedt. Dat leek hier ook het geval en dus zal je mij geen verkeerd woord horen zeggen over de aangereikte oplossing.
Kon het echter niet laten eens door te denken en daarom : voor wie het interesseert hierbij toch een oplossing zonder vba en zonder de noodzaak te sorteren.
Het is evenwel geen kort formuletje geworden...
Groeten,
pitufo

Help!

Menu

Hulp bij posten

Zoeken

Recente topics