Skip to main content

AccessTr.neT


Excel'de Hücre Değerine Göre Renklendirmek

Excel'de Hücre Değerine Göre Renklendirmek

Çözüldü #1
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
Cevapla
#2
Ö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
Cevapla
#3
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.
.rar deneme1.rar (Dosya Boyutu: 7,96 KB | İndirme Sayısı: 8)
Cevapla
#4
(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.
.rar deneme1_hegu.rar (Dosya Boyutu: 8,3 KB | İndirme Sayısı: 4)
Son Düzenleme: 29/10/2021, 17:38, Düzenleyen: hegu.
Cevapla
#5
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
Cevapla
#6
Sayın feraz hocam 0 (Sıfır) değerlerindeki yeşilleri saymıyor.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da