Pivot tabloda veri güncellemesi

[metin_0606]

Pivot tablom sayfa2 de bulunmaktadır. Örneğin Sayfa1 aktif olunca pivot tablodaki verilerin otomatik olarak güncellenmesi mümkünmüdür acaba

 

[Korhan Ayhan]

Sayfa1 kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_Activate()
    Dim Pivot_Table As PivotTable
    
    For Each Pivot_Table In Sheets("Sayfa2").PivotTables
        Pivot_Table.RefreshTable
    Next
End Sub

 

[metin_0606]

teşekkürler Korhan bey

Private Sub Worksheet_Activate() Dim Pivot_Table As PivotTable For Each Pivot_Table In Sheets("Sayfa2").PivotTables Pivot_Table.RefreshTable Next End Sub