Hücre değerine göre satır renklendirme

[BlueRiver]

Merhaba,
hücre değerine göre o satırda belli bir aralıkta satır dolgu rengini ve font rengini değiştirmek istiyorum,
örneğin H sütununda H3 ile H50 arasında formül var ve değerler oluşuyor, herhangi bir hücrenin değeri 10 dan büyük olursa sadece ilgili satırda B sütunundan J sütununa kadar hücreler sarıya boyansın font rengi lacivert ve bold olsun,
ilgili satırda H sütunundaki hücre değeri 10 un altına inerse normal haline dönsün (hücre dolgusu ve font rengi sayfanın genel özelliklerine dönsün)

ilginize şimdiden teşekkür ederim.

 

[BlueRiver]

Not: koşullu biçimlendirme kullandım çok kolay ve güzel ancak ben makro ile yapmak istiyorum,
teşekkürler

 

[ÖmerBey]

Merhaba, deneyiniz.

Sub kod()
Dim a As Byte
For a = 3 To 50
    If Cells(a, "H") >= 10 Then
        With Range("B" & a & ":J" & a)
            .Interior.ColorIndex = 6
            .Font.ColorIndex = 25
            .Font.Bold = True
        End With
    Else
        With Range("B" & a & ":J" & a)
            .Interior.ColorIndex = 0
            .Font.ColorIndex = 1
            .Font.Bold = False
        End With
    End If
Next
End Sub

 

[BlueRiver]

Merhaba, deneyiniz.

Sub kod()
Dim a As Byte
For a = 3 To 50
    If Cells(a, "H") >= 10 Then
        With Range("B" & a & ":J" & a)
            .Interior.ColorIndex = 6
            .Font.ColorIndex = 25
            .Font.Bold = True
        End With
    Else
        With Range("B" & a & ":J" & a)
            .Interior.ColorIndex = 0
            .Font.ColorIndex = 1
            .Font.Bold = False
        End With
    End If
Next
End Sub

makro tam istediğim gibi çalışıyor, 10 dan küçükse çalışmıyor, büyükse boyama ve font değişikliği yapıyor.
çok önemli değil ancak merakımdan soruyorum makroda "If Cells(a, "H") >= 10 Then" şeklinde belirtildiği halde H sütununda 10 dan büyük sayı yerine herhangi bir karakter yazarsanız da boyama işlemi gerçekleşiyor, sebebi ne olabilir.


ilginize çok teşekkürler ederim, emeğinize sağlık,

 

[ÖmerBey]

Metin değeri sayıdan büyük olarak algılanır, dolayısıyla yazılan her metin değeri 10 sayısından büyük olacağı için işlem yapılıyor. Sadece sayılarda işlem yapılmasını istiyorsanız ilgili kod satırını şu şekilde düzenleyiniz:

If IsNumeric(Cells(a, "H")) And Cells(a, "H") >= 10 Then

 

[BlueRiver]

Metin değeri sayıdan büyük olarak algılanır, dolayısıyla yazılan her metin değeri 10 sayısından büyük olacağı için işlem yapılıyor. Sadece sayılarda işlem yapılmasını istiyorsanız ilgili kod satırını şu şekilde düzenleyiniz:

Tekrar teşekkür ederim, iyi akşamlar

 

[ÖmerBey]

Rica ederim,
İyi akşamlar, iyi çalışmalar...

 

[41AFU52]

Merhaba,
Aşağıdaki videoyu izleyerek Makro kullanmadan herhangi bir hücre değerine bakarak tüm satırın veya bir hücrenin nasıl boyandığını rahatlıkla öğrenip uygulayabilirsiniz. Ayrıca koşullu biçimlendirmenin farklı örnekleri de mevcuttur.