Koşullu olarak veriyi boyama

[ehopkins]

arkadaşlar merhaba,
benim koşullu biçimlendirme için makroya ihtiyacım var,, ekteki dosyada örnek bir tablo var. bu tabloda bazı hücrelerde Q, R gibi büyük harfler var. bu buyuk harflerin oldugu hücrenin üstündeki sayıyı yeşile boyayacak bir makro yazabilirseniz çok sevinirim..Sevgiler..

 

[sbayyigit]

Sub DENEME()

Set s1 = Sheets("Sheet1")
sat = s1.[c65000].End(3).Row
sut = s1.Cells(3, 256).End(xlToLeft).Column
For a = 2 To sat + 1
For b = 2 To sut
If Cells(a, b).Text = "R" Or Cells(a, b).Text = "Q" Then
With Cells(a - 1, b).Interior
.Color = 255
End With

End If
Next
Next
End Sub

Bu kodla Q ve R harfi gören yerin bir üstündeki hücrenin arka planını kırmızı renge boyarsın.

 

[ehopkins]

çok teşekkürler arkadaşım, eline sağlık..ancak zahmet olmazsa bir soru daha sorabilir miyim? makroyu temel alarak biliyorum fakat karmaşık ihtiyaçlarda zorlanıyorum; ikinci bir sorum : diyelim ki A2'de X, D5'de ise Y olsun, X ve Y yi bulup arasında kalan bölgeyi(A2: D5) maviye boyatacak bir kod zormudur? (hücrelerin A2 ve D5 oldugunu bilmiyoruz ama sheet de X ve Y yi arayacak) çok teşekkur ederim..