Makro İle Pivot Kontrolü

[eksoy]

Herkese Merhaba ,
Ben makro ile bir Pivot Table oluşturuyorum.İhtiyacım olan Pivotun data kısmına atacağım verinin seçimini çalışma kitabının adına bağlamak.Ayrıntıyı ekteki dosyaya ekledim.Yardımlarınız için şimdiden teşekkürler...

 

[hamitcan]

Biraz acele oldu ama, umarım doğru yapmışımdır.

Sub auto_open()
    Columns("h:i").Delete
    kitapismi = Left(Trim(ActiveWorkbook.Name), 8)
       ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
            "DATA!R1C1:R19C6", Version:=xlPivotTableVersion10).CreatePivotTable _
            TableDestination:="DATA!R1C8", TableName:="Özet Tablo 1", DefaultVersion _
            :=xlPivotTableVersion10
        Sheets("DATA").Select
        Cells(1, 8).Select
        With ActiveSheet.PivotTables("Özet Tablo 1").PivotFields("İL")
            .Orientation = xlRowField
            .Position = 1
        End With
        ActiveSheet.PivotTables("Özet Tablo 1").AddDataField ActiveSheet.PivotTables( _
            "Özet Tablo 1").PivotFields(kitapismi), "Toplam " & kitapismi, xlSum
End Sub

 

[eksoy]

Çok teşekkürler , elinize sağlık.