Tedarikçi Hataları Grafiği

[sakman26]

Verdiğiniz örnek,
her bir seri noktasını farklı - farklı renklendirmek içindir. oysa ki sizin olayda aylara göre renklendirme söz konusudur...

NOT : Ayları bir grafik içinde değil de, her ayı farklı grafik içinde yapmayı düşünün derim.

 

[qazxswedc321]

Yardımlarınız için çok teşekkür ederim, Allah razı olsun.

 

[sakman26]

rica ederim..
kolay gelsin...

 

[Ömer BARAN]

Merhaba.

Renklendirme için fikrimi söylemek istedim.
Deneme yanılmayla birşey ortaya çıktı işte.

Maksat bu olmayabilir ama belki anlayan arkadaşlara fikir verir.
Aşağıdaki kod ile görüntülenen firmalara ait grafik çubuklarının
(biraz rastlantısal ama) ayrı ayrı renklendirilmesi için üstünde düşünülebilir.
Kırmızı renklendirdiğim sayılarda değişiklikler yaparak deneyiniz.
Belki sayılar bir düzene sokulabilir ve o zaman istikrarlı bir renklendirme elde edilebilir.

Sayfaya bir düğme ekleyip, aşağıdaki kod bu düğmeyle ilişkilendirilerek
her çubuk farklı renklendirilebilir sanırım.
.

[FONT="Arial Narrow"]Sub RENK()
ActiveSheet.ChartObjects("1 Grafik").Activate
adet = ActiveChart.FullSeriesCollection(1).Points.Count
For bar = 1 To adet
katsayı = WorksheetFunction.RandBetween(2, adet)

tonfarkı = Int([COLOR="Red"]126[/COLOR] / katsayı)
kırmızı = Abs([COLOR="red"]225[/COLOR] - tonfarkı * [COLOR="red"]3[/COLOR])
yeşil = Abs([COLOR="red"]197[/COLOR] - tonfarkı * [COLOR="red"]8[/COLOR])
mavi = Abs([COLOR="red"]175[/COLOR] - tonfarkı *[COLOR="red"] 11[/COLOR])
    With ActiveChart.FullSeriesCollection(1).Points(bar).Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(kırmızı, yeşil, mavi)
        .Solid
    End With
 Next
Sheets("Grafik").[G2].Activate
End Sub[/FONT]

 

[Ömer BARAN]

Tekrar merhaba.

Daha evvel hiç uğraşmadığım grafik olayıyla biraz uğraşmak zorunda kaldım.
Dinamik grafik alanı-verileri oluşturma bakımından Sayın sakman'ın hazırladığı grafiği kendime kılavuz edindim ve geldiğim nokta ekteki belgededir.
Sayfa1'e gerçek verilerinizi ekleyin, Sayfa2'de 4'üncü satır hücreleri için renk ayarlayın (bu renkler grafik çubuklarında kullanılacak), grafikte görmek istediğiniz ayı/ayları seçin ve sonucu gözlemleyin.

İLAVE NOT:
Belgede ufak birkaç değişiklik yaparak yeniledim (daha önce indirmişseniz tekrar indirin).
-- Seçilen dönemlere göre veri tablosu ile grafik birbirinden ayrıldı
(Veri tablosu Sayfa2'de, grafik Sayfa3'te)
-- Hem sayfa2'den hem de Sayfa3'den dönem seçme imkanı eklendi.

Belgeniz ekte. (Ekli belge yeniden güncellendi: 13.07.16 11:21)
.

 

[Ömer BARAN]

Bir önceki cevabımın ekindeki belgeyi güncelledim.
(Ufak birkaç değişiklik eklendi)
Daha evvel indirmişseniz, tekrar indirerek kontrol ediniz.

 

[sakman26]

Selam Ömer Bey,
Gönderilen ek te, ay seçimleri yapınca hata alıyorum. Belki benden kaynaklıdır.
Ama sizi gerçekten tebrik ediyorum... Grafik konusunda da çok ama çok iyi bir başlangıç..

 

[Ömer BARAN]

Selam Ömer Bey,
Gönderilen ek te, ay seçimleri yapınca hata alıyorum. Belki benden kaynaklıdır.
Ama sizi gerçekten tebrik ediyorum... Grafik konusunda da çok ama çok iyi bir başlangıç..

Merhaba, şu an bilgîsayar başında değilim.
İltifat için teşekkürler.
Kılavuz olarak, sizin çalışmanızı kullandığımı belirtmiştim.
Malumdur, denemeler yapmadan cevap yazmam, bilgisayar başına geçînce tekrar kontrol edip, hata varsa eki tekrar güncellerim.
.

 

[qazxswedc321]

Ömer Bey Merhaba,
Çalışma gerçekten muhteşem, elinize sağlık.
Ben de hata aldım, aldığım hataların ekran görüntüleri ektedir.
Saygılarımla

 

[sakman26]

Selam Ömer Bey,
Evet ben de aynı hatayı alıyordum..
Bir ilave daha yapmak isterim. Grafikte Ocak ayı seçimini kaldırın, sonuçları izleyin derim. Ben Ocak seçimini kaldırdım , hata aldım... belki de bu hatadandır , bilemiyorum ama, ocak ayındaki seri Nokta adedi kadar turuncu devam etti ve Şubat - mart ve nisan ın bir kısmı aynı renk olarak turuncu oldu...

 

[Ömer BARAN]

Tekrar merhaba.

Bahsettiğiniz hataları ben almadım.
Rastladığım tek sorun, hiçbir ay seçili olmadığında (sayfada hesaplama gerçekleştiğinde),
alan tanımlama formülleri kaynaklı hata vardı, etrafından dolanacak düzenlemeyi yaptım.
Ayrıca bir de sayfalar arasında gezinti için her sayfanın sol üst köşesine simgeler ekledim
(kullanım pratikliği açısından) .

Sanırım böyle daha iyi oldu.
Önceki eki kaldırıp yenisini ekledim.
Tekrar indirdikten sonra hata kontrolü yapıp
sonucunu olumlu-olumsuz konu sayfasına yazmanızı rica ediyorum.
.

 

[sakman26]

selam Ömer Bey,
Belki excel versiyon kaynaklıdır ,belki de benim PC den kaynaklanıyordur bilemiyorum ama aynı hatayı alıyorum. makro çalışmıyor..
hata da 3. satırdaki
adet = ActiveChart.FullSeriesCollection(1).Points.Count
koyu yaptığım yerde takılıyor.
Sebebini bilmiyorum...

 

[Ömer BARAN]

Merhaba.

adet = ......
satırından sonra aşağıdaki satırı ekleyip dener misiniz?
.

[FONT="Arial Narrow"]If adet = 1 And Sheets("Sayfa2").[Z3] = "" And Sheets("Sayfa2").[AA3] = "" Then Exit Sub[/FONT]

 

[sakman26]

adet=.... yazılı satırdan hemen sonraki satıra verdiğiniz kodu eklediğimde de aynı hatayı veriyor. (Compile error : Methode or datamember not found)

ilave Not : FullSeriesCollections ibarelerinden Full kaldırılıp SeriesCollections kaldığında Hata vermiyor...
Ama önceki mesajlarımda da söylediğimi deneyin... Grafikte Ocak Şubat Mart ve Nisan seçili iken Grafik renklendirmesini yapın ve daha sonra Ocak seçimini kaldırın... Şubat - Mart ve Nisan'ın bir kısmı (yani Ocak ayında Seri noktası kadar adet) turuncu olacaktır.

 

[Ömer BARAN]

Sanırım anladım, bu da olmazsa daha da grafik olayıyla ilgilenmem.
-- Sayfa2'ye ait kod bölümündeki RNK1 kod'unu tamamen silin, bu kod grafik sayfa2'de iken kullanılıyordu, artık gerek kalmadı.
-- Modül1'deki RNK2 kod'unda aşağıdaki kırmızı kısımları değiştirin.
Sonra yine bir deneyin bakalım sorun devam ediyor mu?
.

[FONT="Arial Narrow"].................
adet = ActiveChart.FullSeriesCollection([B][COLOR="Red"]2[/COLOR][/B]).Points.Count
.................
            ActiveChart.FullSeriesCollection([B][COLOR="red"]2[/COLOR][/B]).Points(brn).Interior.Color = ayrenk[/FONT]

 

[sakman26]

Ömer Hocam yine aynı yerde FullSeriesCollections da hata veriyor.
Bir önceki mesajımda ilave not yazdım. Okur musunuz...

 

[Ömer BARAN]

Sizin notunuzu görmeden, ben de SERİ ADI vererek hallettim ve önceki cevabımdaki belgeyi biraz önce tekrar yeniledim.

Sorun devam ederse söylediğiniz gibi düzeltiriz artık.

 

[sakman26]

FullSeries.... ibarelerindeki Full kalktığında MÜKEMMEL çalışıyor. Dediğim seri Noktaları olayı da düzelmiş... Ellerine sağlık... Kullanacak arkadaş için çok seviniyorum..
Hayırlı geceler olsun...

 

[Ömer BARAN]

Kafaya takınca bitirmeden bırakamıyorum.
Aslında inanın çok fazla işim vardı (üstlik süreli) , grafik olayına dalınca onları aksattım,
artık işime bakabilirim.
Sağlıcakla.

 

[qazxswedc321]

Ömer Bey ve Sayın sakman26; muhteşem çalışma için çok teşekkür ederim. Gerçekten örnek çalışma oldu.
Son olarak grafiğin alt tarafında tedarikçi isimler yerine 1 2 3 4 ... diye rakamlar yazıyor. Çalışma gerçekten çok zaman aldı. Müsait olduğunuzda inceleyebilirseniz sevinirim.
İyi çalışmalar dilerim.