Jaarplanner inkomsten & uitgaven nieuw jaar

[bartvt78]

Hey @cow18 , ik verduidelijk even mijn opzet ivm budget:
Bij het invullen van een rij vul je in kolom K in welk budget je voor ogen hebt voor die aankoop. Kolom M maakt met een formule de totalen per categorie per maand. Die moet je dus niet zelf invullen. Zo ook kolom N, waar dan het totaal gespendeerde bedrag staat voor de huidige maand. Dit heeft betrekking op de effectief gespendeerde bedragen van kolom L. Kolom O gaat zien wat het totale budget was van de vorige periode. Dit kan van een maand geleden zijn, of bv iets dat maar elk kwartaal moet betaald worden, dan gaat die kolom het budget van vorig kwartaal weergeven. Maar in deze file is enkel nog maar de maand November ingegeven, dus dat is momenteel nog 0. Kolom P geeft het effectief gespendeerde bedrag van de vorige periode weer, om te zien of je zo wat in lijn ligt met voorgaande periode. Van de nu grijze vakken moet je dus enkel maar in kolom K zetten wat je budget is voor die specifieke regel/uitgave. Al de rest is rekenwerk, maar wel belangrijk om trends te zien volgens mij. Ik zie ook dat jij nog een extra kolom Portefeuille hebt toegevoegd. Wat bedoel je daarmee? Ik ga in mijn bedje kruipen, eventuele reacties zie ik morgen rond de middag dan wel verschijnen. Nog een prettig einde van het weekend gewenst.

 

[cow18]

het is jouw project, dus laat ik je maar verder doen, je ziet straks wel waar het schip strandt en waar je zal moeten bijsturen. Ik had het al gezegd, eigenlijk moet je deze tabel vrij saai houden, enkel invoer en de gegevens zo klaar zetten zodat je ze straks verderop goed kunt bewerken. Later kan je dan uit die gegevens terugkoppelen naar bepaalde kolommen zodat je dan kan aangeven dat je al x% van je budget voor die maand opgebruikt hebt. Maar dat zou ik voorlopig in je achterhoofd houden.

Je zal vermoedelijk nog tig keer van layout veranderen, dus kolommen toevoegen of weglaten en dan zou je telkens je macros moeten aanpassen. Als je de kolomnamen in VBA gebruikt, dan ben je van dat gerommel af.

Je eerste kolom is "maand-jaar" en daarvan had ik al gezegd dat ik die liever anders zag, bon, ik heb maar een nieuwe kolom ingevoerd "Jaar-Maand" en heb de 1e rij van dat blad gevuld met 1 als die kolom moet getoond worden. Gebruik je de macro "M_Tabel_Invoer_Zichtbaar" dan worden alle kolommen die geen "1" zijn, verborgen, (=kolombreedte op 0 gezet) dus heb je er geen zichtbare last van. het is in een toggle-mode, dus 1e keer alles zichtbaar, 2e keer bepaalde kolommen verborgen.

Je had aangegeven dat je die tabel gesorteerd wilde zien op rubriek en daarna op datum. Dan ben je niets met de kolommen portefeuille en spaarrekening (kolommen S:T) en de grafiek op het volgende tabblad. Die hebben enkel zin als je eerst op de datum sorteert. Dus rond cel B2 heb je die blauwe knop, waarmee je de tabel op 2 (eventueel straks meer) manieren kunt sorteren. Afhankelijk van die sortering ga je later dus werkbare gegevens hebben in bepaalde kolommen, maar dat zie je straks wel als je met je hoofd tegen de muur loopt. ook die knop is een soort "toggle-mode"

Naar de draaitabel en -grafiek heb ik nog niet om gekeken. Eerst dit netjes op een rij krijgen. Ook je grijze kolommen heb ik niet/half bekeken. Je maakt alvast je formules vrij complex : we laten geen lege rijen toe, dus dat probleem hoef je alvast niet af te vangen en als er ontbrekende gegevens zijn, dan toon je die via voorwaardelijke opmaak.

Gestructureerde tabellen zijn heel handige dingen, als je in een bepaalde kolom (voorwaardelijke) opmaak of formules meegeeft, dan gaan die ook door naar de nieuwe rijen die je in- of toevoegt. Dat maakt wel dat je dan in die kolommen niet meer mag rommelen, dus een formule vervangen door een vaste waarde. Dus eigenlijk zou je je formules moeten beveiligen, maar in dit stadium is dat voorlopig meer hinderlijk dan handig, maar weet dus dat je van een kolom met formules af moet blijven, tenzij de verandering voor de ganse kolom geldt.

ik ga er in de 1e instantie van uit dat je handmatig je gegevens gaat invoeren. Maar als je dat via VBA zou doen, dan krijg je een voorbeeldje in module 2.

 

[bartvt78]

Hey @cow18, dat is weer heel wat. Ik denk dat we nog steeds niet helemaal met onze neuzen in dezelfde richting staan, maar dat is soms wel moeilijk om dat wat je wil echt uit te typen. En ik neem je tips zeker ter harte. Geloof me, ik ben blij met feedback en de hulp die ik krijg op dit forum, van eender wie een bijdrage levert. Ik ga me nu helemaal toeleggen op jou VBA te bestuderen, want copy/paste kan iedereen, maar ik wil het echt wel begrijpen wat er staat. En dat neemt wat tijd in beslag. Ik was vanmorgen even aan het kijken naar jou post nummer #34. Als ik daar de selectie "wekelijks" maak in de dropdown van frequentie krijg ik een VBA compileer fout, waarvan ik hier de screenshot bij voeg. En als je bij frequentie "jaarlijks" selecteer, dan komt er een pop up met vraagtekens waarvan ook een screenshot, en dat blijft in een loop zitten, waardoor je niets meer in excel kan doen. Dan moet je excel geforceerd stoppen.

 

[cow18]

tja, geleidelijk loop je nu en dan tegen de lamp; Die "???" was volgens mij een frekwentie die ik nog niet behandeld had in de functie "F_Volgende"

Hier heb ik dat toevoegen toch weer ingevoegd, maar het in te vullen bereik staat nog voorlopig in "Catgeorieen";Je ziet, geleidelijk neemt het aantal tabellen toe.
Gebruik anders regelmatig eens de werkbladstatistieken (erop klikken), louter informatief

 

[bartvt78]

Hey @cow18 en @peter59 ik heb vandaag wat tijd gehad om wat te knutselen met de VBA voorzet dat @cow18 heeft gegeven. Ik vind zelf dat ik tot een mooi resultaat ben gekomen. Echter nog 2 dingen die niet zijn zoals ik zou willen, nl in het tabblad "categorieën: Als je eerst de richting ingeeft, sorteert de VBA dit direct, zodat je de details niet op de onderste lijn kan toevoegen. Dan moet je gaan zoeken in de lijst waar de VBA jou meest recente lijn heeft gesorteerd. Kan de sorteren niet plaatsvinden nadat je een ENTER hebt gegeven na het invullen van de details?
In het tabblad "Invoer Tabel": Bij het uitvoeren van de macro onder de knop "Manuele Rij Toevoegen", werkt dit perfect, maar de kolommen M,N,O,P kleuren grijs, en niet zo blauw wit zoals de rest van de tabel. Ik vind nergens waar ik dit kan aanpassen. Ik heb al geprobeerd om van de opmaak van goede rijen een kopie te nemen, maar dit blijkt niet te helpen. Die kolommen worden altijd als grijs toegevoegd. Dit had ik graag ook in het blauw/wit hebben gehad.

Verder @cow18 , jou voorzet om verschillende tabel rijen toe te voegen met de begin en einddatum, en de dag vind ik zeker ook interessant, maar dat moet ik nog toevoegen. Bij mij duurt VBA net iets langer dan bij jou vermoed ik. Maar het is een begin. Het staat iedereen vrij om opmerkingen/feedback te geven.

Wat ik ook gemerkt heb, is als je die tabel toevoegt in een power query om een grafiek te maken, dan komt telkens een beveiligingswaarschuwing dat externe gegevensverbindingen zijn uitgeschakeld. Dit vind ik ook vrij storend. Momenteel heb ik geen power query toegevoegd bij het voorbeeld bestand

 

[peter59]

Kijk eens of dit al iets is.
Van VBA heb ik helaas geen verstand.
Tevens heb je nu voor de grafiek geen power query nodig.
Stoei er maar eens mee.
Ook is de kleurstelling van de tabelrijen aangepast.

 

[bartvt78]

Goedemorgen,
Hartelijk dank voor het oplossen van de grijze cellen @peter59.

Wat ik nog heb gedaan is een apart invoer kader gemaakt voor éénmalige invoer en bulk invoer.
In het tabblad Categorieën vindt de sortering niet meer plaats bij het ingeven van nieuwe data, maar enkel na het gebruiken van de knop links bovenaan.

Het kader bulk invoer is nog niet werkend. Dit moet ik nog goed bestuderen.

Voor mij werkt de file nu zoals ik vind dat hij moet werken. In het tabblad Uitvoer Tabel is wel data, maar geen grafiek, want ik weet nog niet goed waar deze eventueel te plaatsen, want bij toenemende data wordt de tabel groter. En je weet niet op voorhand hoe groot de tabel gaat zijn op het einde van de maand.

 

[bartvt78]

Goede avond collega forumleden. Ik ben ondertussen aan een eindresultaat gekomen. De bulk invoer werkt nu ook, maar er zitten nog wat bugs in, en AI kan ze er niet uit halen. Als je de file opdoet, en het eerste wat je doet is bulk invoer, moet je 2 keer klikken op de button vooraleer de data in de tabel komt. Verder is de selectie "2de maandag van de maand ook niet correct, maar wederop laat AI me in de steek.
Misschien zijn er VBA experten zoals @cow18 die hier een blik wil op werpen. Verder wil ik de selectie kunnen uitbreiden waarbij je echt kan kiezen uit elke specifieke dag van de week per week/maand/jaar. Maar dit is ook te complex voor chatGPT blijkbaar.
Kortom, het werkt voor 95% vind ik zelf, maar de resterende 5% kan ik niet waarmaken, dat gaat mijn petje te boven. Als dit nog kan geschreven worden in VBA hebben vele forumleden een goede budget tool, want ik zie dat dit topic gretig gelezen wordt door collega forumleden. Wie helpt het laatste stukje waar te maken?

 

[AHulpje]

Bulkinvoer werkt bij mij met één klik.
Functie voor tweede maandag van de maand:

Function TweedeMaandag(ByVal jaar As Integer, ByVal maand As Integer) As Date
    Dim EersteVanDeMaand As Date
    Dim dagen As Integer

    EersteVanDeMaand = DateSerial(jaar, maand, 1)

    ' aantal dagen vanaf de 1e tot de eerste maandag (0 als de 1e een maandag is)
    dagen = (vbMonday - Weekday(EersteVanDeMaand, vbSunday) + 7) Mod 7

    ' tweede maandag = eerste maandag + 7 dagen
    TweedeMaandag = EersteVanDeMaand + dagen + 7
End Function

Voor het kiezen van een specifieke dag kun je een kalender gebruiken, @snb heeft een mooie compacte kalender gemaakt: Kalender

 

[AHulpje]

Of kijk hier eens naar:

 

[cow18]

Wat heb je AI nodig als de formule voor VBA letterlijk in vorige file stond, AI maakt mensen dom en lui !!!!
Ik schrik als ik je VBA lees, maar ja, wie ben ik ... .

Je moet gewoon eerst de boel even uitschrijven op een excel-blad zodat je uiteindelijk de formule in J2 bekomt en dan de vertaalslag. Dus je begint van links naar rechts en je komt er van zelf.

 

[bartvt78]

Hey @AHulpje , dank voor je bijdrage. @cow18 ik ben het totaal oneens met jou stelling dat AI mensen dom en lui maken. Ik leer adhv en met AI. Ik ben uren zoet geweest met de files. En ik geef grif toe dat ik AI gebruik, want mijn VBA kennis is beduidend veel minder dan jou VBA kennis. Ik heb altijd duidelijk gecommuniceerd dat ik AI gebruik als hulp. Dit gezegd zijnde, heb ik het bestand nog wat kunnen verbeteren. Ik heb ook een datum pop up gezet op de verschillende datum dagen om de data selectie te maken, zowel voor de éénmalige als de bulk invoer. Ik heb ook de eerste file nog wat verbeterd, voor diegene die deze liever gebruiken. Hier heb ik ook een poging gedaan om de datum pop up te programmeren in VBA, maar dit is me niet gelukt. Misschien kan iemand anders dit nog toevoegen? Dit moet dan bij elke datum selectie mogelijkheid in elke tabel van elke maand. De code heb ik terug gedelete uit de file, omdat het niet werkte. De form heb ik wel behouden, en die kan dan eventueel gebruikt worden.
Beheer Data
Ik gebruik beide files nu naast elkaar, omdat ik in elke file wel voordelen zie. Het kan zijn dat ik op termijn enkel de file met de tabel ga gebruiken, maar dat moet ik nog beslissen.
Zoals altijd is feedback welkom, en mensen die de code nog kunnen verbeteren ergens zijn ook altijd welkom. Ik zie dat dit topic 6K views heeft, dus ik vermoed dat velen een file zoals deze willen gebruiken, of toch interesse hebben in dit topic.
Voor iedereen een prettige avond, en ik veronderstel dat velen hiervan gebruik kunnen/willen maken.

 

[cow18]

 Ik zie dat dit topic 6K views heeft, dus ik vermoed dat velen een file zoals deze willen gebruiken, of toch interesse hebben in dit topic.

6K wil niets zeggen, kijk vooral hoe vaak ieder bestand werd gedownload. Ik zie voorlopig niet dat dat al vaker dan 5 keer gebeurde. Dus zo spectaculair is het voorlopig niet. Die 6K, dat zal wel Google et AI zijn die hun model slimmer maken met onze bijdrages. Kijk anders eens wie er allemaal online is op een bepaald ogenblik. Dat zijn voor het overgrote deel geen personen. Op dit eigenste ogenlik waren er 2 fysieke gekende personen aanwezig, daarnaast een aantal leden die niet ingelogd waren, maar die 2.522 gasten, ik zou durven stellen dat 99% geen fysieke personen zijn. Natuurlijk mag een moderator, mij tegenspreken en meer duiding geven bij die cijfers.



2e file
je wil blijkbaar geen raad aannemen ... .
Een tabel bevat per definitie geen lege rijen, dat is contra-productief en leidt enkel tot extra problemen bij afhandeling van je gegevens. Je file bevat nu 16 werkbladen, 51 tabellen, 9788 formules, ... voor een in de grond eenvoudig "huishoudboekje".
Ik noem dat "overkill".
Kwa macros, mijn motto is "Less is more".

Je bent nog niet zo bekend met alles, maar hou het gewoon simpel, het is dan al moeilijk genoeg. Alles data op 1 plaats en van daaruit ga je verder.
Nu moet je bijvoorbeeld maandelijks saldi van vorige maand overnemen, dat leidt op termijn op fouten omdat je bij aanpassen van formules niet altijd netjes zal doorvoeren op alle werkbladen. Begin dan maar eens te zoeken naar waar het exact fout gaat.
Vanuit die ene tabel maak je dan met een keuzemenu in een ander tabblad het "maandblad" een mooi overzicht.




"on error goto ...", dat is een gruwel voor mij. Je macro stopt met een foutboodschap zonder dat er iets gebeurt. Die error moet je netjes afvangen en handig afhandelen, niet je beleefd naar de uitgang laten begeleiden.

Filteren, sorteren, toevoegen of verwijderen van rijen in een beveiligd blad is niet zo evident zoals je dat daar voorbereidt. Daar zijn er wat meer toeters en bellen voor nodig. Het eindigt meestal met toch (via VBA of manual) de beveiliging er van te halen, de filter of sortering te doen en dan de beveiliging er terug op zetten.

 

[bartvt78]

hey @cow18 , zo bekend ben ik ook niet met zien wie online is of echt is. Ik had enkel gezien dat onder topics 6K views heeft. En ik neem zeker raad aan. De "tabel" file is opgebouwd zoals jou suggestie. Met nu alle functionaliteiten. Het heeft me wel uren gekost om dit waar te maken. En ja, ik zie ook voordelen in "het overkill huishoudboekje". Maar het "tabel" bestandje is inderdaad meer "less is more". Ik ga vanavond nog wat proberen om die datum selectie in het huishoudboekje te krijgen, maar als dat niet lukt geef ik het op. Ik ben er elke avond mee bezig geweest voor meer dan een week nu. Dan houd ik alles zoals het nu is. En ik ben @cow18 en anderen zeer dankbaar voor de waardevolle feedback en hulp, ook al verschillen we met bepaalde visies. Maar dat maakt ons ook allemaal uniek.