Grafik çubuklarının koşullu renk değiştirmesi

[batuhanoc]

Arkadaşlarım merhaba,

Excell sayfasında belirli hücrelerden bir grafik oluşturuyorum. Bu hücrelerdeki rakamlar devamlı değişiyor. Bu kaynaktan oluşan grafik çubuğunun hücredeki okuduğu rakama göre renk değiştirmesi (koşullu biçimlendirme gibi) mümkünmüdür. Yani hücrede 100 yazarken yeşil fakat 70 in altına düştüğünde grafik çubuğu kırmızı olabilirmi. Yardımlarınız için şimdiden teşekkürler.

 

[omerceri]

Sayfa1'in kod sayfasındaki kodları ihtiyacınıza göre düzenleyebilirsiniz.

 

[batuhanoc]

Teşekkürler

Sayfa1'in kod sayfasındaki kodları ihtiyacınıza göre düzenleyebilirsiniz.

İlginiz için çok teşekkür ederim.

 

[KAYA212]

ekteki dosya

Sayfa1'in kod sayfasındaki kodları ihtiyacınıza göre düzenleyebilirsiniz.[/QUOT
merhaba
bu dosyada problem var sanirim calismiyor

 

[omerceri]

Dosyayı Forumdan indirerek denedim. Çalışıyor.

 

[cenkatli]

Omerceri Bey.
Bende De Calismadi Tekrar Kontrol Edebilirmisiniz

 

[omerceri]

Ne hata veriyor belirtirmisiniz.

 

[batuhanoc]

İstediğim renkler

Ömer Çeri hocam göndermiş olduğunuz grafik çalışıyor. Uyarladım fakat bir türlü istediğim renk format yada kodunu bulamadım. Grafikte çubuklarda gölgelendirme kullanıyorum.Onu yapamadım. Ekte istediğim formatın örneği var. Sizden son olarak benim kullanmış olduğum formata bakarak bir kod tavsiye edebilirmisiniz. Yardımlarınız için tekrar teşekkür ederim

 

[omerceri]

Kodu aşağıdaki şekilde değiştirirseniz.
Hata çalışmıyor diyen arkadaşların dili ingilizce bundan kaynaklanıyor olabilir.

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.ChartObjects(1).Activate
If ActiveSheet.Range("A2") < 70 Then
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = 3
Else
ActiveChart.SeriesCollection(1).Points(1).Interior.ColorIndex = 50
End If
End Sub

 

[omerceri]

Dosyanızın değiştirilmiş hali ekte

 

[batuhanoc]

Teşekkürler

Dosyanızın değiştirilmiş hali ekte

Ömer Çeri bey çok teşekkür ederim. Ellerinize sağlık mükemmel çalışıyor.

 

[blazer2004]

arkadaşlar bir sorum olacak peki bu grafik üzerinde alt limitte kırmızı ideal limitte ise yeşil yapma makrosu ben bunu çubuk grafik değilde çizgi grafiğinde uygulayabilirmiyim..

 

[Barons]

Merhaba
Sn.Omerceri ekteki örnek çok güzel...peki şu şekildede yapılabilirmi?
örnek:70 değerinin altı kırmızı ama 70 üstü yeşil fakat komple değişmeyecek...yani çubuğun 70 altı kırmızı üstü yeşil olacak.çift renkli demek istiyorum.(makro ile)

teşekkürler

 

[Barons]

Birde sadece A2 için değilde a2:a20 arası komple değişecek şekilde ayarlanabilirmi?

 

[parametre]

link guncellenebilirmi

 

[esrefm]

Dosyanızın değiştirilmiş hali ekte

dosyayı görüntüleyemiyorum yardımcı olabilirmisiniz.

 

[esrefm]

Dosya adı clear.gif olarak açılıyor. Bir şey yapamıyorum. Ne yapmalıyım.

 

[Ferhat Pazarçevirdi]

Merhabalar,

Mesajların ekindeki dosyalar silinmiştir.

Alternatif olarak bu linki inceleyebilirsiniz.

Not : Bu da başka bir Link ...

.

 

[esrefm]

Ferhat bey;

Üretim adedi hedef sayısına eşitlendiğinde veya geçtiğinde kırmızı olan grafik çubuğunun yeşile dönmesini istiyorum. Bu konuda yardımcı olursanız sevinirim.

 

[Ferhat Pazarçevirdi]

Ekteki örneği inceleyiniz.

.