Soru Koşullu Biçimlendirme ve Renk Saydırma

[metalog]

Merhaba arkadaşlar,

Ben bir süredir yaptığım bir uygulamayı nihayetlendirmek üzereyim ancak uygulama dahilinde çalışanların yıllık izin hakedişlerine yönelik gelecek tarihler için koşullu biçimlendirme ile

=BUGÜN()=TARİH(2019;8;16)

şeklinde bir formül kullanarak hücreleri renklendirdim. Hakediş günü gelince o kişinin karşısındaki hücre renk değiştiriyor. Eski tarihler için direk kendim dolgu rengi ile renklendirdim. Ve yıl sonu izinlerinde hesaplama yaparken renk saydırdım ancak koşullu biçimlendirme ile oluşan renkleri saymıyor bir türlü.

Sitede benzer konuları tek tek inceledim ancak tam olarak istediğimi bulamadım.
Formda şu şekilde aktarılan bilgiler mevcut.

Bildiğim kadarıyla yerleşik işlevlerin kullanıldığı formüllerle RENK işlemi yapılamıyor.
Bunun için VBA kod'ları veya KTF oluşturulması gerekiyor.

Yerleşik işlevlerle sayma yapmak için ise kullanılan koşullu biçimlendirme formülünü değerlendirmek ve
ona göre formül oluşturmak gerekir.

Koşul sonucu renklenen hücrelerin arka plan rengi aslında değişmemektedir. Bu sebeple bu renkleri saydırabilmek için özel fonksiyon yazmak gerekmektedir. Bu foksiyonda da sizin oluşturmuş olduğunuz koşullar sorgulanacağı için bence buna gerek yoktur. Bunun yerine rengi gözardı edip sizin koşullarınızı formül içine adapte ederek sayma işlemleri yaptırılabilir.

Yukarıdaki arkadaşların da yazdığı gibi formüle göre kod yazmak gerekiyor anladığım kadarıyla.

Çalışmamın benzer bir örneğini sadeleştirip ekledim ve daha detaylı açıkladım. İnceleyip yardımcı olursanız sevinirim.

 

[çıtır]

Koşullu biçimlendirme dolgu renklerini saydırmak için aşağıdaki kalıbı kullanmalısınız.(örn DisplayFormat.Interior.ColorIndex=3 gibi)

DisplayFormat.Interior.ColorIndex

 

[metalog]

Koşullu biçimlendirme dolgu renklerini saydırmak için aşağıdaki kalıbı kullanmalısınız.(örn DisplayFormat.Interior.ColorIndex=3 gibi)

DisplayFormat.Interior.ColorIndex

Benim renk saydırdığım kod şu şekilde:

Function Renkli_Hucreleri_Say(bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
    Dim xcolor As Long
    xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
    For Each datax In bolge
        If datax.Interior.ColorIndex = xcolor Then
            Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
        End If
    Next datax
End Function

Ben göndermiş olduğunuz kalıbı içerisine ekleyip aşağıdaki şekilde düzenlediğim de bu sefer #DEĞER! hatası alıyorum.

Function Renkli_Hucreleri_Say(bolge As Range, Hangi_Rengi_sayacagim As Range) As Long
    Dim xcolor As Long
    xcolor = Hangi_Rengi_sayacagim.Interior.ColorIndex
    For Each datax In bolge
        If DisplayFormat.Interior.ColorIndex = xcolor Then
            Renkli_Hucreleri_Say = Renkli_Hucreleri_Say + 1
        End If
    Next datax
End Function

Vermiş olduğum renk saydırma kodunu hatayı almamam için nasıl düzenlemem gerekiyor?

 

[Korhan Ayhan]

Önerilen kod sizin renk fonksiyonu içinde çalışmaz.

Benim yaptığım daha önceki açıklamadaki gibi tarihle ilgili koşulları saydırabilirsiniz.

 

[metalog]

Önerilen kod sizin renk fonksiyonu içinde çalışmaz.

Benim yaptığım daha önceki açıklamadaki gibi tarihle ilgili koşulları saydırabilirsiniz.

Sizin açıklamanızı da uyguladım ama hata verdi.

Benim uygulamamda şöyle bir formül var:
=TOPLA(ÇARPIM(Renkli_Hucreleri_Say(Q31:OB31;OD31);OD31)+(K31-(Renkli_Hucreleri_Say(Q31:OB31;OE31:OI31))))

Ben sizin göndermiş olduğunuz makroları ekleyipte formülü aşağıdaki gibi değiştirdiğimde sonuç ya 0 çıkıyor ya da #DEĞER! hatası veriyor
=TOPLA(ÇARPIM(KB_RENKSAY(Q31:OB31;OD31);OD31)+(K31-(KB_RENKSAY(Q31:OB31;OE31:OI31))))
ama doğru sonuç 16 çıkmalı mesela. Yani dolgu rengini kendim verdiğimde 16 çıkıyor dolgu rengi olmayınca da diyelim ki 2 olması gerekirken her şekilde 0 çıkıyor

 

[metalog]

Arkadaşlar uzun bir süredir araştırıyorum ama maalesef henüz bir çözüm bulamadım.

Yardımcı olursanız çok sevinirim.

 

[ynstcrt]

İyi günler iyi çalışmalar.
Ben de aynı sıkıntıyı yaşıyorum. Bunun çözümü nedir acaba. 2010 versiyon kullandığım için DisplayFormat.Interior.ColorIndex çalışmıyor.

 

[Korhan Ayhan]

Merhaba,

DisplayFormat.Interior.ColorIndex komutu 2010 sürümde çalışması gerekir. Bu komut KTF dediğimiz kullanıcı tanımlı fonksiyonlarda çalışmamaktadır.

KTF yerine normal makro kodu ile sonuç alabilirsiniz.

Option Explicit

Sub Count_Cells_Colored_With_Conditional_Formatting()
    Dim Rng As Range, Count As Long
   
    For Each Rng In Sheets("Sheet1").Range("A1:Z1000")
        If Rng.DisplayFormat.Interior.ColorIndex = 6 Then
            Count = Count + 1
        End If
    Next
   
    MsgBox "Alandaki sarı renkli hücre sayısı ; " & Format(Count, "#,##0")
End Sub

Ek olarak linki incelebilirsiniz.

Hücre arkaplanına göre RENKSAY çalışmıyor

MErhaba, Fotoğrafta görüldüğü üzere 5 farklı renkten oluşan bir tablom var. Ben bu renklere sahip hücreleri saydırmak istiyorum. Bunun için şu kodu kullanıyorum ; Sub s() Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean) Dim rCell As Range Dim lCol As Long Dim...

www.excel.web.tr