Koda sıfır şartı eklememiştim.Mobilden ayarlayayım deneyin abey.

---

(.Cells(x, i).Value >= 6 And .Cells(x, i).Value < 11) or .cells(x,i).value = 0

Yukardaki gibi deneyin abey

Feraz hocam emeğine sağlık . Hocamın yordamını örnekte yapılmış hali. Benim önceki örnekte iş görür mü?

Rica ederim abey

---

(29/10/2021, 17:06)hegu yazdı: renksay formülü

Bunu yerine KTF yazılır formül gibi kullanılabilir abey.

---

Formül böylede olur abey çokeğersay kullanılmadan ve eğersay kullanılmadan.

=TOPLA.ÇARPIM((B2:F2>=6)*(B2:F2<11)+(B2:F2=0))

Böylede oluyor ama 10 yazanı parantez içine aldıramadım kısa olması için.

If .Cells(x, i).Value Like "[6-9 0]" Or .Cells(x, i).Value = 10 Then

(29/10/2021, 17:06)hegu yazdı:

(29/10/2021, 02:26)Registered yazdı: Ekte belirttim, 1.haftayı elle manuel boyadım, boyanan alanların sag tarafına kac hücre boyandı ise yine manuel yazdım.

2. haftayı otomatik yapmak istiyorum. 2. haftada yeralan sayıların 6 ve 6'dan büyük ve 11'den küçük sayıları otomatik olarak yeşile boyamak ve H sutunun o satırda kac  adet yeşil hücre varsa otomatik sayılarak H sutününa belirtilmesini istiyorum.

renklendirmeyi koşullu biçimlendirme ile yaptım. Fakat renkleri saydırma yapamadım. Koşullu biçimlendirmede renksay formülü renkleri saymıyor. Fakat farklı bir formül ile değerleri saydırmayı başardım. İnşallah olmuştur.

Tesekkur ederim, eline saglık işimi gordu. Diğer kafa yoran arkadaslarada tesekkur ederim. Yalnız aklıma bişey takıldım herhangibir alandaki renkli hücreleri saymak istesek, yazdıgınız bu formulleri nereye yapıstırmamız ve calistirmamiz gerekecek?