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

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,349
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
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.
Kod:
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

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,349
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Buldum, sorun özet tablodan kaynaklanmış.
 
Üst