Pivot table dan detaylari baska dosyaya cikarmak

[fredycrouger]

Merhaba,

Asagidaki kod ile pivot table dan detaylari yeni bir taba cikariyorum ve bu tabi farkli bir dosya olarak kaydediyorum. Tab ismini (ayni zamanda kaydedecegim dosya ismini) dosyadaki O2 hucresinden aliyorum. Fakat sorun su ki, liste bitince en alt satirdaki "Grand Total" olanida cikariyor ve O2 hucresinde ayni veri oldugu icin dosya ismi ayni oluyor ve hata veriyor. Totale ihtiyacim yok, yani bu kod uzerinden "Grand Total" satirini cikarmasini engelleyebilir miyim? O satira gelince tekrarin bitmesi gerekiyor.

Dim c As Range
    Dim Cntry As Variant
    Dim wb As Workbook
    
    With ActiveSheet.PivotTables(1)
        For Each c In .DataBodyRange.Resize(, 1)
           c.ShowDetail = True
            On Error GoTo errHandler
           Cntry = Range("O2").Value
           ActiveSheet.Name = Cntry
          
Dim ws2 As Worksheet
Set ws2 = ActiveSheet

ws2.Move

Set wb = ActiveWorkbook

Simdiden yardimlariniz icin cok tesekkurler,
Ferdi

 

[fredycrouger]

Asagidaki kod ile sorunu cozdum, tesekkurler

With ActiveSheet.PivotTables("TotalTable")
        .ColumnGrand = False
    End With
    _________________________________________
    
    With ActiveSheet.PivotTables("TotalTable")
        .ColumnGrand = True
    End With