Optellen-totaallijst maken

[HWV]

Beste,

Graag wil ik een lijst maken die van het eerste blad de gegevens haalt en die in een totaal op het tweede blad plaatst in de bijlage een voorbeeld hoe ik het graag zou willen hebben.
Deze lijst komt regelmatig terug , dus wilde ik het graag doen in VBA zodat ik BV de gegevens in de eerste lijst in lees en dat dan bv in de twee blad de uitkomt komt te staan

Een debiteurennummer in kolom a kan verschillende keren voorkomen in de lijst, maar doormiddel van sorteren krijg ik de debiteuren wel onder elkaar maar nu wil ik dus de waarde`s van de regels bij elkaar opgeteld in het tweede blad zien

In afwachting van uw gepaste reactie

Groet HWV

 

[MJONK]

kijk eens naar de formule op tabblad 2,

volgens mij doet deze precies wat jij wilt.

som.als

 

[MJONK]

heb hem wegens tijdgebrek eventjes alleen voor kolom 1 gemaakt. de rest kun je waarschijnlijk zelf namaken.

 

[MJONK]

toch eventjes de andere kolommen ingevuld voor de duidelijkheid!

mvg,

martin

 

[HWV]

Aardig opweg

Beste ,

Bedankt voor de input.
Het zal inderdaad werken als ik de debiteuren en klantnaam al heb staan in blad twee.
Aangezien dit telkens veranderd, kan ik dit niet alvast plaatsen in blad 2.
Het werkt wel, maar alleen nog niet voor mij.

Maar misschien heb je op deze manier wel mensen inspiratie gegeven om tot een oplossing te komen

Groet HWV

 

[Warme bakkertje]

Mijn poging. Een woordje uitleg staat in het bestand

Mvg

Rudi

 

[HWV]

Mooie oplossing

Rudi,

Bedankt voor jou inbreng. ( Perfect )
In samenwerking met de formule van Martine, heb ik iets kunnen maken wat werkbaar is voor mij.

Bedankt weer voor de input.

groet HWV

 

[MJONK]

en nu is hij volledig automatisch!

wel één hulpkolommetje rechts gebruikt.

 

[HWV]

Automatisch

Beste,

Klopt hij is nu automatische.
Om altijd goed te kunnen updaten heb ik het volgende gedaan.
Ik heb twee bestanden gemaakt, gekoppeld aan elkaar.( in de zelfde map staan deze )
Bestand 1 en bestand 2 genoemd, bestand 1 wordt elke keer met nieuwe gegevens gevuld, doormiddel van een exprot uit ons systeem die ik dan opslaat onder de naam Bestand 1.
Bestand 2 gekoppeld aan bestand 1, op een zeer simpele manier door = te gebuiken.
De macro van Rudi gekoppeld aan een private Sub Workbook_Open :

Private Sub Workbook_Open()
    Columns("A:A").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("P1"), Unique:=True
    Range("P1", Range("P65536").End(xlUp)).Interior.ColorIndex = xlNone
    Range("P1", Range("Q65536").End(xlUp)).Copy
    [Totaal!A1].PasteSpecial xlPasteValues
    Application.CutCopyMode = False
End Sub

Zodat hij de gegevens automatische opdate, naar het blad totaal.

Om de gegevens makkelijk te kunnen sorteren heb ik nog de de code sorteren toegevoegd zodat als je op de eerste regel drukt hij automatich gaat sorteren.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Sorteer As String
Dim iAsort As Integer, iDsort As Integer
 
    If Not Intersect(Target, Range("A1:AZ1")) Is Nothing Then
        'bepaal hoe het bereik gesorteerd is
        For Each c In Columns(Target.Column).SpecialCells(xlCellTypeConstants)
            If c.Value <= c.Offset(1).Value Then
                iDsort = iDsort + 1
            Else
                iAsort = iAsort + 1
            End If
        Next c
            
        'vul de variabele met de juiste sorteervolgorde adhv bovenstaande uitkomst
        If iAsort <= iDsort Then
            Sorteer = xlAscending
        Else
            Sorteer = xlDescending
        End If
        
        Target.Sort Key1:=Range(Target.Address), Order1:=Sorteer, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
    End If
 
    'haal de targetcel uit de edit-mode
    Target.Offset(1).Select
 
End Sub

Deze moet wel in het blad totaal staan.

Groet HWV

 

[MJONK]

Sorry, mijn attatchment is niet goed aangevoegd, mijn vorige post was dus een beetje jammer.

Dit is hoe ik het bedacht had; zonder macro's, helaas wel een extra hulpkolom

 

[MJONK]

beste hwv,

had je hier misschien nog wat aan gehad?

Ben geïnteresseerd of dat mijn oplossing werkbaar was.

Mvg,

martin

 

[HWV]

NIet helemaal

Ik heb de formule van Rudi gebruikt. Daar zit een deel van jou formule in verwerkt.
Dat was voor mij de beste optie.
Maar als nogmaals bedankt voor jou inbreng, want zo komen we elke keer allemaal een stap verder en overtreffen we elkaar telkens weer.

Groet Henk