pivot tabloda eklenen Toplam ibaresi

[Alidefne]

Merhaba normalde kısa tarih olarak görünen başlıklar pivottable da önüne "Toplam" kelimesi geliyor.
Tasarım bölümünden "Alt toplamları gösterme" ve "Genel toplamları kapalı" yaptım. pivot table seçeneklerine ve alan seçeneklerine baktım ancak Çözümü Bulamadım.
Toplam kelimesini kısa tarihin önüne gelmemesi için bir çözüm var mı.

 

[Korhan Ayhan]

Merhaba,

Eğer işinize yararsa aşağıdaki gibi TOPLAM ifadelerinden kurtulabilirsiniz.

Özet tablodaki başlık satırını seçiniz. Sonrasında CTRL+H ile değiştir menüsünü açınız.

İlk kutuya Toplam yazıp sonuna boşluk ekleyin.
İkinci kutuya sadece boşluk ekleyip TÜMÜNÜ DEĞİŞTİR dedikten sonra kurtulmanız gerekir.

 

[Alidefne]

Cevabınız için teşekkür ederim ancak Kaynak tablom arada ( 10-20 defa) değişiyor.her seferinde dediğiniz işlemi yapmam gerekecektir.

 

[Korhan Ayhan]

Özet tablonun olduğu sayfa aktif olduğunda makro ile dilerseniz TOPLAM yazıları kaldırılabilir.

 

[Alidefne]

Özet tablonun olduğu sayfa aktif olduğunda makro ile dilerseniz TOPLAM yazıları kaldırılabilir.

denemek isterim basit şeyler dışında makro yazamıyorum

 

[Korhan Ayhan]

Alttaki sayfa ismi üzerinde sağ tıklayın ve KOD GÖRÜNTÜLE komutunu çalıştırın. Karşınıza gelen beyaz alana aşağıdaki kodu uygulayınız.

Paylaştığınız görsele göre sanırım başlıklar 8. satırda bulunuyor. Asıl dosyanızda farklı bir satırda ise kod içinde 8 yazan yerleri revize ediniz.

Özet tablonuz yenilendiğinde işlem otomatik olacaktır.

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Range("8:8").Replace "Toplam ", " "
End Sub

 

[Alidefne]

Merhaba,

Eğer işinize yararsa aşağıdaki gibi TOPLAM ifadelerinden kurtulabilirsiniz.

Özet tablodaki başlık satırını seçiniz. Sonrasında CTRL+H ile değiştir menüsünü açınız.

İlk kutuya Toplam yazıp sonuna boşluk ekleyin.
İkinci kutuya sadece boşluk ekleyip TÜMÜNÜ DEĞİŞTİR dedikten sonra kurtulmanız gerekir.

tşk ederim. işimi gördü.

şöyle küçük bir sorum var. aşağıdaki gibi 'x sayfada bir değişim olursa pivot tabloları yenile işlemi yapıyorum ancak power query sorgularından biri erken bitince pivotlar güncellendiği için pivot tablolardan biri güncellenmemiş veri ile kalıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Mix").PivotTables("PivotTable1").PivotCache.Refresh
Worksheets("Mix").PivotTables("PivotTable2").PivotCache.Refresh
End Sub


x sayfadaki powerquery1 sorgusunda değişim olursa
pivottable1 yenilensin
xsayfasındaki powerquery2 sorgusunda değişim olursa
pivottable2 yenilensin

 

[Korhan Ayhan]

Benim çok kullandığım bir uygulama değil. Nette biraz araştırma yapınca aşağıdaki yönteme eriştim.

Kendi dosyanıza göre uyarlarsınız.

"Query – Name of Query" bölümüne kendi kullandığını power query adını yazmalısınız.

Option Explicit

Sub Update_Power_Query_And_Pivot_Tables()
    Dim My_Pivot_Table As PivotTable, My_Power_Query As Queries
    
    Set My_Pivot_Table = Worksheets("Mix").PivotTables("PivotTable1")
    Set My_Power_Query = ThisWorkbook.Connections("Query – Name of Query")
    
    With My_Power_Query
        .OLEDBConnection.BackgroundQuery = False
        .Refresh
        .OLEDBConnection.BackgroundQuery = True
    End With
    
    My_Pivot_Table.PivotCache.Refresh
End Sub

 

[Alidefne]

Benim çok kullandığım bir uygulama değil. Nette biraz araştırma yapınca aşağıdaki yönteme eriştim.

Kendi dosyanıza göre uyarlarsınız.

"Query – Name of Query" bölümüne kendi kullandığını power query adını yazmalısınız.

Option Explicit

Sub Update_Power_Query_And_Pivot_Tables()
    Dim My_Pivot_Table As PivotTable, My_Power_Query As Queries
   
    Set My_Pivot_Table = Worksheets("Mix").PivotTables("PivotTable1")
    Set My_Power_Query = ThisWorkbook.Connections("Query – Name of Query")
   
    With My_Power_Query
        .OLEDBConnection.BackgroundQuery = False
        .Refresh
        .OLEDBConnection.BackgroundQuery = True
    End With
   
    My_Pivot_Table.PivotCache.Refresh
End Sub

Çok teşekkür ederim.