Makro ile özet tablo oluşturma sorunu

[Tornael]

Selam arkadaşlar,

Ekte belirttiğim örnek dosyada "Sayfa1"deki verilerin, "Sayfa2"ye özet tablo ile toplam adetlerini belirtmek istiyorum. ("Sayfa3"deki gibi)
Ama nedense toplam veri adetini veriyor.

Yardımlarınız için şimdiden teşekkür ediyorum.

 

[RONIN1]

Merhaba

ekte dosyanızı düzeltip gönderdim.

iyi çalışmalar

 

[Tornael]

RONIN Bey ilginiz için teşekkürler.

Yalnız, sanırım excel üzerinde düzenlemeniz oldu.
Aynı düzenlemeyi VBA üzerinden de yapabilirsek daha da sevinirim.

 

[Tornael]

Sonuç

Selam arkadaşlar,

İlgili dosyadaki kodları biraz revize edince sorunu çözdüm sonunda.

 

[Merhum İdris SERDAR]

Selam arkadaşlar,

Ekte belirttiğim örnek dosyada "Sayfa1"deki verilerin, "Sayfa2"ye özet tablo ile toplam adetlerini belirtmek istiyorum. ("Sayfa3"deki gibi)
Ama nedense toplam veri adetini veriyor.

Yardımlarınız için şimdiden teşekkür ediyorum.

.

Bu şekilde deneyin.

Sub Macro1()

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sayfa1!R1C1:R1663C1", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:="Sayfa2!R1C1", TableName:="PivotTable1", DefaultVersion _
        :=xlPivotTableVersion14
        
    Sheets("Sayfa2").Select
    Cells(1, 1).Select
      
    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
        "PivotTable1").PivotFields("ParcaKodu"), "Count of ParcaKodu", xlCount
        
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable1").PivotFields("ParcaKodu")
        .Orientation = xlRowField
        .Position = 1
    End With
    
    ActiveWorkbook.ShowPivotTableFieldList = False
    
End Sub

.

 

[Tornael]

Teşekkürler

Sayın yurttas,

Aradığım kodun alternatifini öğretmiş olduğunuzdan dolayı teşekkür ederim.
Verdiğiniz kod istediğim gibi çalıştı.