Vraag : De opgetelde lijst van de Spil

Hello Experts
ik kijk om een spillijst te creëren, geloof ik van de volgende ruwe gegevens. Elke maand zal ik een reeks ruwe gegevens krijgen (ruw lusje) en ik herschik om leesbaar te kijken (gebeëindigd) formaat. Zo zijn de ruwe gegevens slechts een ondergroep en elke maand zijn de bedragen en de lengte van het rapport verschillend. Wat constant blijft is de cliënten (of meestal). Ik probeerde gebruikend sommen en spillijst, maar het probleem is dat de enkele cliënten moeten worden opgeteld terwijl anderen niet. In de ruwe gegevens die ik manueel in een rij genoemd heb getypt som en aangebracht Y voor opgeteld of N te verlaten zoals is. De kolomsom is niet normaal daar. Zo is wat ik probeer om te bereiken een vbamanuscript dat tramform de gegevens in mijn leesbaar afgewerkt product zal
Attachments:
van
sample3.xls (29 KB)  (de Details van het Type van Dossier)  
sample3

Antwoord : De opgetelde lijst van de Spil

O.K., probeer dit:

Er is geen behoefte manueel om in Privé of een kolom van de Som meer toe te voegen, aangezien de macro dit voor u doet.  Aangezien ik probeerde vroeger te verklaren, opdat dit geautomatiseerd is, heb ik één of ander soort logische manier nodig dat deze verslagen duidelijk privé of y of n. zijn.

En dit is wat ik moest weten:
De „codes van de cliënt met M beginnen, en T en rekening 4001 die moesten samen voor elk symbool worden toegevoegd.“

Ook, heeft het recentste dossier u postte alle juiste gegevens, zodat nu bedragengelijke aan wat u verwachtte.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

Sub CreatePivotTable ()

    Schemerige lastRow zoals lang
    Schemerige I zoals lang
    
    Bladen („Ruw“). Activeer
    
    Waaier („A1“). Waarde = „Symbool“
    Waaier („B1“). Waarde = de „Code van de Cliënt“
    Waaier („C1“). Waarde = „Hoeveelheid“
    Waaier („D1“). Waarde = „Privé“
    
    lastRow = Bladen („Ruw“). Waaier („A“ & Rows.Count). Eind (xlUp). Rij
    
    Voor I = 2 aan lastRow
        Als Cellen (I, 2). Waarde = „4001“ of Weggegaan (Cellen (I, 2). Waarde, 1) = „T“ of Weggegaan (Cellen (I, 2). Waarde, 1) = „M“ toen
            Cellen (I, 2). Waarde = „Privé“
        Anders
        Eind als
    Volgende I
    
    ActiveWorkbook.PivotCaches.Add (SourceType: =xlDatabase, SourceData: = _
        „Ruw! R1C1: R“ & lastRow & „C4“) .CreatePivotTable TableDestination: = "", TableName: = _
        „PivotTable1“, DefaultVersion: =xlPivotTableVersion10
    ActiveSheet.PivotTables („PivotTable1“) .AddFields RowFields: = " Symbool“, _
        ColumnFields: = De " Code van de Cliënt "
    ActiveSheet.PivotTables („PivotTable1“) .PivotFields („Hoeveelheid“). Richtlijn = _
        xlDataField
    
Sub van het eind
 
sample4.xls (64 KB) (de Details van het Type van Dossier) 
Voorbeeld
 
Andere oplossingen  
 
programming4us programming4us