Özet Tablo toplam değeri

[waytooraider]

Özet tabloda değerler kısmındaki stunlar genede say şeklinde çıkıyor (Count)
Bunu tek tek toplam'a (Sum) çevirmek yerine makroyla suma çevirebilirmiyiz.
Saygılarımla.

 

[hamitcan]

c burada alan ismidir, sizdeki alan ismi ile değiştirin.

Sub Makro1()
    With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("Say c")
        .Caption = "Toplam c"
        .Function = xlSum
    End With
End Sub

 

[Tornael]

VBA özet tablo kodlama sorunu

Selam Arkadaşlar,

Hamitcan Bey'in öğretmiş olduğu kodu kendi excelimde uygulamaya çalıştığımda karşıma hata mesajı çıktı. Bunun dışında birde üzerindeki formülün
kaldırılmasını nasıl yapabiliriz?
Sorunu ekteki excelde de anlatmaya çalıştım.

İlgileriniz için şimdiden teşekkür ederim.

 

[hamitcan]

Tabloda toplanacak bir değer olmadığı için bu hatayı veriyor muhtemelen.

 

[Tornael]

Olabilir... Peki H kolonunda bulunan tablodaki gibi bir tabloyu macro ile çıkarabilmem için kodu nasıl revize edebilirim?

 

[hamitcan]

Her defasında yeni bir özet tablo oluşturmanıza gerek yok. Bir kere oluşturmanız yeterli.

 

[Tornael]

Selam Hamitcan Bey,

Normalde tek excel üzerinden gidecek olursak haklısınız. Ama iş yerinde benden her seferinde ayrı kodları barındıran 14 excelide işlememi isterlerse, oldukça zamanımı almakta. Tek excel için;
Sayfa1'deki kodları bir araya getiriyorum, ardından özet tablo ile adetlerini çıkartıp o dönemde işimize yarayıp yaramadığını da başka bir dosyadan bakıyordum... VBA ile kodları bir araya getiriyor ve karşılaştırmayıda sitemizin sayesinde yapabiliyorum. Bir tek özet tabloyu beceremedim.:frown:

Yardımlarınızı rica eder. Konuya iştigal ettiğiniz için tekrar teşşekkür ederim.

 

[hamitcan]

Her dosya içine bir özet tablo yerleştirmeniz mümkün ise bu şekilde yapın yok değil derseniz, ozaman kod yardımıyla özet tablo oluşturabiliriz.

 

[Tornael]

Kod yöntemi ile ilgili, nasıl yapılabileceği hakkında yardımlarınızı rica ediyorum.

 

[hamitcan]

Bu şekilde deneyin.

Sub PivotOlustur()
Columns("C:D").ClearContents
    Columns("A:A").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Sayfa2!R1C1:R1048576C1", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="Sayfa2!R2C3", TableName:="Özet Tablo 1", DefaultVersion _
        :=xlPivotTableVersion12
    Sheets("Sayfa2").Select
    Cells(2, 3).Select
    With ActiveSheet.PivotTables("Özet Tablo 1")
             .AddDataField .PivotFields("Part#1"), "Say Part#1", xlCount
        With .PivotFields("Part#1")
             .Orientation = xlRowField
             .Position = 1
        End With
    End With
End Sub

 

[Tornael]

Tebrikler

Elinize sağlık Hamitcan Bey