• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
2 Mayıs 2008
Mesajlar
295
Excel Vers. ve Dili
Office 365
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?
 
Merhaba,

Aşağıdaki kodu denermisiniz.

Kod:
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
 
Korhan Bey örnek ekleyebilir misiniz? Ben çalıştıramadım kodu

Selamlar
 
Merhaba,

Uygulamalı örnek dosya ektedir.
 

Ekli dosyalar

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?
 
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.
 

Ekli dosyalar

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