Suzme yapılmıs alandakı renklı hucrelerı saymak

[Anakha1453]

daha once gırmıs oldugum renklı verıler var ve bunları bellı krıtere gore suzuyorum suzdukten sonra bunların sayısını toplamak ıstıyorum ıcındekı degıl sadece kac hucre oldugunu bılmek ıstıyorum nasıl yapabılırım bunu acaba bır bılgı verebılırmısınıız rıca etsem ?

 

[alper2323]

Merhaba ;

Konunun daha iyi anlaşılması için dosya ekleyebilir misiniz?

Teşekkürler

 

[dellerlim]

Bu linkte dolgu veya font rengi ile ilgili bir sürü çalışma var, işinizi görür umarım. İyi çalışmalar.

http://www.excel.web.tr/f48/dolgu-rengi-yada-fonta-g-246-re-toplama-t38798.html

 

[Anakha1453]

https://hizliresim.com/WQ6m8P



resımde acıklıyabılmısımdır umarım ıhtıyacımı

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyin.

Kullanıcı tanımlı fonksiyon kullanılmıştır.

Hücrede kullanımı;

=FİLTRELİ_ALANDA_RENK_SAY(A1:A100;B1)

Function FİLTRELİ_ALANDA_RENK_SAY(Alan As Range, Renk As Range)
    Dim Veri As Range, Say As Long
    
    Application.Volatile True
    
    For Each Veri In Alan
        If Veri.RowHeight > 0 Then
            If Veri.Interior.ColorIndex = Renk.Interior.ColorIndex Then
                Say = Say + 1
            End If
        End If
    Next
    
    FİLTRELİ_ALANDA_RENK_SAY = Say
End Function

 

[Anakha1453]

Merhaba,

Ekteki örnek dosyayı inceleyin.

Kullanıcı tanımlı fonksiyon kullanılmıştır.

Hücrede kullanımı;

=FİLTRELİ_ALANDA_RENK_SAY(A1:A100;B1)

Function FİLTRELİ_ALANDA_RENK_SAY(Alan As Range, Renk As Range)
    Dim Veri As Range, Say As Long
    
    Application.Volatile True
    
    For Each Veri In Alan
        If Veri.RowHeight > 0 Then
            If Veri.Interior.ColorIndex = Renk.Interior.ColorIndex Then
                Say = Say + 1
            End If
        End If
    Next
    
    FİLTRELİ_ALANDA_RENK_SAY = Say
End Function

tesekkurler tam aradıgım seydı cok rahat bır sekılde ısımı cozdum tesekkur ederım