Vraag : 2 de Lijsten van de spil in VBA

Hi
I heeft een macro die, onder andere, tot 2 spillijsten leidt.  De brongegevens voor elk zijn op verschillende lusjes en de resulterende lijsten zouden op verschillende lusjes moeten zijn.  Ik bedroog en gebruikte het macroregistreertoestel om de code te krijgen, dan kopi�ërde het met sommige veranderingen want tweede one.

The eerst boete werkt, maar tweede geeft „Run-time fout: 5.  Ongeldig procedurevraag of argument“.  Ik ben niet zeker waarom.  Ik dacht, eerst, dat het zou kunnen zijn dat, hebben gekopi�ërdd de code, het probeerde om beiden PivotTable1 te roepen, zodat veranderde ik de tweede in PivotTable2.  Al het andere is het zelfde buiten mijn het veranderen waar de brongegevens zijn en waar de lijstbestemming is.

I am 500 punten voor een snelle solution.

Thanks
Sarah
 toekennen
" codeBody " 
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:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

Sub CF_PivotTable ()

'CRE�ëR EEN LIJST VAN DE SPIL VAN DE REKENINGEN NIET VAN DE KORTING



    Sheets.Add
    ActiveSheet.Name = „Samenvatting“
    
    Bladen („Summiere lijst - alle open punten B“). Selecteer
    Waaier („A1“). Selecteer
    Selection.End (xlDown). Selecteer
    ActiveCell.Offset (0, 0). Selecteer
    lRow = ActiveCell.Row

    
    Waaier („A1“). Selecteer
    Waaier (Selectie, Selection.End (xlDown)). Selecteer
    Waaier (Selectie, Selection.End (xlToRight)). Selecteer
    ActiveWorkbook.PivotCaches.Create (SourceType: =xlDatabase, SourceData: = _
        „Summiere lijst - alle open punten B! R1C1: R“ & lRow & „C11“, Versie: = _
        xlPivotTableVersion10) .CreatePivotTable TableDestination: = " Samenvatting! R1C1 ", _
        TableName: = " PivotTable1 ", DefaultVersion: =xlPivotTableVersion10
    Bladen („Samenvatting“). Selecteer
    Cellen (1, 1). Selecteer
    Met ActiveSheet.PivotTables („PivotTable1“) .PivotFields („Netto gepaste dt“)
        . Richtlijn = xlRowField
        . Positie = 1
    Eind met
    ActiveSheet.PivotTables („PivotTable1“) .AddDataField ActiveSheet.PivotTables (_
        „PivotTable1“) .PivotFields („Bedrag in lokale straathond. “), _
        „Som van Bedrag in lokale straathond. “, xlSum
    Met ActiveSheet.PivotTables („PivotTable1“) .PivotFields („Status“)
        . Richtlijn = xlColumnField
        . Positie = 1
    Eind met
    ActiveWorkbook.ShowPivotTableFieldList = Vals
    ActiveCell.Offset (0, 1). Kolommen („A: C“) .EntireColumn.Select
    Selection.Style = „Komma“
    ActiveCell.Offset (1, 3). Waaier („A1“). Selecteer
    
        Sheets.Add

    
'CRE�ëR EEN LIJST VAN DE SPIL VAN DE REKENINGEN VAN DE KORTING


    ActiveSheet.Name = de „Samenvatting van de Korting“
    
    Bladen (de „lijst van de Korting - alle open punten“). Selecteer
    Rijen („1: 1“). Selecteer
    Selection.Insert verschuif: =xlDown, CopyOrigin: =xlFormatFromLeftOrAbove
    Waaier („A1“). Selecteer
    Bladen („Summiere lijst - alle open punten B“). Selecteer
    Rijen („1: 1“). Selecteer
    Selection.Copy
    Bladen (de „lijst van de Korting - alle open punten“). Selecteer
    ActiveSheet.Paste
    Waaier („A1“). Selecteer
    
    
    Bladen (de „lijst van de Korting - alle open punten“). Selecteer
    Waaier („A1“). Selecteer
    Selection.End (xlDown). Selecteer
    ActiveCell.Offset (0, 0). Selecteer
    lRow = ActiveCell.Row

    
    Waaier („A1“). Selecteer
    Waaier (Selectie, Selection.End (xlDown)). Selecteer
    Waaier (Selectie, Selection.End (xlToRight)). Selecteer
    ActiveWorkbook.PivotCaches.Create (SourceType: =xlDatabase, SourceData: = _
        De „lijst van de korting - alle open punten! R1C1: R“ & lRow & „C11“, Versie: = _
        xlPivotTableVersion10) .CreatePivotTable TableDestination: = De " Samenvatting van de Korting! R1C1 ", _
        TableName: = " PivotTable2 ", DefaultVersion: =xlPivotTableVersion10
        
   
    Bladen (de „Samenvatting van de Korting“). Selecteer
    Cellen (1, 1). Selecteer
    ActiveWorkbook.ShowPivotTableFieldList = Waar
    Met ActiveSheet.PivotTables („PivotTable1“) .PivotFields („Netto gepaste dt“)
        . Richtlijn = xlRowField
        . Positie = 1
    Eind met
    ActiveSheet.PivotTables („PivotTable1“) .AddDataField ActiveSheet.PivotTables (_
        „PivotTable1“) .PivotFields („Bedrag in lokale straathond. “), _
        „Som van Bedrag in lokale straathond. “, xlSum
    Met ActiveSheet.PivotTables („PivotTable1“) .PivotFields („Status“)
        . Richtlijn = xlColumnField
        . Positie = 1
    Eind met
    ActiveWorkbook.ShowPivotTableFieldList = Vals
    Kolommen („B: D“). Selecteer
    Selection.Style = „Komma“
    Waaier („E3“). Selecteer
    


Beëindig Sub

Antwoord : 2 de Lijsten van de spil in VBA

Online 74 veranderen het argument TableDestination:

TableDestination: = " „de Samenvatting van de Korting“! R1C1“
Andere oplossingen  
 
programming4us programming4us