pivot table filitresini hücreye bağlamak

[maliex]

iyi günler,

sadece A1 hücresindeki değerin vba ile pivot tabloda filitrelenmesini nasıl sağlayabilirim

teşekkürler

 

[maliex]

çözümü buldum saygılar,

deneme = Range("A1")

    ActiveSheet.PivotTables("PivotTable1").PivotFields("meyveler").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("meyveler").PivotFilters. _
        Add2 Type:=xlCaptionContains, Value1:=deneme