Pivot Table'ı Hücredeki Veri Doğrulama İle Listelemek

Believing

Altın Üye
Altın Üye
Katılım
19 Mayıs 2013
Mesajlar
579
Excel Vers. ve Dili
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
Sayın Uzman arkadaşlar,

Ekteki çalışmadaki PivotTable çalışmasında listelemeyi bir hücreye atamak ve buradan yönetmek istiyorum.
Pivot Table "ÖZET" isimli sayfasının "B7" hücresinden itibaren başlıyor ve "satır etiketleri" filtresi "B7" hücresinde bulunuyor.
Buna göre, "B3" hücresindeki veri doğrulama ile seçim yaptığımda, seçimi satır etiketlerindeki filtreye uygulasın. Yani sadece "B3" hücresindeki seçime göre özet tablo listelensin ve seçim haricindekiler gözükmesin.
Bu senaryoyu gerçekleştiremedim. Acaba bu senaryo için nasıl bir kod düzenlemeliyim?

Saygılarımla,
 

Ekli dosyalar

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
32,092
Excel Vers. ve Dili
Ofis 365 Tr-64 Bit
Ofis 2010 Tr-En 32 Bit
Deneyiniz.

ÖZET isimli sayfanızın kod bölümüne uygulayınız.

C++:
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Call Ozet_Tabloya_Filtre_Uygula
    Application.EnableEvents = True
End Sub
Boş bir modüle aşağıdaki kodu uygulayınız.

C++:
Option Explicit

Sub Ozet_Tabloya_Filtre_Uygula()
    Dim Kriter As PivotItem
    
    Application.ScreenUpdating = False
    
    With Sheets("ÖZET")
        On Error GoTo Son
        .PivotTables("PivotTable1").PivotFields("REGION").ClearAllFilters
        For Each Kriter In .PivotTables("PivotTable1").PivotFields("REGION").PivotItems
            If Kriter <> .Range("B3").Value Then
                Kriter.Visible = False
            End If
        Next
    End With

    Application.ScreenUpdating = True
    Exit Sub
    
Son: MsgBox "Lütfen uygun filtre kriteri seçiniz!", vbExclamation
End Sub
Sonra B3 hücresini değiştirip deneyiniz.
 

Believing

Altın Üye
Altın Üye
Katılım
19 Mayıs 2013
Mesajlar
579
Excel Vers. ve Dili
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
Sayın Korhan bey,

Tek kelime ile kusursuz, mükemmel çalışıyor. Ellerinize ve emeğinize sağlık.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hakkınız üzerime olduk fazla geçmektedir. Lütfen haklarınızı helal ediniz.
Hayırlı akşamlar.

Saygılarımla,
 

Believing

Altın Üye
Altın Üye
Katılım
19 Mayıs 2013
Mesajlar
579
Excel Vers. ve Dili
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
Sayın Korhan bey,

Affınıza sığınarak son bir soru daha sormak durumundayım. Zira kurguladığım senaryoyu sonlandıramıyorum.
Aslında 1. mesajdaki "ÖZET" isimli sayfayı şablon sayfa olarak kullanıyorum.
Yeni çalışmaya eklediğim "SETTINGS" isimli sayfadaki butona basarak, "ÖZET" sayfasının kopyalarını oluşturuyorum.
Sayfaları oluştururken isimlerini "PARAMETRE" sayfasındaki "S3:S50" aralığından almasını sağlıyorum.
Sayfa isimlerini oluşturulan sayfalardaki veri doğrulamanın bulunduğu "B" hücresine formül ile yazdırıyorum.
Yukarıdaki koşullara göre oluşturulan sayfalardaki PivotTable verilerinin otomatik güncellenmesini sağlayamıyorum.
Bu konuda benim için çok değerli olan yardımlarınızı tekrar rica ediyorum.

Saygılarımla,
 

Ekli dosyalar

Believing

Altın Üye
Altın Üye
Katılım
19 Mayıs 2013
Mesajlar
579
Excel Vers. ve Dili
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
Sayın Korhan bey,

ALLAH sizden ve sevdiklerinizden razı olsun.
Lütfen haklarınızı helal ediniz.
Kolay gelsin.

Saygılarımla,
 

Believing

Altın Üye
Altın Üye
Katılım
19 Mayıs 2013
Mesajlar
579
Excel Vers. ve Dili
Office Pro 2019 TR 32 Bit
Windows Pro 10 TR 64 Bit
Hakkım varsa helal olsun..
Sayın Korhan bey,

Yukarıdaki kodlarınızı kendi çalışmalarıma uyguladığımda çoğaltılan sayfalardaki Pivot Table'lar güncel isimler ile açılmıyor.
Konuyu biraz açar mısınız? öğrenmek adına.

Saygılarımla
 

Korhan Ayhan

Moderatör
Yönetici
Katılım
15 Mart 2005
Mesajlar
32,092
Excel Vers. ve Dili
Ofis 365 Tr-64 Bit
Ofis 2010 Tr-En 32 Bit
ÖZET isimli sayfanın kod bölümünde kodlar var. Bunu kendin orjinal dosyanızda uyguladınız mı?

Ayrıca Module1 ve Modul2 içinde kodlar var. Bunları da asıl dosyanıza almalısınız.

Bunun dışında başka özel bir işlem yoktur. Doğru uygularsanız çalışmaması için bir engel göremiyorum.
 
Üst