Merhaba
Birbiri ile bağlantılı 2 sorum var.

excel'de belli bir alandaki hücrelerde yer alan sayıları otomatik olarak renklendirme.

örnegin: a1- 1, a2-2 a4-6, a5-9 a6-10 a7-0 olsun. A sutunundaki hücrelerdeki 0 olan ve 6 ve 6dan büyük 11'den küçük değerleri yeşil ile boyansın istiyorum.

ikinci sorum ise: boyanan hücrelerin toplamını yapmak istiyorum. ( boyalı alanların sum yapmasın, count etsin.)

tesekkurler

Örneğiniz nerede? Defalarca belirttik sizin yerinize çalışmaları biz yapmıyoruz. Çalışmanızı yapın takıldığınız yeri örneğiniz ile ne yapmak istediğinizi nasıl bir hata ile karşılaştığınızı belirterek sorun aksi halinde konu çöp kutusuna taşınacaktır.

AccessTr Forum Kuralları'nı dikkatle inceleyin.

3-a) Sorulara örnek uygulama eklemek zorunludur.
Uyarı Bitiş Süresi : 4 Ay,
Uyarı Seviyesi +2

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.

(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.

Private Sub CommandButton1_Click()



Dim son As Long, i As Byte, say As Byte, x As Long



With ThisWorkbook.Sheets("Sayfa1")

    son = .Cells(Rows.Count, 1).End(3).Row

    If son < 2 Then Exit Sub

    .Range("H2:H" & Rows.Count).Clear

    .Range("B2:F" & son).Interior.ColorIndex = xlColorIndexNone

    For x = 2 To son

        say = 0

        If Trim(.Cells(x, 1).Value) <> "" Then

            For i = 2 To 6

                If .Cells(x, i).Value >= 6 And .Cells(x, i).Value < 11 Then

                    .Cells(x, i).Interior.Color = vbGreen: say = say + 1

                End If

            Next

            .Cells(x, "H").Value = say

        End If

    Next

End With

End Sub

Sayın feraz hocam 0 (Sıfır) değerlerindeki yeşilleri saymıyor.