Koordinat Konumlarına Değer Yazma

Said12

Altın Üye
Altın Üye
Katılım
8 Şubat 2015
Mesajlar
30
Beğeniler
0
Excel Vers. ve Dili
2013 Türkçe
#1
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.
 

Ekli dosyalar

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
15,513
Beğeniler
205
Excel Vers. ve Dili
Excel, 2016 - İngilizce
#2
.

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

Altın Üye
Altın Üye
Katılım
8 Şubat 2015
Mesajlar
30
Beğeniler
0
Excel Vers. ve Dili
2013 Türkçe
#3
İ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.
 

Ekli dosyalar

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
15,513
Beğeniler
205
Excel Vers. ve Dili
Excel, 2016 - İngilizce
#5
.

Dosyanız ekte.

Grafikte renklendirmeleri, ancak manuel yapabildim.
 

Ekli dosyalar

Said12

Altın Üye
Altın Üye
Katılım
8 Şubat 2015
Mesajlar
30
Beğeniler
0
Excel Vers. ve Dili
2013 Türkçe
#6
İ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
 
Son düzenleme:

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
15,513
Beğeniler
205
Excel Vers. ve Dili
Excel, 2016 - İngilizce
#7
.

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.

.
 

asri

Altın Üye
Altın Üye
Katılım
24 Nisan 2005
Mesajlar
2,771
Beğeniler
61
Excel Vers. ve Dili
Office 2016 TR 64 Bit
#9
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ı.

Kod:
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
 

Ekli dosyalar

Son düzenleme:
Üst