• DİKKAT

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

Soru Pivot tablo güncelleme

Katılım
13 Temmuz 2016
Mesajlar
613
Excel Vers. ve Dili
Excel 2010 & 2016 Türkçe
Merhaba arkadaşlar,
Pivot tablolarını çalışma kitabı ağırlaşmaması için data verisini başka bir kitapta tutuyorum.

Data verinin bulunduğu çalışma kitabı hergün yenileniyor. Boyut olarak 70 ile 200 MB olarak değişkenlik göstermektedir. Ben pivot tablomun bulunduğu çalışma kitabını data kitabını seçip data kitabı açılmadan nasıl pivotlari güncelleyebilir. Yada hızlı olarak nasıl bir yol önerirsiniz. Şimdiden teşekkürler ?
 
Çok bilgim olduğunu söyleyemem ama 70-200 mb'lık dosyada pivot tablonun da olması performans sıkıntısı oluşturmaz diye düşünüyorum.
 
Merhaba,

Pivot tablo üzerinde sağ tıkladığınızda açılan menüde "Pivottable Seçenekleri" seçeneğini seçtikten sonra açılan menüde VERİ sekmesinde dosya açılışında pivot tablonun güncellenmesi seçeneğini seçerek sonuca gidebilirsiniz. Bu ayarı yaptıktan sonra dosyanızı kayıt edip kapatıp açtığınızda pivot tablonuz otomatik güncellenecektir. Bu işlem için kaynak dosyanızın açık olmasına gerek yoktur.
 
Merhaba,

Pivot tablo üzerinde sağ tıkladığınızda açılan menüde "Pivottable Seçenekleri" seçeneğini seçtikten sonra açılan menüde VERİ sekmesinde dosya açılışında pivot tablonun güncellenmesi seçeneğini seçerek sonuca gidebilirsiniz. Bu ayarı yaptıktan sonra dosyanızı kayıt edip kapatıp açtığınızda pivot tablonuz otomatik güncellenecektir. Bu işlem için kaynak dosyanızın açık olmasına gerek yoktur.
İşte kaynak dosya kapalı bir durumda yenileme işlemi yapmam lazım. Sadece pivot tablolarımın olduğu çalışma kitabının makro ile kaynak veri kitabını seçip gücellemek.


Aşağıdaki kod ile kaynak data kitabı açıkkken ComboBox1 ile kitabı seçip tüm PivotTable veri bağlantısını ComboBox1 seçtiğim kitaba göre güncelleniyor. Ancak ben kitabı açmadan bağlantıyı seçip güncellemek istiyorum.

Kod:
Sub Degeral()

Sheets("Sayfa2").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.PivotTables("PivotTable").ChangePivotCache ActiveWorkbook. _
        PivotCaches.Create(SourceType:=xlDatabase, SourceData:=UserForm1.ComboBox1.Value & "!Tablo1", _
        Version:=6)
    Sheets("Sayfa1").Select
    ActiveCell.Offset(-1, 1).Range("A1").Select
    ActiveSheet.PivotTables("PivotTable").ChangePivotCache ("Sayfa2!PivotTable")
   
     Sheets("Sayfa3").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.PivotTables("PivotTable").ChangePivotCache ("Sayfa2!PivotTable")

       Sheets("Sayfa4").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.PivotTables("PivotTable").ChangePivotCache ("Sayfa2!PivotTable")
       
     ActiveWorkbook.RefreshAll
End Sub
 
Son düzenleme:
Merhaba,

Dosya kapalı olduğu için ADO kodlaması şeklinde bir bağlantı oluşmaktadır. Ben Excel 2016 sürümünde makro kaydet yöntemini kullanarak ilgili bağlantı kodunu elde edebiliyorum. Sizde deneyiniz. Oluşan kodları sonrasında kendinize göre revize edersiniz.
 
Merhaba arkadaşlar,
Pivot tablolarını çalışma kitabı ağırlaşmaması için data verisini başka bir kitapta tutuyorum.

Data verinin bulunduğu çalışma kitabı hergün yenileniyor. Boyut olarak 70 ile 200 MB olarak değişkenlik göstermektedir. Ben pivot tablomun bulunduğu çalışma kitabını data kitabını seçip data kitabı açılmadan nasıl pivotlari güncelleyebilir. Yada hızlı olarak nasıl bir yol önerirsiniz. Şimdiden teşekkürler ?

Dış veri dosyasından verileri almak için Power Query'i kullanın. Yalnızca Verilerin bağlantı olarak Pivot Tabloya yüklemek için Power Query'yi kullanmanız gerekir. Power Query, veri bağlantısını yenilemek için veri dosyanın kapatılmasını gerekecektir.

Küçük bir örnek dosya olsa üzerinde çalışırdım.

.
 
Dış veri dosyasından verileri almak için Power Query'i kullanın. Yalnızca Verilerin bağlantı olarak Pivot Tabloya yüklemek için Power Query'yi kullanmanız gerekir. Power Query, veri bağlantısını yenilemek için veri dosyanın kapatılmasını gerekecektir.

Küçük bir örnek dosya olsa üzerinde çalışırdım.

.
Şirket bilgisi içerdiği için size dosyayı gönderemiyorum. 6-7 sütunluk veri ile çalışma yaparsanız sevinirim teşekkürler.
Teşekkürler
 
Power Query bilgisayarda yoksa, MS Query ile de verileri Pivot Tablo olarak alınabilir.... Gerçi buna da gerek yok aslında, Pivot Tablo direkt olarak harici kapalı Excel dosyasından güncel verileri alır, problem nerde anlamadım....

.
 
Size değildir Haluk Bey...

Üyemiz altın üye olmadığı için harici link talep etmiş. İdris beyde paylaşmış..
 
Haklısınızdır Korhan Bey......... Benim cevabımdan yaklaşık 1 saat sonra yazılınca, şaşırdım sadece...

.
 
Alternatif olarak ekteki makroyu deneyebilirsiniz.

 

Ekli dosyalar

Geri
Üst