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

Van diverse tabbladen regels bij elkaar optellen.

Status
Niet open voor verdere reacties.
M

mannschaft

Gebruiker
Lid geworden
2 mrt 2011
Berichten
26
Wij houden bij ons op het werk bij hoeveel pallets wij per dag versturen naar welke klant.
Deze dagen staan per tabblad, alleen nu zou ik graag in overzicht willen hebben, hoevaak wij naar een bepaalde klant zijn geweest afgelopen jaar en hoeveel pallets wij daar afgelopen hebben geleverd.
Ik redelijk handig met Excel maar met draaitabellen kom ik er niet uit. Of misschien is er wel een formule voor alleen ik kom er niet uit.
Is er misschien een makkelijke manier?
Ik heb er een voorbeeld bij gedaan hoe we het een beetje willen hebben.

Alvast bedankt
 

Bijlagen

Voor Office 365.

In Overzicht D2 en doorvoeren naar beneden.
PHP: 
=SOMPRODUCT((NAAR.KOLOM('10-10:11-10'!A$2:A$20)=B2)*1)

In Overzicht E2 en verder:
PHP: 
=SOMPRODUCT((NAAR.KOLOM('10-10:11-10'!A$2:A$20)=B2)*(NAAR.KOLOM('10-10:11-10'!H$2:H$20)))
 
Hallo Harry,

ik heb nu de klantnamen handmatig in het overzicht gezet, maar ik zou graag willen dat zowel de klanten als de aantal pallets, als aantal leveringen in een tabblad kan laten zien. Zonder eerst alle klanten in te hoeven tikken, aangezien wij ook voor bepaalde klanten zowel bij hun op de zaak leveren als bij de particulieren die bij hun kopen. En die adressen zijn niet van te voren bekend.
 
Dat wordt dan VBA.
Code: 
Sub hsv()
Dim sv, a, b(4), d As Object, i As Long, sh As Worksheet
Set d = CreateObject("scripting.dictionary")
  For Each sh In Sheets
    If sh.Name <> "Overzicht klanten" Then
 sv = sh.Cells(1).CurrentRegion
      For i = 1 To UBound(sv)
        a = d(sv(i, 1))
         If IsEmpty(a) Then a = b
            a(0) = sv(i, 6)
            a(1) = sv(i, 1)
            a(2) = sv(i, 4)
        If i = 1 Then a(3) = "Aantal keer geweest" Else a(3) = a(3) + 1
        If i = 1 Then a(4) = "Aantal Pallets" Else a(4) = a(4) + sv(i, 8)
       d(sv(i, 1)) = a
      Next i
   End If
   Next sh
    With Sheets("Overzicht klanten").Cells(1)
     .CurrentRegion.ClearContents
     .Resize(d.Count, 5) = Application.Index(d.items, 0)
    End With
End Sub
 
HSV zei:
Dat wordt dan VBA.
Code: 
Sub hsv()
Dim sv, a, b(4), d As Object, i As Long, sh As Worksheet
Set d = CreateObject("scripting.dictionary")
  For Each sh In Sheets
    If sh.Name <> "Overzicht klanten" Then
 sv = sh.Cells(1).CurrentRegion
      For i = 1 To UBound(sv)
        a = d(sv(i, 1))
         If IsEmpty(a) Then a = b
            a(0) = sv(i, 6)
            a(1) = sv(i, 1)
            a(2) = sv(i, 4)
        If i = 1 Then a(3) = "Aantal keer geweest" Else a(3) = a(3) + 1
        If i = 1 Then a(4) = "Aantal Pallets" Else a(4) = a(4) + sv(i, 8)
       d(sv(i, 1)) = a
      Next i
   End If
   Next sh
    With Sheets("Overzicht klanten").Cells(1)
     .CurrentRegion.ClearContents
     .Resize(d.Count, 5) = Application.Index(d.items, 0)
    End With
End Sub
Klik om te vergroten...
Hallo Harry,
Ik ben redelijk handig met Excel maar met Macro's ben ik niet super goed. Betekend dit dat ik als nog alle tabbladden(dus alle dagen) in 1 tabblad moet zetten en dan een knop moet maken om daar de macro aan te koppelen?
 
jverkerk zei:
Ik zou het met een tabel doen.
Klik om te vergroten...
Hallo Johan,

Kan ik voor de tabel ook meerdere tabbladen selecteren? want anders moet ik elke dag(dus van het hele jaar) in een tabblad gaan zetten en dan de tabel maken. Hoop namelijk dat ik alle gegevens uit alle tabbladen kan halen en dan makkelijk 1 overzicht kan maken.
 
Hallo,

Het zou ook met power query kunnen.
 

Bijlagen

mannschaft zei:
Hallo Harry,
Ik ben redelijk handig met Excel maar met Macro's ben ik niet super goed. Betekend dit dat ik als nog alle tabbladden(dus alle dagen) in 1 tabblad moet zetten en dan een knop moet maken om daar de macro aan te koppelen?
Klik om te vergroten...
Zie:
Code: 
For Each sh In Sheets
    If sh.Name <> "Overzicht klanten" Then
Dat betekent dat hij alle tabbladen behalve "Overzicht klanten" langs gaat.
 
mannschaft
Met één tabel zou kunnen met power query, heel mooi systeem.
@peter59 geeft al een voorbeeld.
Hoop dat je er wat mee kunt.
Kun je automatisch laten verversen.
Volgens mij moet je ook even je versie van Excel vermelden.
Bij mij werkt die van peter59 niet omdat hij met een nieuwere versie werkt, weet niet of dat is aan te passen.
Met vba is het denk ik één druk op de knop, dus op zich wel handiger maar het systeem of bedrijf waar je het gebruikt moet wel vba ondersteunen.
 
Laatst bewerkt:
edmoor zei:
Zie:
Code: 
For Each sh In Sheets
    If sh.Name <> "Overzicht klanten" Then
Dat betekent dat hij alle tabbladen behalve "Overzicht klanten" langs gaat.
Klik om te vergroten...
Oke dank je wel, ik heb hem geprobeerd om toe te passen in mijn originele bestand maar dan krijg ik onderstaande fout melding, wat moet ik dan aanpassen? Of kan mijn originele bestand te groot zijn?

Alvast bedankt
1698921740172.png
 
Peter
Dat klopt maar hij zegt dat de query gemaakt is met een nieuwere versie en niet beschikbaar.
 
Johan,

Dat kan je mijns inziens gewoon weg klikken en dan kan je er mee werken.
 
Geprobeerd en het werkt.
Bedankt.
 
@mannschaft:
Een gele regel is geen foutmelding maar de regel waar de fout zich voordeed.
Vermeld er altijd de volledige melding bij.
 
edmoor zei:
@mannschaft:
Een gele regel is geen foutmelding maar de regel waar de fout zich voordeed.
Vermeld er altijd de volledige melding bij.
Klik om te vergroten...
oke, dat wist ik niet. Maar ik heb de Macro toegewezen aan een knop en dan krijg ik eerst deze pop up en als ik dan op foutopsporing klik dan krijg bovenstaande te zien. Nu heb ik niet heel veel kennis van Macro's dus ik kom hier zelf niet uit
1698928467790.png
 
Omdat je niet veel verstand van macro's hebt doe je er verstandig aan je gegevens zo op te zetten, dat je geen macro's nodig hebt.
Zet alle gegevens in 1 werkblad met een extra kolom voor de datum van de levering.
In het onderstaande bestand gebeurt dat nu door een macro.
De macro maakt voor jou ook de draaitabel aan.
Als je ervoor zorgt dat voortaan alle gegevens in dit werkblad komen te staan kun je de draaitabel eenvoudig verversen.
De werkbladen met titel 10-10, 11-10, etc. kunnen dan verdwijnen.

Open het onderstaande bestand en start de macro achter werkblad 'snb'
 

Bijlagen

Ja dat is nu het geval wij willen het graag in aparte tabbladen houden. Alleen het geval is toen ik de macro uit probeerde met 6-10 tm 31-10 deed de macro het wel alleen toen ik het van 1-1 tot 31-10 probeerde kreeg ik deze foutmelding niet. Daarom snap ik niet helemaal wat er fout gaat.
 
Hallo,

Dus jullie gaan op jaarbasis met +/-365 tabbladen werken?
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan