AutoFilter Ok görüntüsünün Renklendirimesi

[cevatyildiz]

Merhaba,

Biliyorsunuz Ofis 2003 de autofilter lar dan seçim yapıldıgında koyu mavi ufak bir ok ile filtre olduguna işaret eder ama uzun listelerde ve yüksek özünürlüklü alışıyorsanız bunları fark edemiyorsunuz.
Filtre olan sütun adını kırmızıya boyayabilirmiyiz?

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu denermisiniz.

Sub Filtre_Uygulanmış_Başlıkları_Renklendir()
    Dim X As Integer
    
    For X = 1 To ActiveSheet.AutoFilter.Filters.Count
        ActiveSheet.AutoFilter.Range.Cells(X).Interior.ColorIndex = xlNone
        If ActiveSheet.AutoFilter.Filters.Item(X).On Then
            ActiveSheet.AutoFilter.Range.Cells(X).Interior.ColorIndex = 3
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[cevatyildiz]

Tesekkurler Korhan Bey,

Eve gidince kontrol edeceğim. Bu arada sunu bumustum bu sabah...

Selamlar

 

[cevatyildiz]

Korhan Bey örnek ekleyebilir misiniz? Ben çalıştıramadım kodu

Selamlar

 

[Korhan Ayhan]

Merhaba,

Uygulamalı örnek dosya ektedir.

 

[cevatyildiz]

Korhan Bey tesekkurler ama buton seçimine bağlı olmadan otomatik olarak gerçekleşebilir mi? Ayrıca autofilter ın içindeki ok çubuklarını renklendirmek sanırım mümkün değil?

 

[Korhan Ayhan]

Merhaba,

Bildiğim kadarıyla filtredeki okların rengine müdahale edemiyoruz.

Ekteki örnek dosyada K1 hücresi yardımcı hücre olarak kullanılmıştır. Çünkü excelde filtreleme özelliğini algılayan bir olay yoktur. Bu sebeple kodu tetikleyecek bir durum oluşturulmuştur.

Sayfadaki butonu silmedim. Siz isterseniz silebilirsiniz.

 

[baydeniro]

Çok teşekkürler Sayın Korhan Ayhan.