İki Pivot Tablosunun Filtrelerini Bağlama

[hezarfenfb]

Şekildeki gibi iki pivot tablosunda, tamamen aynı olan filtrelerden biri seçildiğinde diğerinin de otomatik olarak update edilmesini sağlayabilir miyim?

 

[hamitcan]

Kodları belirttiğim yerlere ekleyip deneyin.
Sheet1 içine;

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Application.EnableEvents = False
Call Module1.Makro1
Application.EnableEvents = True
End Sub

Module1 içine;

Sub Makro1()
Dim a()
ReDim a(1)
a(1) = [b1].Text
    ActiveSheet.PivotTables("PivotTable1").PivotFields("URUN").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("URUN").CurrentPage = a(1)

    ActiveSheet.PivotTables("PivotTable2").PivotFields("URUN").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable2").PivotFields("URUN").CurrentPage = a(1)
End Sub

 

[Merhum İdris SERDAR]

Şekildeki gibi iki pivot tablosunda, tamamen aynı olan filtrelerden biri seçildiğinde diğerinin de otomatik olarak update edilmesini sağlayabilir miyim?

.

Dosyanız ekte.

.

 

[hezarfenfb]

Çok teşekkürler. Peki Çoklu seçim yaptığım zaman çalışmamasının nedeni ne olabilir? Düzeltebilmem mümkün mü?

Ayrıca çoklu seçim yaptıktan sonra çalışmadığı gibi eski haline de geri gelmiyor.

 

[hamitcan]

Çoklu seçim derken neyi kast ediyorsunuz ?

 

[hezarfenfb]

Çoklu seçim derken neyi kast ediyorsunuz ?

All seçebildiğim ya da ürünleri tek tek seçebildiğim gibi örneğin sadece 101 ve 102'ye tick atıp o ikisine bakmak.

 

[hamitcan]

Böyle dener misiniz ?

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
If Target.Name = "PivotTable1" Then
    ActiveSheet.PivotTables("PivotTable2").PivotFields("URUN").ClearAllFilters
    For Each Item In ActiveSheet.PivotTables("PivotTable1").PivotFields("URUN").PivotItems
    If Item.Visible = False Then
        ActiveSheet.PivotTables("PivotTable2").PivotFields("URUN").PivotItems("" & Item & "").Visible = False
    End If
    Next
End If
End Sub

 

[hezarfenfb]

Sebebini anlamadığım bir şekilde birinci durumdayken "all" sorunsuz çalışırken, ikinci durumda "all" çalışmıyor.

Onun dışındaki sorunlar hallolmuş durumda.

 

[hamitcan]

Ben de doğru çalışıyor, dosyanızı ekleyin, inceleyelim.

 

[hezarfenfb]

Ben de doğru çalışıyor, dosyanızı ekleyin, inceleyelim.

Teşekkürler

 

[assenucler]

Sayın hamitcan;

Merhaba. Katkınız için teşekkürler.

Dosyanız bende de doğru çalışıyor. Excel 2010 TR. kullanıyorum.

Sevgi ve saygılar.

 

[hamitcan]

Teşekkürler

Hatasız çalıştı. Excel'in versiyonu ile ilgili olabilir belki. Ama Sayın assenucler, 2010'da çalıştırmış, bende de 2007 yüklü, burada da doğru çalışıyor.

 

[hezarfenfb]

Tamam çok teşekkür ederim. İncelerim biraz daha. Ben de 2007de kullanıyorum ama bulurum sanırım nedenini.