özet tabloyu sayfa açılınca yenileme

[gedavet]

iyi çalışmalar özet tablolarımızı sayfayı açıp kendi özelliğini kullanarak yeniliyoruz buda biraz uzun oluyor sayfa açılınca otomatik olarak sayfalardaki özet tablo veya başka varsa tablolar yenilense kullanım bakımından çok kolay olur
bukonuda yardımcı olabilirmisiniz

 

[kemal turan]

özet tablonun açılışta yenilenmesi

Tablo seçeneklerinden "her açılışta yenile" seçeneğini işaretleyin

 

[Korhan Ayhan]

Merhaba,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayın. Uyarı mesajlarının çıkmasını istemiyorsanız kırmızı satırları silin.

Option Explicit
 
Private Sub Worksheet_Activate()
    Dim Tablo As PivotTable
    
[COLOR=red]    If ActiveSheet.PivotTables.Count = 0 Then
        MsgBox "Özet tablo bulunamadı !", vbExclamation
        Exit Sub
    End If
[/COLOR]    
    For Each Tablo In ActiveSheet.PivotTables
        Tablo.RefreshTable
    Next
    
[COLOR=red]    MsgBox "Tüm özet tablolarınız güncellenmiştir.", vbInformation
[/COLOR]End Sub

 

[gedavet]

ilgileriniz için teşekkür ederim kemal bey ve korhan bey
kemal turan bey birazdaha açıklama yapa bilirmiisiniz ofis 2010 kullanıyorum dediğinizi bulamadım

 

[kemal turan]

özet tablo üzerinde sağ tuş yapın--pivot table seçenekleri--veri--dosyayı açarken yenile seçeneğini işaretleyin.Böylece çalışma sayfasını her açtığında bir kere verileri yeniler.Açıkken tekrar yenilemek isterseniz özet tablo üzerinde sağ tuş yapın -- yenile seçeneğini seçin.

 

[kemal turan]

Problem var mı Mustafa Bey

 

[gedavet]

Kemal bey tamamdır teşekkür ederim