Özet tabloyu başka sayfadan değiştimek

[mertdalagan]

selamlar. ekteki dosyada anlatmaya çalıştım. yardımlarınız için çok teşekkürler.

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki kodları "Summary" sheet'inin kod sayfasına ekleyiniz. Böylelikle; özet tablodaki isim ve soyad alanlarını da, otomatik olarak veri doğrulamada göreceksiniz. Yani ayrıca, isim listesi ve soyad listesi oluşturmanıza gerek yok.

Veri doğrulamalardan herhangi bir değeri seçtiğinizde, Pivot Tablo bu değerlere göre değişir.

Option Explicit
Private Sub Worksheet_Activate()
Dim k As Long, l As Long
Dim alan As PivotItem
k = 19
l = 17
Range("K19:K10000").ClearContents
For Each alan In Sheets("özet").PivotTables("PivotTable1").PivotFields("soyadı").PivotItems
    Cells(k, 11) = alan.Name
    k = k + 1
Next
For Each alan In Sheets("özet").PivotTables("PivotTable1").PivotFields("ismi").PivotItems
    Cells(l, 12) = alan.Name
    l = l + 1
Next
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C4:C5]) Is Nothing Then
   With Sheets("özet").PivotTables("PivotTable1")
       With .PivotFields("soyadı")
            .CurrentPage = "(Tümü)"
            .CurrentPage = [C4].Value
       End With
 
       With .PivotFields("ismi")
            .CurrentPage = "(Tümü)"
            .CurrentPage = [C5].Value
       End With
   End With
End If
End Sub

 

[mertdalagan]

çok teşekkürler ellerinize sağlık