• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

özet tabloyu makro ile yenilemek

Katılım
15 Eylül 2007
Mesajlar
1,312
Excel Vers. ve Dili
2013 türkçe
ö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
 

Ekli dosyalar

''''''''''''''''ö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
 
Merhaba,

Bu şekilde deneyin.

Kod:
ActiveWorkbook.RefreshAll

.
 
anlamadım hocam kod tam nasıl olacak o şekilde düzeltiverebilir misiniz
 
Yukarıdaki yazdığınız kodun yerine benim verdiğim kodu yazarak deneyin.

.
 
''''''''''''''''ö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
 
hocam kod yazmasını bilmiyorum sizlerin yardımı sayesinde birşeyler yapıyorum

6 noludaki kod hata veriyor
 
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.

Kod:
ActiveWorkbook.RefreshAll

.
 
hocam ayırdığı sayfalarda yine özet tabloları yenilememiş
 
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.

.
 
yardım

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

Ekli dosyalar

adet sayfasında ikinci bir özet tablo olursa onu yenilemiyor
 
ekteki örnekte olduğu gibi özet tablo alırken en altı işaretleyerek aldığım özet tablolarıda yenilemiyor
 

Ekli dosyalar

  • Ekran Alıntısı.JPG
    Ekran Alıntısı.JPG
    54.3 KB · Görüntüleme: 6
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.

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

.
 
hocam denedim tek özet tablo olsada birden fazlada olsa yenilemiyor aktarılan sayfalardakini
 
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.

Kod:
        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

.
 
sadece PivotTable1 i yeniliyor diğerlerini yenilemiyor

birde özet tablo oluştururken en alttaki kutucuğu işaretleyerek oluşturulanı yenilemiyor
 
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
 
13 nolu mesajdaki gibi oluşturulan özet tabloyu güncellemiyor
sayfada bir tanede olsa ikide olsa
 
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
 
Geri
Üst