Filtre renklendirme hakkında

[adigeturklim]

Merhaba,

Öncelikle herkese güzel bir gün temenni ediyorum.
Ekteki Excel tablosunda B ile AB stünları arasında örnek bir tablo yaptım. Tabloda filtrelenmiş alanların tepesine (hangi stün filtrelenmiş ise) filtrelendiği anda bir renk ile belirteç koyabilir miyiz? (tercih kırmızı)

Teşekkür ederim

(Not: Koşullu biçimlendirme ile sonuç alamadım)

 

[systran]

örneği inceleyiniz, makro içerir etkinleştirmeyi unutmayınız.
kodlar şuradan alınmış ve isteğiniz doğrultusunda değiştirilmiştir.

http://stackoverflow.com/questions/26451512/excel-vba-find-out-which-row-has-filter-enabled

Sub IterateThroughFilters()
Dim r As Range
Set r = Range("B2:AB2")
Dim rc As Range
sayac = 1
For Each rc In r.Columns
   If Not rc.Parent.AutoFilter Is Nothing Then
    Set currentColumnFilter = rc.Parent.AutoFilter
       Dim ccf As Filters
       Set ccf = currentColumnFilter.Filters
         Dim cf1 As Filter
         Set cf1 = ccf.Item(sayac)
             If cf1.On Then
                Cells(, rc.Column).Interior.Color = vbRed
            Else
                Cells(, rc.Column).Interior.Color = [B]vbWhite[/B]
            End If
            sayac = sayac + 1
   End If
Next rc
End Sub

 

[adigeturklim]

Sayın systran cevabınız için teşekkür ederim, ilgili renklendirme, butona bağlı olmadan, yani filtre yapıldığında çalışabilir mi ve bu renklendirmeyi sadece filtre çalışan stün için yapmak niyetindeyim, diğerlerini sarıya boyamasın şeklinde kodu nasıl düzeltebiliriz mümkünse yardımlarınızı rica ederim.

 

[adigeturklim]

Sayın systran söylemeyi atladım sanırım. Az önceki yazdığım mesaja ek olarak filtre yapıldığında otomatik renklenmesi fakat filtre kaldırıldığında rengin de kaldırılması icab ediyor . Bu şekilde bakabilirsek sevinirim Teşekkür ederim tekrar

 

[systran]

renk için 2 nolu mesajdaki vbYellow olan yeri, vbWhite olarak düzeltiniz.
filtre değişince kodun çalışmasının nasıl yapılacağını bilmiyorum, çünkü vba da filtre değişimini tetikleyen bir olay yok. varsa da ben bilmiyorum.

 

[adigeturklim]

Sayın systran emeğiiz için teşekkür ederim, fakat butonsuz olması işimi görecek başka kişilerde kullanacağından sürekli bunu uygulayamayabilirler. Teşekkürler

 

[adigeturklim]

Ben konu için yardım talebimi yenilemek istiyorum çözüm varsa yardım rica ediyorum. Sayg.