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.