Özet Tabloyu Döngü ile Süzme Problemi.

[Zeki Gürsoy]

Merhaba,
Bu konuda yardımcı olursanız sevinirim. Bir döngü ile hücreden alınacak bilgiye göre Özet Tabloda süzme işlemi yapmak istiyorum. Bu yolla süzülen bilgiler listbox'a alınacak.
"gizle" makrosunda sorun yok ancak, "göster" makrosunu çalıştırdığımda "PivotItem sınıfının Visible özelliği kurulamıyor" uyarısı alıyorum. Kodlar aşağıdaki gibidir.

Sub gizle()
For i = 1 To Sheets("Sayfa1").PivotTables("Özet Tablo 1").PivotFields("AÇIKLAMA").PivotItems.Count
    Set e = Sheets("Sayfa1").PivotTables("Özet Tablo 1").PivotFields("AÇIKLAMA").PivotItems
    If e(i) <> Sheets("Sayfa1").[h1].Text Then
    e(i).Visible = False
    End If
Next
End Sub
Sub göster()
For i = 1 To Sheets("Sayfa1").PivotTables("Özet Tablo 1").PivotFields("AÇIKLAMA").PivotItems.Count
    Set e = Sheets("Sayfa1").PivotTables("Özet Tablo 1").PivotFields("AÇIKLAMA").PivotItems
    e(i).Visible = True
Next
End Sub

 

[Zeki Gürsoy]

Buldum, sorun özet tablodan kaynaklanmış.