Hedef sayı kadar renklensin

[CenTay]

Selamlar arkadaşlar,

Örnek olarak e2:L11 arasındaki tabloda E sütunundaki rakamlara göre hücre renklensin istiyorum, Örnek, e2 de 1 varsa f2, e3 te 3 varsa f3, g3 ve h3 gibi teşekkürler arkadaşlar.

 

[AdemCan]

Örnek kod.
E sütununa değerler formül ile gelmektedir.
Kullanmak istediğiniz sayfanın kod bölümüne eklemeniz yeterli.

Private Sub Worksheet_Calculate()
Dim s1 As Worksheet, i As Byte, s As Byte, x As Byte
Set s1 = ActiveSheet
s1.Range("F2:L11").Interior.Color = xlNone
For i = 2 To 11
    x = s1.Cells(i, 5)
    If x > 0 Then
    If x > 7 Then x = 7
        For s = 6 To 5 + x
            s1.Cells(i, s).Interior.Color = vbYellow
        Next s
    End If
Next i
End Sub

Spoyler: Sonuç

 

[Ömer]

Merhaba,

F2:L11 koşullu biçimlendirme formül.

=$E2>=SÜTUNSAY($F2:F2)

.

 

[CenTay]

Değerli hocalarım çözümler için her ikinize de ayrı ayrı teşekkür ediyorum, sağolasınız.