Excel'de veri değiştiğinde pivot tablosunu nasıl yenilersiniz?

Bildiğiniz gibi, eğer orijinal tabloda verileri değiştirirseniz, ilgili pivot tablo aynı anda içindeki verileri yenilemez. Excel'deki tabloda veri değişikliklerinde pivot tabloyu yenilemeniz gerekiyorsa, size bazı hızlı yöntemler gösterebilirim.

Pivot tablosunu bir çalışma sayfasında Yenile'ye basarak yenileyin

Bir çalışma sayfasında veya çalışma kitabında pivot tablosunu VBA ile yenileyin

Pivot tablosunu bir çalışma sayfasında Yenile'ye basarak yenileyin

Excel'de, tek bir çalışma sayfasındaki pivot tabloyu yenilemek için Yenile ve Tümünü Yenile fonksiyonları bulunmaktadır.

Verilerini yenilemek istediğiniz pivot tabloya tıklayın ve ardından Dönüştür'e tıklayın (Excel 2013'te, ANALİZ'i tıklayın) > Yenile > Yenile. Ekran görüntüsüne bakın:

Tek bir çalışma sayfasındaki tüm pivot tabloları yenilemek istiyorsanız, Tümünü Yenile seçeneğini kullanabilirsiniz.

Bir çalışma sayfasında veya çalışma kitabında pivot tablosunu VBA ile yenileyin

VBA ile sadece tek bir çalışma sayfasındaki tüm pivot tabloları değil, aynı zamanda tüm çalışma kitabındaki tüm pivot tablolarını da yenileyebilirsiniz.

1. Klavyede F11 + Alt tuşlarına birlikte basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ardından Ekle > Modül'e tıklayarak yeni bir modül penceresi ekleyin. Ve ardından aşağıdaki VBA kodunu pencereye kopyalayın.

VBA: Bir çalışma sayfasında pivot tablolarını yenileme.

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. Penceredeki Çalıştır düğmesine tıklayın veya VBA'yı çalıştırmak için F5 tuşuna basın, ardından bir çalışma sayfasındaki pivot tabloları yenilenir.

İpucu: Tüm çalışma kitabındaki tüm pivot tabloları yenilemek için aşağıdaki VBA'yı kullanabilirsiniz.

VBA: Bir çalışma kitabındaki tüm pivot tablolarını yenileme.

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

İlgili Makaleler:

• Excel'de dosya açıldığında pivot tablosunu yenileme
• Excel'de pivot tablo veri aralığını güncelleme