Makro som skapar pivottabell

[Loranga]

Aloha,

Jag försöker skapa ett makro som skapar en pivottabell. Jag vet att makroinspelaren inte är helt ultimat, särskilt när det gäller piottabeller men jag provade ändå för att försöka få någon att börja med. Tyvärr stötte jag på problem direkt, nämligen: "Körfel 1004: Program elle objekdefinierat fel."

<code> ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Test'!R1C1:R5755C15").CreatePivotTable TableDestination:="", _
TableName:="Pivottabell1", DefaultVersion:=xlPivotTableVersion10</code>

 

[fairwinds]

Hej!

Jag vet ju inte riktigt hur du vill att det skall se ut och hur din data är o.s.v men om du gör ett enkelt exempel till att börja med kanske du kan anpassa?

Skriv in lite data i kolumn A till C med rubrikerna "Lag", "Spelare" och "Mål" på första raden och kör sedan:

Sub xxx()
 
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "A:C").CreatePivotTable TableDestination:=Range("E1"), TableName _
        :="PivotTable1"
 
    ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:=Range("B1"), _
        ColumnFields:=Range("A1")
 
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Mål")
         .Orientation = xlDataField
         .Function = xlSum
    End With
 
End Sub

 

[Loranga]

Tusen tack för hjälpen, det var precis vad jag behövde för att komma igång. Nu funkar det som det ska.