renkli hücrelerin kaç adet olduğunun bulunması

[baturaycelebi]

Ekte göndermiş olduğum dosyada bulunan sarı hücrelerin kaç adet olduğunu bulmak istiyorum. Yaklaşık 3200 veri üzerinde çalışıyorum. Forumda bulunan örnekler olmadı. nasıl formüle edebilirim?

 

[Orion1]

Formülü çalıştıran kullanıcı tanımlı fonksiyon aşağıdadır.
Ekli dosyayı inceleyiniz.

Function sari_renk(alan As Range)
Dim hucre As Range, sayac As Long
For Each hucre In alan
    If hucre.Interior.ColorIndex = 6 Then sayac = sayac + 1
Next
sari_renk = sayac
End Function

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin. Çözüm kullanıcı tanımlı fonksiyon ile elde edilmiştir.

Function renksay(aralik As Range, renkindex)
Dim hucre As Range
For Each hucre In aralik
If hucre.Interior.ColorIndex = renkindex Then c = c + 1
Next
renksay = c
End Function

 

[baturaycelebi]

size çok teşekkür ederim. İşime çok yaradı. Renklerin farklı olması durumunda nasıl toplatabilirim.

 

[Orion1]

size çok teşekkür ederim. İşime çok yaradı. Renklerin farklı olması durumunda nasıl toplatabilirim.

Bu durumda Sayın Leventm'nin dosyasını ve KTF'sini kullanınız.

 

[baturaycelebi]

koşullu biçimlendirmelerde doğru sonuç vermiyor.

 

[Necdet]

Merhaba,


Herhangi bir renge bağlı kalmadan istediğiniz renkli hücreleri toplama ya da sayma gibi işlemler için hazırladığım Kullanıcı Tanımlı Fonksiyonlara aşağıdaki linkten erişebilirsiniz.

Renkli Hücreleri Toplama ve Sayma

 

[Orion1]

Burada dikkat edeilmesi gereken bir durumda dolgu rengini renklendirdiğimiz zaman sayma fonksiyon sayma işlemini yapmayacaktır.Çünkü hücre tetiklenmiyor.

 

[baturaycelebi]

Hepinize çok teşekkür ederim. Sorunum yardımlarınız sayesinde çözüldü.

 

[werne]

Excel 2007 içinde hücre rengine göre süzme özelliği eklenmiş arkadaşlar bana çok kullanışlı geldi