Aynı kaynaktan beslenen özettablolar için tek işlemde tümüne alan ekleme

[ocannes]

Herkese Merhaba,

Elimde tek bir kaynaktan beslenen birden fazla pivot table var (yaklaşık 20 tablo).
ve bu tabloların hepsine aynı anda bir alanı çıkartıp yerine yeni bir alan eklemek istiyorum. tek tek yapmadan hızlı ve pratik bir şekilde yapabileceğim bir yöntem var mıdır ?
şimdiden teşekkürler.

 

[turist]

Foruma hoşgeldiniz.

Yerleşik Excel uygulamalarında; tek seferde istediğinizi yapabilmeniz mümkün değil.Farklı çalışma sayfalarında veya aynı sayfada olsa bile her PivotTable için ayrı işlem yapmanız gerekir.

Ancak; belki Macro ile çözüm bulunabilir.

 

[ocannes]

teşekkür ederim.
makro kaydettim normal koşullarda çalışıyor fakat şöyle bir durum var.
alt alt birden fazla tablo var her tablo için (bilmediğimden dolayı) elle tablo isimlerini ve seçili hücreleri düzeltiyorum. inputbox ile dış veri girişi haline getirmek istediğim de sorun alıyorum.
kod ile gitmek gerekirse
örnek vermek gerekirse 1 ve 2 isminde 2 tane tablo için bu yapıldı bunlar yanyana tablolar fakat bir aşağıda ki tabloya geçerken (yani 3 ve 4 isimli tablolara) dışardan ben her makroyu çalıştırdığımda o tabloları tanımlayım istiyorum makro koduna girmeden.
1 ve 2 değişken olarak yazılabilsin

ActiveSheet.PivotTables("1").PivotFields("Stock %").Orientation = _
xlHidden
Range("V6").Select
ActiveSheet.PivotTables("2").PivotFields("Stock").Orientation = _
xlHidden


ikinci olarak da her bir özet tablonun başlıklarında düzenleme yaptığım için o hücrelerinde dış veri olarak girilmesini sağlayabilir miyim
tekrar örnek vermek gerekirse
Range("Y6").Select kodu için değişken olan değer burada "6"

özet tablolar için
dim adres as string
adres=inputbox("özet tablo ismini giriniz")

olarak tanımlayıp her bir formülün içine;
ActiveSheet.PivotTables(adres).PivotFields("Stock %").Orientation = _
xlHidden

gibi yapmayı denedim ama başaramadım
yardımcı olursanız çok sevinirim