Macro voor betalingsverkeer

[wivoe]

Geachte Excel deskundigen,

In een bestand van zo'n 400 regels met betalingsverkeer, staan in kolom C zo'n 50 verschillende rekeningnummers, verspreid over die 400 regels. Er komen dus veel dezelfde rekeningnummers in voor.

Bij die rekeningnummers is in kolom D de tekst "Bij" of "Af" geschreven. De bedragen in, kolom E, zijn gesplitst in de kolommen F voor "Bij" en G voor "Af".

Met het 'Filter' zijn, met de hand, voor alle zelfde rekeningnummers met een "Bij" of "Af" wel alle bedragen te sommeren, maar dat is voor 50 verschillende rekeningnummers een hele klus.

Eénmalig kolommen maken met 'vaste' nu voorkomende rekeningnummers is wel te doen en met SOMPRODUKT, zijn dan wel de bedragen te berekenen, maar is minder interesant, omdat van personen/bedrijven de rekeningnummers kunnen wijzigen. Of van andere bedrijven er nieuwe rekeningnummers zijn.

Er is dan altijd kans dat er rekeningnummers met bedragen worden vergeten,
waardoor de totalen in de kolommen F en G niet kloppen.

De concrete vraag is nu, is hiervoor een Macro te maken en wie help mij op weg?

Met vriendelijke groet,

wivoe

 

[popipipo]

Via 'advanced filter' kun je alle unieke waarden uit een kolom filteren.
Die kun je elders op het blad plaatsen en daaraan kun je dan het 'sumproduct' hangen.

 

[wivoe]

Hallo popipipo,

Het filteren lukt wel, alleen het automatiseren met een Macro niet.

wivoe

 

[popipipo]

Sub uniek()
    Range("A1:A250").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I1"), Unique:=True
End Sub

Even het bereik aanpassen en je bent klaar.

 

[wivoe]

Ik ga er even mee stoeien, kijken of het lukt. Bedankt voor je snelle actie.

wivoe

 

[wivoe]

Hallo popipipo,

Het eigenaardige is dat bij het werken met het geavanceerd filter,
met de optie 'Alleen unieke records' aangevinkt, toch van al die
rekeningnummers er 1 nummer tweemaal voorkomt. Wat doe ik fout!

wivoe

 

[Haije]

Draaitabel

wivoe,

als ik je verhaal lees denk ik: dat is nou echt iets voor een draaitabel!

zie voor een eenvoudig voorbeeld de bijlage...

 

[wivoe]

Haije,

Heb nog nooit met een draaitabel gewerkt, ga me er toch eens in verdiepen.

Bedankt voor je advies.

wivoe