eğer formülüyle renkleri ayarlamak

[yunka]

sorunum ekli dosyada mevcuttur 4 veya 3 sütundaki renkler aynı olunca
yan sütundaki hücreye uyarı verdirebilirmiyim.saygılar.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Dosyadaki makro fiilen dolgu rengi uygulanmış hücreleri kontrol eder. Koşullu biçimlendirme ile renklenmiş hücrelerde çalışmaz.

Renk değişimlerinde F9 tuşuna basarak formül sonucunu güncelleyebilirsiniz.

Uygulanan kod;

Option Explicit
 
Function RENK_SAY(Aralık As Range, Ölçüt As Range)
    Dim Hücre As Range
    
    Application.Volatile True
        
    For Each Hücre In Aralık
        If Hücre.Interior.ColorIndex = Ölçüt.Interior.ColorIndex Then
            RENK_SAY = RENK_SAY + 1
        End If
    Next
End Function

 

[Merhum İdris SERDAR]

.

Ben de bir örnek yaptım.

Boşa gitmesin.


.

 

[yunka]

teşekkür

siz harika insanlar gönülden teşekkürler