• 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.

Optellen-totaallijst maken

  • Onderwerp starter Onderwerp starter HWV
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.213
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
 

Bijlagen

kijk eens naar de formule op tabblad 2,

volgens mij doet deze precies wat jij wilt.

som.als
 

Bijlagen

heb hem wegens tijdgebrek eventjes alleen voor kolom 1 gemaakt. de rest kun je waarschijnlijk zelf namaken.
 
toch eventjes de andere kolommen ingevuld voor de duidelijkheid!

mvg,

martin
 

Bijlagen

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
 
Mijn poging. Een woordje uitleg staat in het bestand

Mvg

Rudi
 

Bijlagen

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
 
en nu is hij volledig automatisch!

wel één hulpkolommetje rechts gebruikt.
 
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 :
Code:
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.
Code:
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
 
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
 

Bijlagen

beste hwv,

had je hier misschien nog wat aan gehad?

Ben geïnteresseerd of dat mijn oplossing werkbaar was.

Mvg,

martin
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan