Harita üzerindeki değerlerin şarta bağlı renklenmesi

[levoni]

Değerli Hocalarım günaydın,
Ekte gönderdiğim dosya daha önce bu siteden başka bir arkadaşın geliştirdiği emek verdiği bir çalışmadır.Bende bu güzel çalışmayı kendi çalışmamda kullanmak istiyorum şöyleki;
Daire içindeki rengi şarta bağlı olarak renklendirebilirmiyiz.Örneğin 500 den küçük ise dairenin içersindeki renk KIRMIZI olsun şeklinde.Ben biraz uğraştım ama maalesef hiç bir şekilde yapamadım.

Yardımcı olabilirseniz çok teşekkür ederim.

 

[levoni]

Merhaba Günaydın,
Acaba bu konuda yardımcı olabilmeniz mümkün mü ?

 

[Ömer]

Daire içindeki rengi şarta bağlı olarak renklendirebilirmiyiz.Örneğin 500 den küçük ise dairenin içersindeki renk KIRMIZI olsun şeklinde.

Merhaba,

Module kopyalayıp çalıştırın.

Sub Renk()
 
    Dim oval As Shape
 
    For Each oval In ActiveSheet.Shapes
 
        oval.Select
        If Selection.Name Like "*Oval*" Then
            If Selection.Text < 500 Then
               Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10
            Else
               Selection.ShapeRange.Fill.ForeColor.SchemeColor = 44
            End If
        End If
 
    Next oval
 
    Range("A1").Select
 
End Sub

.