Koordinat Konumlarına Değer Yazma

[Said12]

Arkadaşlar merhaba;
Daha önce paylaşıldı mı bilmiyorum. Çok aradım forumda ama bulamadım.
Oluşturduğum koordinatların noktalarının üzerine isimlerini ve değerlerini yazmak istiyorum. Noktalar üzerinde değerlere göre sonuçlar yazmak istiyorum. Ayrıca Koşullu biçimlendirme ile bu sonuçlara göre koordinat üzerinde renklendirme yapmak istiyorum.
Bu mümkün mü? Mümkünse makro kullanmadan yapabilir miyiz?

Örnek Excelde detaylandırdım. Umarım anlaşılabilirdir. Kolay gelsin herkese.

 

[İdris SERDAR]

.

Ben verilerden bir şey anlayamadım.

Koordinat Değerleri, Koordinat isimleri ne anlama geliyor? Öte yandan bir de X ve Y var.

Siz konuyu biliyorsunuz. Buna bakan konunuza vakıf olmayabilir. Bu nedenle biraz daha açıklama yaparsanız iyi olur düşüncesindeyim.

.

 

[Said12]

İdris bey ilginiz için Teşekkür ederim. Haklısınız, Biraz daha detaylandırdım görselle.

X ve Y koordinat değerlerinden sağ taraftaki tabloyu oluşturdum. Diğer değerleri de o noktalara renklendirerek yazdırmak istiyorum.

 

[Said12]

güncel//

 

[İdris SERDAR]

.

Dosyanız ekte.

Grafikte renklendirmeleri, ancak manuel yapabildim.

 

[Said12]

İdris bey Çok Çok Teşekkür ederim. Bu işimi fazlasıyla görür. Acaba nasıl yaptığınıza dair bir döküman paylaşım var mı? Yada bununla ilgili bir video. Diğer excellerime de uyarlamam için. Grafikte nasıl başarılı/başarısız yazdırdınız Sadece onu yapamadım. Diğer kısımlar anlaşılıyor yaptığınızdan. Çok teşekkür ederim tekrar

 

[İdris SERDAR]

.

Grafiği seçin. Design > Add Chart Element > Data Labels >More data Labels Options... > Label Options > Value From Cells > Select Range...

adımlarını izleyin.

.

 

[Said12]

çok teşekkür ederim ilginiz için.

 

[Asri]

Alternatif makrolu;

başarılı ve başarısız yazmasına gerek var mı bilemedim.
Bu yazı yazılmaz ise ve sadece renkler kullanılır ise daha güzel grafik oluşur.

Yazılar bir birine geçmesin diye x düzlemde koordinat eşit arttırılmadı.

Koordinat isimsiz dosyasında sadece renkler kullanıldı.

Sub grafikolustur()
'Asri Akdeniz - asriakdeniz@gmail.com - www.asriakdeniz.com
  Set shv = Sheets("Veri")
  Set shg = Sheets("Grafik")

  shg.Select
  sonsatir = shv.Cells(Rows.Count, "B").End(3).Row
  Sheets("Grafik").Cells.Clear

  enyuksekx = Application.WorksheetFunction.Max(shv.Range("D2:D" & sonsatir))
  enyukseky = Application.WorksheetFunction.Max(shv.Range("E2:E" & sonsatir))
  If enyuksekx > enyukseky Then buyuk = enyuksekx + 5 Else buyuk = enyukseky + 5

  shg.Range("D1:D" & buyuk).Interior.Color = 65535
  shg.Range(Cells(buyuk + 1, 4), Cells(buyuk + 1, buyuk * 3)).Interior.Color = 65535

  satir = buyuk
  sutun = 6
  For i = 2 To sonsatir
     veri = shv.Cells(i, "B").Value
     isim = shv.Cells(i, "C").Value
     x = shv.Cells(i, "D").Value
     y = shv.Cells(i, "E").Value
     If veri < 0.5 Then durum = "Başarılı"
     If veri >= 0.5 Then durum = "Başarısız"
     shg.Cells(satir - y, sutun + (x * 3)).Value = durum
     If durum = "Başarılı" Then shg.Cells(satir - y, sutun + (x * 3) - 1).Interior.Color = 15773696
     If durum = "Başarısız" Then shg.Cells(satir - y, sutun + (x * 3) - 1).Interior.Color = 255

  Next i
End Sub