Özet Tablo

[captan]

Sayfaya her girişte Özet tabloyu nasıl yenileyebilirim acaba. .

 

[Merhum İdris SERDAR]

Özet tablonun bulunduğu sayfanın kod bölümüne aşaığıdaki kodları yazın.

Private Sub Worksheet_Activate()

'B2 Özet tablonun olduğu hücrelerden biri olarak varsayılmıştır.

Range("B2").Select

 '"PivotTable1" Özet tablonun adı varsayılmıştır.
    
    ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
    ActiveWorkbook.ShowPivotTableFieldList = False
End Sub

 

[captan]

Teşekkürler

Sayın Yurttaş

Yardımınız çok işime yaradı.
Herşey için çok çok teşekkürler

Kolay Gelsin !!