GRAFİK HAKKINDA

Katılım
27 Eylül 2005
Mesajlar
10
Excel Vers. ve Dili
2016
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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]
 
Katılım
27 Eylül 2005
Mesajlar
10
Excel Vers. ve Dili
2016
Ã?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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,030
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Elbette mümkün, ekteki dosyayı inceleyin.
 
Katılım
27 Eylül 2005
Mesajlar
10
Excel Vers. ve Dili
2016
Mükemmelsin.
Teşekkürler.
 
Üst