Pivot tablo boş satırı gösterme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte göndermiş olduğum excel dosyamın Sayfa1'in B2 sütunundan aşağıya
doğru isimler mevcut, C2 sütunundan aşağıya doğru miktarlar mevcut,
Sayfa2'in C3 hücresindede pivot tablo var, benim istediğim Sayfa2'ye geçtiğimde,
pivot tablo C3'te pivot tablodaki filitre önce hepsini seçsin, sonra da boş olanın çentiğini kaldırmasını istiyorum.
Yani pivot tabloda boş olan satırı görmek istemiyorum.

Sayfa1'deki isimlere yeni isimler ekliyorum, pivot tablo bunları görmüyor.

Makro kaydet ile yaptım ancak çalışıyor görünüyor çalışmıyor.

Yardımcı olur musunuz?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Activate()
    Dim Tablo As PivotTable
    
    On Error Resume Next
    
    For Each Tablo In PivotTables
        Tablo.RefreshTable
        Tablo.PivotFields("ADI SOYADI").PivotFilters.Add2 Type:=xlCaptionDoesNotEqual, Value1:=""
    Next
    
    MsgBox "Yeniden hesaplandı.", vbInformation
End Sub

 

[ASLAN7410]

Sayın Korhan Bey, ilginiz için çok teşekkür ediyorum, hayırlı geceler.

Kodu çalıştırdığımda ekte gönderdiğim resimdeki gibi oldu.

 

[Korhan Ayhan]

Özet tablonuzdaki miktar alanını tekrar oluşturup deneyiniz.

 

[ASLAN7410]

Bu seferde sadece boş geldi.

 

[Korhan Ayhan]

Dosyanız ektedir.

 

[ASLAN7410]

Sayın Korhan Bey, ellerinize sağlık kod gayet güzel çalışıyor,
hayırlı geceler, hayırlı çalışmalar diliyorum.

 

[ASLAN7410]

Sayın Korhan Bey, yeni eklediklerim pivot'ta alfabetik sıralama olmuyor.

 

[Korhan Ayhan]

Bu kodları makro kaydet yöntemiyle halledebilirsiniz.

Private Sub Worksheet_Activate()
    Dim Tablo As PivotTable
    
    On Error Resume Next
    
    For Each Tablo In PivotTables
        Tablo.RefreshTable
        Tablo.PivotFields("ADI SOYADI").AutoSort xlAscending, "ADI SOYADI"
        Tablo.PivotFields("ADI SOYADI").PivotFilters.Add2 Type:=xlCaptionDoesNotEqual, Value1:=""
    Next
    
    MsgBox "Yeniden hesaplandı.", vbInformation
End Sub

 

[ASLAN7410]

Sayın Korhan Bey, şimdi oldu, ellerinize sağlık çok teşekkür ediyorum.

İlk gönderdiğim mesajımdaki örnekte, kodlar zaten makro kaydet ile yaptım, ancak çalışıyor gibi görünüyor istediğim sonucu alamamıştım.

Hayırlı geceler, hayırlı çalışmalar.

 

[HsNKgL]

Bu kodları makro kaydet yöntemiyle halledebilirsiniz.

Private Sub Worksheet_Activate()
    Dim Tablo As PivotTable
   
    On Error Resume Next
   
    For Each Tablo In PivotTables
        Tablo.RefreshTable
        Tablo.PivotFields("ADI SOYADI").AutoSort xlAscending, "ADI SOYADI"
        Tablo.PivotFields("ADI SOYADI").PivotFilters.Add2 Type:=xlCaptionDoesNotEqual, Value1:=""
    Next
   
    MsgBox "Yeniden hesaplandı.", vbInformation
End Sub

S.A.
Yukarıda kodu SQL 'den çektiğimi bir tabloya ya da sayfa nasıl uyarlayabiliriz...

 

[Korhan Ayhan]

Kullandığınız kodları görmek lazım..

 

[HsNKgL]

Kullandığınız kodları görmek lazım..

İlginiz için teşekkür ederim, kullandığım herhangi bir kod yok sadece uyarlayabilirmiyiz diye sormuştum, formülle yapmayı tercih ettim ancak aynı excel kitabında userform da kullanıyorum makro kullanmak mı yok sa biraz daha uzun yoldan formül kullanmak mı daha sağlıklı olur...