özet tabloda makro ile bugüne göre filitrele

[gedavet]

özet tabloda makro ile bugüne göre filitrele bu işlemi yapan forumda daha önce bir örenk görmüştüm şimdi bulamadım bunu nasıl bulabilirim

 

[cems]

ARAMA fonksiyonunda filtrele kelimesi ile arayın

http://www.excel.web.tr/search.php?searchid=1976398

Buradaki örneklere bakın

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı incelermisiniz.

Uygulanan kod;

Option Explicit
 
Sub TARİHE_GÖRE_SÜZ()
    Dim Veri As PivotItem
    
    Application.ScreenUpdating = False
    
    With Sheets("Sayfa2")
        .Cells.EntireRow.Hidden = False
        .PivotTables("Özet Tablo 1").PivotCache.Refresh
        With .PivotTables("Özet Tablo 1").PivotFields("TARİH")
            For Each Veri In .PivotItems
                Veri.Visible = True
            Next
            
            For Each Veri In .PivotItems
                If Veri.Value = "(boş)" Or Veri.Value = "(blank)" Then
                    Veri.Visible = False
                    GoTo 10
                End If
                
                If CDate(Veri.Value) <> Range("G1") Then
                    Veri.Visible = False
                Else
                    Veri.Visible = True
                End If
10          Next
        
        End With
    End With
 
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gedavet]

cems hocam ilginiz için teşekkür ederim linkde bulunamadı diyor
korhan hocam sizede teşekkür ederim ancak benim gördüğüm örnek özet tablo olan sayfayı açınca bugüne göre filtreleme yapıyordu

 

[Korhan Ayhan]

Merhaba,

Mustafa bey ben size butona basarak çalışacak kodu verdim. Benim düşünceme göre sizin mesaj sayısına ulaşmış bir üyemizin artık bahsettiğiniz derlemeleri yapabiliyor olması gerekir. Bu tarz bilgilerin neredeyse tamamı forumda bulunmaktadır. Araştırma yaparsanız ulaşabilirsiniz.