HÜcredekİ Renge GÖre Fİltreleme

[rhuseyin]

Function renkkodu(hucre As Range)
hucre1 = hucre.Address(ColumnAbsolute:=False, RowAbsolute:=False)
renkkodu = Range(hucre1).Font.ColorIndex
End Function

'Kaydet, kapat.
'Renkkodu adında yeni bir fonksiyon oluşturmuş olduk.

'Tablonun en sağındaki hücrelere
'=renkkodu(adres) yaz (adres rengine göre filtreleme yapacağın hücre)
'Aynı formülü tablonun tüm satırlarına karşılık gelecek şekilde kopyala.
'Böylece sözkonusu hücrenin renk kodunu yazdırmış olduk.
'Şimdi bu kolon üzerinden istediğin renk koduna göre filtre yapabilirsin

YUKARIDA YAZAN KODLARI KOD ARŞİVİ PROGRAMINDAN ALDIM ANCAK ÇALIŞTIRAMADIM EKLİ DOSYADA YAPMAYA ÇALIŞTIM ÇALIŞMADI YARDIMINIZI BEKLİYORUM

 

[Ömer]

Merhaba,

Linki inceleyiniz..

Renk Süz

 

[Ali]

Aşağıdaki linkide inceleyebilirsiniz.

Renkli satırlar

.