Özet Tabloda Otomatik Veri Yenileme

[Bakigemlik]

Merhaba,

Pivot Table için dinamik alan yarattım her veri girdiğimde tablonun kendini otomatik olarak yinelemesini istiyorum bunun içinde aşağıdaki kodu kullanıyorum ama sonuç alamadım desteğinizi rica ederim,

Saygılarımla,

Private Sub Worksheet_Deactivate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub

 

[Korhan Ayhan]

Verdiğiniz kod sayfadan çıktığınızda çalışıyor. Buna göre kontrollerinizi yapınız.

 

[Bakigemlik]

Teşekkürler Korhan Bey aşağıdaki kodla hallettim,

Private Sub Worksheet_Deactivate()
Dim pt As PivotTable
For Each pt In ActiveSheet.PivotTables
pt.RefreshTable
Next pt
End Sub