Eğer, Satır say ve renkli hücreyi birlikte kullanma

[ilhanfire]

merhaba arkadaşlar eğer formülünü kullanarak sarı renkli olan satırları satır say formülünden de yararlanarak bulabilirmiyiz.

10 tane sarı 15 tane kırmızı satır var diyelim. kısım olarak da a ile b var olsun.

eğer kısım da a yazıyor ve hücre rengi sarı ise x tane satır var.
eğer kısım da b yazıyor ve hücre rengi sarı ise y tane satır var.

eğer kısım da a yazıyor ve hücre rengi kırmızı ise z tane satır var.
eğer kısım da b yazıyor ve hücre rengi kırmızı ise q tane satır var.

gibi herhangi birinin kodunu oluşturabilirmiyiz.

ben biraz uğraştım ama renk kodlarını formüle nasıl yazabileceğimi bilmediğimden tamamlayamadım.

=Eğer(ve(satırsay(renk kodları);kısım a ise);x tane satırların adedi;0 tane satır var)

yardım ederseniz sevinirim.

 

[Necdet]

Merhaba,

Renkli Hücreleri Topla ve Say adlı linki inceleyebilirsiniz.

 

[ilhanfire]

teşekkürler verdiğiniz link işime yaradı. kolay gelsin

 

[ilhanfire]

yapamadığım birşey var. verdiğiniz kod ile tüm sarı renkli hücreleri yada tüm kırmızı renkli hücreleri bulabiliyorum. benim şöyle bir formüle ihtiyacım var.

c:c sütununda a yazan bütün hücrelerin sarı olanlarının adedi
c:c sütununda b yazan bütün hücrelerin kırmızı olanlarının adedi vb.

bu tür bir formüle ihtiyacım var

Public Function RenkSayN(Dizi As Range, Ornek_Hucre)
Toplam = 0
For Each Hucre In Dizi
If Hucre.Font.ColorIndex = Ornek_Hucre.Font.ColorIndex And _
Hucre.Interior.Color = Ornek_Hucre.Interior.Color And IsNumeric(Hucre) = True And _
Hucre.Font.Bold = Ornek_Hucre.Font.Bold And _
Hucre.Font.Italic = Ornek_Hucre.Font.Italic And _
Hucre.Font.Underline = Ornek_Hucre.Font.Underline And _
Hucre.Font.Size = Ornek_Hucre.Font.Size And _
Hucre.Font.Name = Ornek_Hucre.Font.Name Then
Toplam = Toplam + 1
End If
Next
RenkSayN = Toplam
End Function

BU KODUN İÇİNE SANIRIM BİRDE ÖRNEK HÜCRE İÇERİĞİNDE X YAZIYORSA RENGİNİ DE GÖZ ÖNÜNDE BULUNDURARAK SAY gibi bişey yazmalıyız.

örnek dosyayı ekledim. yardımcı olursanız sevinirim.

 

[Necdet]

Merhaba,

Küçük bir eklenti ile yapmanız olası, ben içerik olarak değil renklerle ilgili olarak yazmıştım, ekte değeri de kattım. Aşağıdaki kodları deneyiniz.

Public Function RenkSayN(Dizi As Range, Ornek_Hucre, [B][COLOR=red]Değer As String[/COLOR][/B])
Toplam = 0
For Each Hucre In Dizi
    If Hucre.Font.ColorIndex = Ornek_Hucre.Font.ColorIndex And _
        Hucre.Interior.Color = Ornek_Hucre.Interior.Color And _
        Hucre.Font.Bold = Ornek_Hucre.Font.Bold And _
        Hucre.Font.Italic = Ornek_Hucre.Font.Italic And _
        Hucre.Font.Underline = Ornek_Hucre.Font.Underline And _
        Hucre.Font.Size = Ornek_Hucre.Font.Size And _
        Hucre.Font.Name = Ornek_Hucre.Font.Name And _
        [B][COLOR=red]Hucre = Değer[/COLOR][/B] Then
        Toplam = Toplam + 1
    End If
Next
RenkSayN = Toplam
End Function

 

[ilhanfire]

#DEĞER! hatası veriyor. yeni bir dosyada AddIns olarak çalışacak şekilde ekleyebilirmisiniz. yada nasıl çözebiliriz ?

Değer yazan kısıma bir değer mi gireceğiz yoksa değeri kendisi algılıyor ama kod da mı bir problem var ?

Teşekkür ederim.

 

[ilhanfire]

tamam yaptım. 3. değeri girmediğim için olmuyormuş

=RenkSayN(A1:A9;D1;"213")

böyle yazınca oldu.

Teşekkür ederim saatlerce uğraştım ama olsun bilginin tadı böyle çıkıyor.

 

[ilhanfire]

merhaba biraz yorum yapmak istedim.
biz paylaştırılmış bir excel dosyasında iş takibi yapıyoruz ve hangi işten ne kadar çıktığını öğrenmek için bu formülden yararlandık.

1. paylaşımdan dosyayı gören diğer kullanıcılarda addIn eklentimiz olmadığı için verileri ##### şeklinde görüyorlar yani formül tanınmıyor. ama diğer kullanıcıların excel lerine de bu eklentiyi tanıtınca sorun kalmıyor.

2. dosya çok geç açılıyor abartısız 7-8 dk alıyor. 2000 satır yazımız var formül de de 10000 e kadar göstermeme rağmen çok geç açılıyor.

biz de normal olarak bu eklentiyi kullanamadık.

belki daha hızlı açılacak ve sistemi kasmayacak başka denemeler üzerinde çalışılmalıdır ?

Tekrar teşekkür ederim

kolay gelsin