pivot table vba ile filtreleme

[bebar]

Merhaba;

özet tablomu farklı bir sekmede bulunan veri ile fitre etmek istiyorum kod yapılarına hakim değilim uğraşmama rağmen alttaki gibi gibi kod oluşturdum fakat işe yaramadı teşekkür ederim.

x = Sheets("ÖZET").Range("F2").Value
Sheets("Sayfa1").Select
ActiveSheet.PivotTables ("PivotTable2")

Range("A7").Select
Selection.AutoFilter Field:=1, Criteria1:=x

yada yardımı olacaksa makro kaydet ile aşağıda oluşturduğum "1001160006" yerine özet sekmesinde f2 hücresinde bulunan verinin gelmesini istiyorum

ActiveSheet.PivotTables("PivotTable2").PivotFields( _
"[Product].[ProductCode].[ProductCode]").VisibleItemsList = Array( _
"[Product].[ProductCode].&[1001160006]")

 

[mancubus]

kendi pivot tablonuza uyarlayın:

Sub xlTR_t155382_Filter_PivotTable()

    With Worksheets("Sayfa1").PivotTables("PivotTable2").PivotFields("ŞEHİR ADI")
        .PivotFilters.Add xlCaptionEquals, Value1:=Worksheets("Özet").Range("F2").Value
    End With

End Sub

 

[bebar]

çok teşekkür ederim

 

[bebar]

hocam merhaba;

Vermiş olduğunuz kodu şablonuma uyarladığım zaman " pivottable sınıfının pivotfield özelliği alınamıyor" hatası alıyorum alakanız için teşekkür ederim

 

[mancubus]

rica ederim. doğru pivotfield adı kullandığımızdan emin olalım.

veya dosyanızı -gerekirse verileri değiştirerek- yükleyin buradan bakalım.

 

[bebar]

dosyam ektedir