özet tablo

[mbattal]

selamlar arkadaşlar
özet tablo verilerini otomatik olarak güncelleyecek herhangi bir kod varmı
yardım edebilirmisiniz.

teşekkürler

 

[programer]

Aşağıdaki kod umarım işinize yarar

Private Sub Worksheet_Activate()
    ActiveSheet.PivotTables("Özet Tablo 1").PivotCache.Refresh
End Sub

 

[captan]

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

Bu kodları deneyin,

 

[mbattal]

Teşekkürler arkadaşlar
Kolay gelsin