• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Bedragen samenvoegen tot 1 bedrag met refferentiekolom

Status
Niet open voor verdere reacties.

blackdragonluuk

Gebruiker
Lid geworden
7 jan 2010
Berichten
5
Hallo mensen,

ik loop op dit moment tegen een probleem aan met excel, ik moet een omzet lijst draaien voor ongeveer 6500 debiteuren.

alleen ons ERP software is dermate beperkt dat ik dit niet meteen een jaar totaal optelt maar alleen de periodes geëxporteerd wat omzet heeft gedraaid, 0 omzet neemt hij niet mee.

dus ik heb een grote uitdaging om 6500 debiteuren een subtotaal aan toe te voegen voor het hele jaar.

hoe doe ik dit het makkelijkst? als ik met =som aan de gang ga dan pakt hij niet de juiste cel bereik meer omdat niet elke debiteur elke maand omzet draait oftewel dan krijg je dit:

debiteur 1 = 5 records = 5 maanden
debiteur 2 = 11 records = 11 maanden

dat wisselt namelijk af.

kolom a is dus referentie tabel (debiteur nummer)

bij voorbaat hartelijke dank!

zie bijlage voor voorbeeldje



.
 

Bijlagen

Laatst bewerkt:
Beste blackdragonluuk ;)

Welkom op dit forum. :D

Kan je het voorbeeldje niet hier plaatsen bij beheer bijlagen.

Want 2chared.com ziet er niet zo veilig uit met al die reclame er om heen :eek:

Groetjes danny. :thumb:
 
Beste blackdragonluuk ;)

Zie bestandje met 2 voorbeelden.

Met formule SOMPRODUCT en SOM.ALS

Groetjes Danny. :thumb:
 

Bijlagen

bedankt voor je voorbeeld!

maar kan ik dit gewoon in 1 lijn naar beneden trekken ? of moet ik voor elke debiteur(6500) de formule aanpassen?
 
Beste blackdragonluuk ;)

Zie bestandje
Als de debiteurs onder elkaar staan voor totaal.

Groetjes Danny. :thumb:
 

Bijlagen

Code:
Sub tst()
    sq = [A1].CurrentRegion.Resize(, 4)
    n = sq(2, 1)
    For j = 3 To UBound(sq)
      If sq(j, 1) <> n Then
        sq(j - 1, 4) = WorksheetFunction.Sum(Cells(n, 3).Resize(j - n))
        n = sq(j, 1)
      End If
    Next
    sq(j - 1, 4) = WorksheetFunction.Sum(Cells(n, 3).Resize(j - n))
    
    [A1].CurrentRegion.Resize(, 4) = sq
End Sub
 
Beste snb ;)

Bij de eerste debiteur telt hij de som goed

MAAR

Bij de tweede debiteur telt hij die van de eerste erbij.

Groetjes danny. :thumb:
 
bedankt voor je voorbeeld!

ben er wel wat wijzer uit alleen het gaat nog niet helemaal lekker.

de eerste 3 bedrijven pakt die prima op en telt hij netjes op.

alleen daarna is het afgelopen.. zie mijn voorbeeldje
 

Bijlagen

Beste blackdragonluuk ;)

Zie bestandje

Je moet je bereik aanpassen in de formules.

Groetjes Danny. :thumb:
 

Bijlagen

Kan je oplossen met (ja het blijft me stokpaardje) pivot table.
En je hebt gelijk van alle debiteurs het totaal bedrag.
 

Bijlagen

Laatst bewerkt:
Beste blackdragonluuk :thumb:

kan je de vraag dan op opgelost zetten, onderaan rechts.

Groetjes Danny. :thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan