Soru renge göre karekter sayısını bulma

Katılım
1 Eylül 2015
Mesajlar
6
Excel Vers. ve Dili
temel
Altın Üyelik Bitiş Tarihi
23-08-2025
Excelde , bir sayfada renge bağlı olarak dizilmiş değerlerin sayısını bulmak istiyorum..



ör. A1:A500 kadar farklı renklerde "10" ,"11".... gibi değerler olsun . Bunların rengine göre her birinden kaç tane olduğunu bulmak istiyorum.
 

hamitcan

Uzman
Uzman
Katılım
1 Temmuz 2004
Mesajlar
7,761
Excel Vers. ve Dili
Excel 2019 Türkçe
Farklı renkleri saymak mı istiyor sunuz ? Çok anlaşılmıyor
 
Katılım
1 Eylül 2015
Mesajlar
6
Excel Vers. ve Dili
temel
Altın Üyelik Bitiş Tarihi
23-08-2025
Excelde , bir sayfada renge bağlı olarak dizilmiş değerlerin sayısını bulmak istiyorum..



ör. A1:A500 kadar farklı renklerde "10" ,"11".... gibi değerler olsun . Bunların rengine göre her birinden kaç tane olduğunu bulmak istiyorum.
 
Katılım
1 Eylül 2015
Mesajlar
6
Excel Vers. ve Dili
temel
Altın Üyelik Bitiş Tarihi
23-08-2025
merhaba .
Farklı Renkleri Saymak değil . Farklı renkte olan değerlerin sayısını bulmak istiyorum.

ör,:aktif sayfada kırmızı ,siyah ve sarı fontta rakamlar var. Bu rakamlardan aynı değer ve renkte olanların sayısını istiyorum.
 
Katılım
1 Eylül 2015
Mesajlar
6
Excel Vers. ve Dili
temel
Altın Üyelik Bitiş Tarihi
23-08-2025
Hamit bey teşekkürler..

Göndermiş olduğunuz makrolar sorumun bir kısmını çözmüş oldu. Yani sayfada renge göre kaçtane değer olduğunu bulabiliyorum. Ancak tabloda aynı renkte olan farklı numeric değerler var. Ben seçilmiş tabloda kırmızı "10 "değerinin sayısını bulmak istiyorum..
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
43,520
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Deneyiniz.

Kullanım şekli;

=FRGK_SAY(Hücre_Aralığı;Renk_Kodu;Kriter)

Kod:
Option Explicit

Function FRGK_SAY(Alan As Range, Renk_Kodu As Long, Kriter As Variant)
    Dim Veri As Range
   
    Application.Volatile True
   
    For Each Veri In Alan
        If Veri.Value = Kriter Then
            If Veri.Font.ColorIndex = Renk_Kodu Then
                FRGK_SAY = FRGK_SAY + 1
            End If
        End If
    Next
End Function
 
Katılım
1 Eylül 2015
Mesajlar
6
Excel Vers. ve Dili
temel
Altın Üyelik Bitiş Tarihi
23-08-2025
Korhan Bey ,
Teşekkürler...
Aradığım sonuca ulaştım..
Kolay gelsin
 
Üst