Çözüldü Pivot Tablo Otomatik Yenileme

[arslanbey]

Merhabalar,
Excel Teknik sayfasına veri kaydet dediğimde Rapor sayfasındaki pivot tablo otomatik yenilenmesi / güncellenmesini nasıl sağlayabiliriz.

 

[kralım]

 

[arslanbey]

İlginiz için teşekkür ederim ama makro kod ile nasıl yapabiliriz.

 

[volki_112]

İlginiz için teşekkür ederim ama makro kod ile nasıl yapabiliriz.

Rapor sayfasinin kod ekranina bunu yapıştırın.

Private Sub Worksheet_Activate()
Application.RefreshAll
End Sub

 

[arslanbey]

Rapor sayfasinin kod ekranina bunu yapıştırın.

Private Sub Worksheet_Activate()
Application.RefreshAll
End Sub

bu şekilde hata verdi

 

[volki_112]

bu şekilde hata verdi

Bu sekilde değiştirir misiniz.

Private Sub Worksheet_Activate()
ActiveWorkbook.RefreshAll
End Sub

 

[arslanbey]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu kod ile yapmaya çalıştım fakat çalışmadı.

 

[volki_112]

HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bu kod ile yapmaya çalıştım fakat çalışmadı.

6 nolu mesajdaki kodu yazınız. Kesin çözüm

 

[arslanbey]

İyi akşamlar hocam,
dedikleriniz yaptım ama güncellemeyi belli bir süre sonra yapmıyor. ekran resmi ve dosyayı ekliyorum benim yaptığım hatamı var mı?

 

[volki_112]

İyi akşamlar hocam,
dedikleriniz yaptım ama güncellemeyi belli bir süre sonra yapmıyor. ekran resmi ve dosyayı ekliyorum benim yaptığım hatamı var mı?

Pivot tablonun oldugu sayfanin kod bölümüne bunu yaziniz.

Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

 

[arslanbey]

Ustam ekledim fakat çalışmıyor lütfen sizden ricam dosyayı incelermisiniz.

 

[volki_112]

Ustam ekledim fakat çalışmıyor lütfen sizden ricam dosyayı incelermisiniz.

Pc basina gecince bakayim.

 

[atoykan]

PivotTable'ınızın veri sayfası yanlış hatırlamıyorsam Teknik'ti. O sayfanın üzerinde sağ tıklayın kodu gösteri seçin ve açılan VBA Editor'de
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

kodunu yapıştırın.

 

[volki_112]

Ustam ekledim fakat çalışmıyor lütfen sizden ricam dosyayı incelermisiniz.

Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

bu kod bende çalışıyor sizde niye olmadı anlamadım. Ek bir kontrol daha ekledim. ekten indiirniz. Teknik sayfasında herhangi bir değişiklik yapınca pivot tablo otomatik güncellenecek. bu kodun eksisi Teknik sayfasında CRTRL+C kombinasyonu yağtığınız işlemi geri alabiliyordunuz. artık o çalışmaz. bilginiz olsun.

 

[arslanbey]

Arkadaşlar verilen kodlar çalışmıyor. rapor kısmında "aralık ve mayıs" verileri yok halbuki teknik sayfasında "aralık ve mayıs" ayları mevcut, kodlar aynı veri üzerinde çalışıyor ama yeni bir veri girdiğimizde çalışmıyor.

 

[arslanbey]

Sorunu çözüme kavuştu çok teşekkür ederim.
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[volki_112]

Arkadaşlar verilen kodlar çalışmıyor. rapor kısmında "aralık ve mayıs" verileri yok halbuki teknik sayfasında "aralık ve mayıs" ayları mevcut, kodlar aynı veri üzerinde çalışıyor ama yeni bir veri girdiğimizde çalışmıyor.

sorun kodlarda değilmiş sizin pivot tablo ayarlarındaymış. ekten indirebilirsiniz.