Pivot Tablo Satır - Data Seçimi

[eksoy]

Herkese Merhaba ,
Ben pivot tablo kullanırken tablonun data kısmına atmak istediğim başlıklar satır bölümüne gidiyor. Satır bölümümdeki başlıkları teker teker data kısmına taşımak zorunda kalıyorum. Satır bölümündeki tüm başlıkları data kısmına atacak bir kod yazabilir miyim ? Örnek bir resim ekliyorum.Şimdiden teşekkürler...

 

[Merhum İdris SERDAR]

Örnek dosya eklerseniz, resimden daha iyi olur.

Ayrıca gönderdiğiniz resim EXCEL2002' deki pivot mu?

.

 

[hamitcan]

Böyle bir şey için kod yazmak, sürükle-bırakdan daha uzun herhalde. Bence siz, eski sisteme devam edin.

 

[eksoy]

Merhaba ,
Örneği ekledim. Bu arada Excel 2007. İmzayı düzelltim. Teşekkürler...

 

[Merhum İdris SERDAR]

Merhaba ,
Örneği ekledim. Bu arada Excel 2007. İmzayı düzelltim. Teşekkürler...

Makro kaydet ile yapmayı deneyin.

Örnek ekte.

.

 

[eksoy]

Teşekkürler Sayın Yurttaş ,

Vermiş olduğunuz kod bu örnek için gayet güzel çalışıyor.Benim ihtiyacım olan herhangi bir tablodaki tüm satırları seçerek data kısmına taşımak. Yani aşağıdaki örnekte olduğu üzere pivot tabloyu ve data kısmını tanımlayabildiğimiz gibi tüm satırları tanımlayarak data kısmına götürmek. Umarım karışık anlatmamışımdır.Teşekkürler...
Dim tablo As PivotTable
Dim alan As PivotField

 

[eksoy]

Tekrar Merhaba ,

Bu konuda bana yardımcı olabilecek var mı ? Benim amacım yazacağımız kodu add-ins olarak eklemek. Teşekkürler...