Pivot Table Buton ile Güncelleme – Excel VBA

Pivot Table Buton ile güncelleme yapacağız. Bir önceki yazımızda oluşturduğumuz pivot table a yeni veriler girdiğimiz zaman pivot tablosunun güncellenmesi gerekmektedir. Bunu otomatik veya manule olarak yapabiliriz.

Manuel olarak pivot table a tıklayıp Tasarım sekmesinden reflesh komutu ile yapabilirsiniz. Yada Developer kısmından sayfaya buton ekleyerek vba kodunu yazarak ta reflesh yapabilirsiniz. Yada bu kodu otomatik olarak çalıştırıp ta yapabilirsiniz.

İlk önce Geliştirici(Developer) sekmesinden Tasarım Modu(Design Mode) a geçip bir buton ekleyin ve butonun özelliklerinden Başlık(Caption) değerini değiştirip istediğiniz bir şey yazın.

Sonra butona çift tıklayarak VBA sayfasına geçerek aşağıdaki kodu yazın ve kaydedin. Tasarım modundan çıkın. Verilerinize yeni veriler ekleyin ve butona basın. Pivot tablonuzun güncellendiğiniz göreceksiniz. İyi çalışmalar.

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

İyi çalışmalar,