özet tabloyu makro ile yenilemek

[gedavet]

özet tabloyu makro ile yenilemek

ekteki dosyada ayırma kodu var bunun içindeki özet tabloyu yenileme kodu çalışmıyor

bu kodu düzenleye bilirmisiniz

klasörün içine aktardım ancak özet tabloyu yenilememiş

bu düzeltmeyi yapabilir misiniz

tüm sayfalarda ki tüm özet tabloları yenilemesini istiyorum

 

[gedavet]

''''''''''''''''özet tabloyu yeniler''''''''''''''''
With ActiveWorkbook.Sheets("Adet").PivotTables("PivotTable1") ' özet tablonun olduğu sayfa adı
.ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Tablo1")
.RefreshTable
End With


Hocalarım bu kod bir sayfada tek özet tablo olursa güncelliyor ancak iki tane olursa güncellemiyor

bütün sayfalardaki özet tabloları güncellemek için kodda düzenleme yapıverebilirmisniz

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

ActiveWorkbook.RefreshAll

.

 

[gedavet]

anlamadım hocam kod tam nasıl olacak o şekilde düzeltiverebilir misiniz

 

[Ömer]

Yukarıdaki yazdığınız kodun yerine benim verdiğim kodu yazarak deneyin.

.

 

[gedavet]

''''''''''''''''özet tabloyu yeniler''''''''''''''''
With ActiveWorkbook.RefreshAll.Sheets("Adet").PivotTables("PivotTable1") ' özet tablonun olduğu sayfa adı
.ChangePivotCache ActiveWorkbook.RefreshAll.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Tablo1")
.RefreshTable
End With

bu şekildemi hocam iki yerde var

 

[gedavet]

hocam kod yazmasını bilmiyorum sizlerin yardımı sayesinde birşeyler yapıyorum

6 noludaki kod hata veriyor

 

[Ömer]

Umarım sorunuzu doğru anlamışımdır.

Verdiğiniz;

With ActiveWorkbook.Sheets("Adet").PivotTables("PivotTa ble1") ' özet tablonun olduğu sayfa adı
.ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDa tabase, SourceData:="Tablo1")
.RefreshTable
End With

Kodlarınızdaki yukarıdaki bölümün tümünü silip sadece aşağıdaki satırı yazın.

ActiveWorkbook.RefreshAll

.

 

[gedavet]

hocam ayırdığı sayfalarda yine özet tabloları yenilememiş

 

[Ömer]

Eski kodları hesaba katmadan ve yenileme işlemine vurgu yapmadan. Dosyadaki kodlarla yapmak istediğinizi baştan sona detaylı anlatır mısınız.

.

 

[gedavet]

yardım

hocam bu ekteki 1. örnek
bu şekilde aktarım yapınca aktardığı il il dosyaların özet tablosunu yenilemiş doğru

 

[gedavet]

adet sayfasında ikinci bir özet tablo olursa onu yenilemiyor

 

[gedavet]

ekteki örnekte olduğu gibi özet tablo alırken en altı işaretleyerek aldığım özet tablolarıda yenilemiyor

 

[Ömer]

Versiyon farklı olduğu için deneme fırsatım olmuyor.

Sizin yenileme kodlarını silerek, aynı bölüme aşağıdaki kod bloğunu ekleyin.

    Dim Sa As Worksheet, tbl As PivotTable
    
    Set Sa = ActiveWorkbook.Sheets("Adet")
    
    For Each tbl In Sa.PivotTables
        tbl.RefreshTable
    Next

.

 

[gedavet]

hocam denedim tek özet tablo olsada birden fazlada olsa yenilemiyor aktarılan sayfalardakini

 

[Ömer]

Söylediğim gibi 2013 özellikleriyle yapılan bir pivot olduğu için deneyemiyorum.

Uzun yoldan gidin. Mevcut yenileme çalışıyorsa, 2 ve 3 ü de altına aşağıdaki gibi ekleyebilirsiniz.

        With ActiveWorkbook.Sheets("Adet").PivotTables("PivotTable1") ' özet tablonun olduğu sayfa adı
            .ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Tablo1")
            .RefreshTable
        End With
        
        With ActiveWorkbook.Sheets("Adet").PivotTables("PivotTable2") ' özet tablonun olduğu sayfa adı
            .ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Tablo2")
            .RefreshTable
        End With
        
        With ActiveWorkbook.Sheets("Adet").PivotTables("PivotTable3") ' özet tablonun olduğu sayfa adı
            .ChangePivotCache ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="Tablo3")
            .RefreshTable
        End With

.

 

[gedavet]

sadece PivotTable1 i yeniliyor diğerlerini yenilemiyor

birde özet tablo oluştururken en alttaki kutucuğu işaretleyerek oluşturulanı yenilemiyor

 

[gedavet]

sayın ömer hocam Tablo2 ve Tablo3 yazan yerleri "Tablo1" olarak değiştirince günceleldi
ancak özet tablo oluştururken en alttaki kutucuğu işaretlediğim özet tabloları güncellemiyor
şuanda konuda ekli olan örnek gibi

 

[gedavet]

13 nolu mesajdaki gibi oluşturulan özet tabloyu güncellemiyor
sayfada bir tanede olsa ikide olsa

 

[gedavet]

Sub OzetTablolariYenile()

Dim pvt As PivotTable
Dim sht As Worksheet

For Each sht In ActiveWorkbook.Sheets
For Each pvt In sht.PivotTables
pvt.RefreshTable
Next pvt
Next sht

End Sub


Sub refresh2()

Dim pvt As PivotTable

Dim sht As Worksheet

For Each sht In ActiveWorkbook.Sheets

For Each pvt In sht.PivotTables

pvt.RefreshTable

Next pvt

Next sht

End Sub



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

Sub Worksheet_Activate()
Dim pvt As PivotTable
For Each pvt In ActiveSheet.PivotTables
pvt.PivotCache.Refresh
Next pvt
End Sub


Bu kodların hepsi tek başına çalışsa aktarmadan önce güncelliyor
ancak benim istediğim aktarma yaparken tüm sayfalardaki tüm özet tabloları güncelelyim öyle kaydetmesini istiyorum

çünkü herkesin bilgisi herkese gitmeyecek