Excel'de otomatik Filtre Koşulları'nı nasıl görüntülersiniz?
Otomatik Filtre, Excel kullanıcıları için son derece yararlı bir özelliktir. Bazen verileri birden fazla kriterle filtreleyip dosyayı başkalarıyla paylaşmak için Otomatik Filtre uygularız. Peki bu durumda, diğer kullanıcılar kullandığınız filtre kriterlerini öğrenmek isterse ne yapabilirler?
Kullanıcı Tanımlı İşlev ile çalışma sayfasında otomatik Filtre Koşulları'yi görüntüleyin/gösterin
VBA kodu ile çalışma sayfasında otomatik Filtre Koşulları'yi görüntüleyin/gösterin
Çalışma sayfasında otomatik Filtre Koşulları'yi Kutools for Excel ile görüntüleyin/gösterin 
Kullanıcı Tanımlı İşlev ile çalışma sayfasında otomatik Filtre Koşulları'yi görüntüleyin/gösterin
Diyelim ki aşağıdaki, bazı kriterlere göre filtrelenmiş verilere sahipsiniz; ekran görüntüsüne bakın:
Şimdi, filtre kriterlerini hücrelere görüntülemek için bir Kullanıcı Tanımlı İşlev oluşturabilirsiniz. Lütfen aşağıdaki adımları izleyin:
1. ALT + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki makroyu Modül Penceresineyapıştırın:
Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then Exit Function
str1 = .Criteria1
If .Operator = xlAnd Then
str2 = " AND " & .Criteria2
ElseIf .Operator = xlOr Then
str2 = " OR " & .Criteria2
End If
End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function
3.Ardından bu kodu Kaydet ve Kapat edin ve bir Boş satır'deki boş bir hücreye (örneğin A1 hücresi) şu formülü girin:=AutoFilter_Criteria(A4)(A4filtrelenmiş verilerin başlık hücresidir); ekran görüntüsüne bakın:
4. Ardından Enter tuşuna basın, ardından A1 hücresini seçin ve formülü içermesini istediğiniz kadar sağdaki hücreye doldurma kulpuyla sürükleyin; tüm kriterler hücrelere yansıyacaktır. Ekran görüntüsüne bakın:
Not: Bir sütunda ikiden fazla kriter varsa, bu Kullanıcı Tanımlı İşlev doğru sonucu vermez.
VBA kodu ile çalışma sayfasında otomatik Filtre Koşulları'yi görüntüleyin/gösterin
Burada, çalışma kitabınızın bir hücresinde Filtre Koşulları’nı görüntülemenize yardımcı olabilecek ilginç bir VBA kodundan da söz edebilirim.
1.ALT + F11tuşlarına basılı tutarak Microsoft Visual Basic for Applications penceresiniaçın.
2.Ekle>Modülseçeneğine tıklayın ve aşağıdaki makroyu Modül Penceresineyapıştırın:
VBA kodu: Çalışma sayfasında otomatik Filtre Koşulları'yi görüntüleyin
Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
Application.StatusBar = False
Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
TargetField = xFilter.Range.Cells(1, i).Value
Set TargetFilter = xFilter.Filters(i)
If TargetFilter.On Then
On Error GoTo OutNext
xOut = xOut & TargetField & TargetFilter.Criteria1
Select Case TargetFilter.Operator
Case xlAnd
xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
Case xlOr
xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
Case xlBottom10Items
xOut = xOut & " (bottom 10 items)"
Case xlBottom10Percent
xOut = xOut & " (bottom 10%)"
Case xlTop10Items
xOut = xOut & " (top 10 items)"
Case xlTop10Percent
xOut = xOut & " (top 10%)"
End Select
End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub
3. Ardından bu kodu çalıştırmak için F5 tuşuna basın; kriterleri yerleştirmek üzere boş bir hücre seçmenizi isteyen bir uyarı kutusu açılacaktır. Ekran görüntüsüne bakın:
4. Ardından Tamam düğmesine tıklayın; tüm kriterler aşağıdaki gibi seçilen hücrede gösterilecektir:
Not:
Bu VBA koduyla, bir sütundaki kriterler ikiden fazlaysa, ayrıntılı filtre kriterleri gösterilmeyecek, bunun yerine aşağıdaki gibi görüntülenecektir:
Çalışma sayfasında otomatik Filtre Koşulları'yi Kutools for Excel ile görüntüleyin/gösterin
Eğer Kutools for Excel yüklüyse, verileri filtrelemek için Süper Filtre işlevini kullanabilir ve Filtre Koşulları’nı istediğiniz zaman görüntüleyebilirsiniz.
1. KUTOOLS PLUS > Süper Filtre seçeneğine tıklayarak Süper Filtre işlevini görüntüleyin. Ekran görüntüsüne bakın:
2. Süper Filtrebölmesinde, filtrelemek istediğiniz Veri Aralığı'yi seçmek için tıklayın ve ardından Filtre Aralığı'yi sabitlemek için "Belirtilen" onay kutusunu işaretleyin. Ekran görüntüsüne bakın:
to select the Veri Aralığı you want to filter then check Specified checkbox to fix the Filtre Aralığı. See screenshot:
3. Süper Filtre bölmesinde, bir filtre grubundaki herhangi bir satıra tıklayın, ardından ihtiyaçlarınıza göre Filtre Koşulları’nı Açılır Liste’den seçin ve kriter ayarlarınızı tamamlamak için Tamam’a tıklayın. Ekran görüntüsüne bakın:
4. Filtrele düğmesine tıklayın; Veri Seç, kriterlere göre filtrelenmiş olacak ve aynı zamanda Filtre Koşulları'nın Süper Filtre bölmesinde görüntülendiğini göreceksiniz. Ekran görüntüsüne bakın:
Not: Filtre Koşulları’nı bir senaryo olarak kaydedebilir ve bir sonraki kullanımda Süper Filtre aracıyla tekrar kullanabilirsiniz.
1. Geçerli Senaryoyu Kaydet düğmesine tıklayın; açılan iletişim kutusuna bir filtre adı girin.
2. Bir dahaki sefer bu filtre ayarlarını kullanmak istediğinizde menü düğmesine tıklayın ve ardından Varolan bir senaryo yükleyin alt menüsünden senaryoyu seçin.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
Demo: Kutools for Excel kullanarak Filtreleme Sırasında Filtre Koşulları'yi Görüntüleyin
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar