Şekil Gölge Rengini Değiştirme Hk.

[emre311]

Merhaba;
A1 Hücresindeki oran %80 üzerindeyse "Oval1" şeklinin gölge rengi yeşil , %50 ile %80 arasındaysa sarı ve %50 altında ise kırmızı yapmak istiyorum. Sayfa değiştiğinde çalışsın istiyorum. Yardımcı olacak arkadaşlara şimdiden teşekkürler.
İyi çalışmalar.

 

[veyselemre]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$1" Then Exit Sub
    ActiveSheet.Shapes.Range(Array("Oval 1")).Select
    With Selection.ShapeRange.Shadow
        Select Case [a1]
            Case Is < 0.5
                .ForeColor.RGB = RGB(255, 0, 0)
            Case 0.5 To 0.8
                .ForeColor.RGB = RGB(255, 255, 0)
            Case Else
                .ForeColor.RGB = RGB(0, 255, 0)
        End Select
    End With
    [a1].Select
End Sub

 

[emre311]

Çok teşekkür ederim.