GRAFİK HAKKINDA

[MEDYA]

GRAFÝK HAKKINDA

Arkadaşlar.
Merhaba

Excel dosyasında bir grafik yaptım ,grafikte hedefler belirtim ,belirlene hedeflerin altına inen rakamlarda grafik renginin kırmızı ,hedeflenen rakamın üzerinde olması durumunda yeşil reng almasını istiyorum.Fakat bunu başaramadım renkleri hergün elle değiştirmek durumunda kalıyorum . Konu hakkında yardımcı olabilirseniz sevinirim.
Teşk

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

[vb:1:dd3b4ba780]Sub renklendir()
Application.ScreenUpdating = False
Set s1 = Sheets("ADNAN GRAFİK DATA")
Set s2 = Sheets("ADNAN GRAFİK")
s2.Select
For a = 3 To 33
ActiveChart.SeriesCollection(1).Points(a - 1).Interior.ColorIndex = 4
If s1.[AI3] > s1.Cells(3, a) Then
ActiveChart.SeriesCollection(1).Points(a - 1).Interior.ColorIndex = 3
End If
Next
End Sub
[/vb:1:dd3b4ba780]

 

[MEDYA]

Ã?ncelikle Teşekkür ederim dosyayı inceledim ellerine sağlık,yanlız makro tuşuna basmadan değer girildiği zaman renklendirme imkanı varmı.
Teşk

 

[Levent Menteşoğlu]

Elbette mümkün, ekteki dosyayı inceleyin.

 

[MEDYA]

Mükemmelsin.
Teşekkürler.