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

[hadromer]

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 vResult
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = WorksheetFunction.SUM(rCell, vResult)
End If
Next rCell
Else
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
vResult = 1 + vResult
End If
Next rCell
End If
ColorFunction = vResult

ancak tablodaki renkler başka bir makro çalışması sonucu elde edildiği için tekrardan tek tek arka planı dolgu seçeneği ile renklendirmeden o renkleri algılamıyor. Bu sorunu nasıl çözebilirim ? Örnek dosya ekleyecektim ancak değerleri kopyala yapıştır yapınca renkler kayboluyor. Yardımlarınız için teşekkürler şimdiden.

 

[YUSUF44]

Dolgu renkleri koşullu biçimlendirmeyle mi oluşuyor?

 

[hadromer]

Dolgu renkleri koşullu biçimlendirmeyle mi oluşuyor?

Dolgu renkleri şuradaki konuda belirttiğim özelliklere göre oluşuyor ; KONU LİNKİ
Konu içerisinde oluşturulan dosya : DOsya Linki

 

[YUSUF44]

Evet tahmin ettiğim gibi koşullu biçimlendirmeyle oluşturulmuşlar.

Bu durumda koşullu biçimlendirmedeki şartları makroda ya da EĞERSAY/ÇOKEĞERSAY formülünde kullanmanız gerekir.

 

[hadromer]

Evet tahmin ettiğim gibi koşullu biçimlendirmeyle oluşturulmuşlar.

Bu durumda koşullu biçimlendirmedeki şartları makroda ya da EĞERSAY/ÇOKEĞERSAY formülünde kullanmanız gerekir.

ben bunu nasıl yapacağımı bulamadım

 

[ÖmerFaruk]

Dosyanız mevcut haliyle paylaşabilirmisiniz

 

[hadromer]

Dosyanız mevcut haliyle paylaşabilirmisiniz

buyrun https://s7.dosya.tc/server19/7e46xu/CF_Tablo.xlsx.html

 

[YUSUF44]

Farkında mısınız bilmiyorum ama bu dosya ile ilk mesajınızdaki görsel aynı yapıda değil!

 

[Korhan Ayhan]

Merhaba,

Ekteki dosyada hücrelerin koşullu biçimlendirme renklerini sorgulayan bir kod hazırladım. Butona tıklayarak sonuçlara ulaşabilirsiniz.

Harici Link (Silinebilir) ; https://dosyam.org/2EIa/CF_Tablo.xlsm

 

[hadromer]

Merhaba,

Ekteki dosyada hücrelerin koşullu biçimlendirme renklerini sorgulayan bir kod hazırladım. Butona tıklayarak sonuçlara ulaşabilirsiniz.

Harici Link (Silinebilir) ; https://dosyam.org/2EIa/CF_Tablo.xlsm

Çok teşekkür ederim tam istediğim gibi olmuş elinize sağlık

 

[Merhum İdris SERDAR]

.

Benden de bir alternatif.

Dosyada bir yardımcı tablo kullanılmıştır.

Bu tabloda koşullu biçimlendirme renklerinin Access kodları aşağıdaki KTF'lerle bulunmuştur.

Function KRenk(ByVal A As Range) As Double
    Application.Volatile
    KRenk = Evaluate("ri(" & A.Address() & ")")
End Function


Private Function ri(ByVal A As Range) As Double
    ri = A.DisplayFormat.Interior.Color
End Function

Access kodları için bakınız:

BİLGİSAYARDA RENK UZAYI – RGB RENK SİSTEMİ – Excel Gurusu

Dosyanız burada.

İndir Tablo (3)

Dosyayı indir Tablo (3)

dosya.co

.

 

[hadromer]

.

Benden de bir alternatif.

Dosyada bir yardımcı tablo kullanılmıştır.

Bu tabloda koşullu biçimlendirme renklerinin Access kodları aşağıdaki KTF'lerle bulunmuştur.

Function KRenk(ByVal A As Range) As Double
    Application.Volatile
    KRenk = Evaluate("ri(" & A.Address() & ")")
End Function


Private Function ri(ByVal A As Range) As Double
    ri = A.DisplayFormat.Interior.Color
End Function

Access kodları için bakınız:

BİLGİSAYARDA RENK UZAYI – RGB RENK SİSTEMİ – Excel Gurusu

Dosyanız burada.

İndir Tablo (3)

Dosyayı indir Tablo (3)

dosya.co

.

bu da çok güzel olmuş. iki dosyayı da kullanacağım teşekkür edeirm.

 

[Merhum İdris SERDAR]

.

Daha geniş bilgi için bakınız:

https://www.excel.web.tr/threads/kosullu-bicimlendirme-conditional-formatting-cfr-ile-renklendirilmis-huecre-renk-kodunun-bulunmasi.196471/

.

.