Bir Command Butona Tıkladığımda Özet Tablodaki Veriyi Nasıl Yenilerim

[programer]

Arkadaşlar Bir Command Butona Tıkladığımda Özet Tablodaki Veriyi Nasıl Yenilerim.

 

[captan]

Özet Tablo

Private Sub CommandButton1_Click()
'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

Bir dene,
Olmazsa Başka bir yol deneriz. .

İyi Geceler

 

[Zeki Gürsoy]

Bence sayfa seçildiğinde otomatik yenilenmesi daha uygun olur.

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

 

[programer]

Sayın captan ve anemos yardımlarınız için teşekkür ederim