Özet Tablo Güncellemiyor

[baydeniro]

Merhaba Arkadaşlar;
2 konuyu not almıştım. Fikir verirseniz memnun olurum.
** Özet Tablo oluşturduktan sonra değişen veriler için "YENİLE" işlemi yapıyorum ama sonuçlar değişmiyor. Yeni bir dosyada güncelleme denemesi yapınca çalışıyor.

** Bazı formüllerde sayfa adını elle yazıyorum. Bazı durumlarda Sayfa adının soluna ve sağına TEK TIRNAK koymak gerekiyor, bazılarında gerekmiyor. Bunun nedeni ne olabilir.
Bu ve benzeri durumların nedeni Ofis paketlerinden ileri geliyor olabilir mi ?

 

[YUSUF44]

Birinci için yorum yapamıyorum.

İkinci için sayfa adında boşluk varsa tırnak içinde yazılıyor diye düşünüyorum.

 

[baydeniro]

Birinci için yorum yapamıyorum.

İkinci için sayfa adında boşluk varsa tırnak içinde yazılıyor diye düşünüyorum.

YUSUF44 üstadım çok teşekkür ediyorum, sağlıcakla kalın.

 

[Suskun]

Birinci sorunuzun cevabı bu olabilir . Veri girişi ve Özet tablo ayrı sayfalardaysa Veriyi girip Özet tablo sayfasına girince çslışır,
(Özet tablo ve sayfa isimlerini kendinize uyarlayın)

Private Sub Worksheet_Activate()
Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables("Özet Tablo 1")
Set pf = pt.PivotFields("Firma")

With pf
    .ClearAllFilters
    On Error Resume Next  'Boş ve Sıfırlı Satırlar gözükmez
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False  
    On Error GoTo 0
End With

veri girisi ve tablo aynı sayfadaysa (Tablo dos çok veri varsa veri girdikçe yenilemek sıkıntı olabilir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim pt As PivotTable

 
 If Not Intersect(Target, Range("A2", Range("A" & Rows.Count).End(xlUp))) Is Nothing Then
 Application.EnableEvents = False
 For Each pt In ActiveSheet.PivotTables
   pt.RefreshTable
 Next pt
 End If
Application.EnableEvents = True
End Sub

 

[baydeniro]

Birinci sorunuzun cevabı bu olabilir . Veri girişi ve Özet tablo ayrı sayfalardaysa Veriyi girip Özet tablo sayfasına girince çslışır,
(Özet tablo ve sayfa isimlerini kendinize uyarlayın)

Private Sub Worksheet_Activate()
Dim pt As PivotTable
Dim pf As PivotField

Set pt = ActiveSheet.PivotTables("Özet Tablo 1")
Set pf = pt.PivotFields("Firma")

With pf
    .ClearAllFilters
    On Error Resume Next  'Boş ve Sıfırlı Satırlar gözükmez
        .PivotItems("(blank)").Visible = False
        .PivotItems("0").Visible = False 
    On Error GoTo 0
End With

veri girisi ve tablo aynı sayfadaysa (Tablo dos çok veri varsa veri girdikçe yenilemek sıkıntı olabilir

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim pt As PivotTable


If Not Intersect(Target, Range("A2", Range("A" & Rows.Count).End(xlUp))) Is Nothing Then
Application.EnableEvents = False
For Each pt In ActiveSheet.PivotTables
   pt.RefreshTable
Next pt
End If
Application.EnableEvents = True
End Sub

Suskun üstadım açıklamalar ve kodlar için çok teşekkür ediyorum, aklınıza sağlık, sağlıcakla kalın

 

[Suskun]

Kolay gelsin