Veriye göre harita renklendirme

[sedatakbaba]

Merhaba. İstediğim şey ekteki excel dosyasında, ikinci sayfadaki c sütununa 1, 2 ve 3 rakamlarından herhangi biri duruma göre yazılacak. Örneğin aksaraya 1 yazıldığında birinci sayfadaki haritada aksaray ili mavi, 2 yazıldığında yeşil, 3 yazıldığında sarı olmalı. Bunu yapabilir miyim? Yardımlarınız için şimdiden teşekkürler...

[S.Yiğit]

Merhaba. İstediğim şey ekteki excel dosyasında, ikinci sayfadaki c sütununa 1, 2 ve 3 rakamlarından herhangi biri duruma göre yazılacak. Örneğin aksaraya 1 yazıldığında birinci sayfadaki haritada aksaray ili mavi, 2 yazıldığında yeşil, 3 yazıldığında sarı olmalı. Bunu yapabilir miyim? Yardımlarınız için şimdiden teşekkürler...

Arkadaşım aynı konuyu 1,5 saat arayla açman konuya hemen cevap alabileceğin anlamına gelmez.. İstediğin şey mümkünse olumlu yada olumsuz mutlaka cevap alırsın..

[sedatakbaba]

Kusura bakma ilkini göremediğim için, hatalı giriş yaptığımı düşünmüştüm de.

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

Kodlama yapılmadan önce;

1. Haritada, serbest form çizimlerinin herbirine şehir isimleri verilmiştir.
2. İstanbul ve Çanakkale iki parçalı çizim oluşturduğundan bunlar gruplandırılarak tek bir nesne haline getirilmiştir.
3. "İller" adlı sheetteki şehir isimlerinde görünen boşluklar temizlenmiştir.
4. İller tablosuna, RGB renk kodlarını ifade edecek şekilde; parametreler yerleştirilmiştir. Siz bu RGB değerleri ile oynayarak daha farklı renkelendirmeler de yapabilirsiniz.

İller tablosunda değişim olduğunda; aşağıdaki kod tetiklenmektedir.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim shp As Shape
Dim oRnk As ColorFormat

On Error Resume Next

If Not Intersect(Target, Range("C1:C81")) Is Nothing Then

Set shp = Sheets("Harita").Shapes(Trim(Target.Offset(0, -1).Text))
Set oRnk = shp.Fill.ForeColor

Select Case Target
Case 1: oRnk.RGB = RGB(Range("G3"), Range("H3"), Range("I3"))
Case 2: oRnk.RGB = RGB(Range("G4"), Range("H4"), Range("I4"))
Case 3: oRnk.RGB = RGB(Range("G5"), Range("H5"), Range("I5"))
Case Else: oRnk.RGB = RGB(Range("G2"), Range("H2"), Range("I2"))
End Select

End If

Set shp = Nothing
Set oRnk = Nothing
End Sub

Her ihtimale karşı; Harita adlı sheet activate edildiğinde; aşağıdaki kodlarla renklendirme, garanti altına alınmaktadır.

Private Sub Worksheet_Activate()
Dim i As Integer
Dim shp As Shape

With Sheets("İller")

For i = 1 To 81

Set shp = Sheets("Harita").Shapes(.Cells(i, 2))
Set oRnk = shp.Fill.ForeColor

Select Case .Cells(i, 3)
Case 1: oRnk.RGB = RGB(.Range("G3"), .Range("H3"), .Range("I3"))
Case 2: oRnk.RGB = RGB(.Range("G4"), .Range("H4"), .Range("I4"))
Case 3: oRnk.RGB = RGB(.Range("G5"), .Range("H5"), .Range("I5"))
Case Else: oRnk.RGB = RGB(.Range("G2"), .Range("H2"), .Range("I2"))
End Select

Next i

End With

Set shp = Nothing
Set oRnk = Nothing

End Sub

Ekteki dosyayı da inceleyiniz.

[sedatakbaba]

Müthiş bir çalışma olmuş. Çok çok teşekkür ederim. Emeğine sağlık.

[S.Yiğit]

Hocam elinize sağlık, Çok güzel bir çalışma olmuş..

[Ayhan Ercan]

Sayın Ferhat Hocam, Elinize emeğinize sağlık. Harika bir Çalışma olmuş....

[hsayar]

Ferhat hocam güzel bir çalışma çok teşekkür ederim.
Renk kodlarını rtırmak istersek ne yapmalı?
Kıbrıs Türk Cumhuriyetini Dahil etmek istersek ne yapmalı gibi iki sorum var? Yani hartiaları nasıl çizeceğiz uyarlayacağız?

[ekeles]

Süper bir çalışma olmuş. Çok işime yaradı Allah razı olsun.

Sevgili hsayar;
Renk değiştirmek için de 2.sayfadaki renklerin olduğu yere 1-255 arası rakam girmen lazım.
Örneğin 2 seçeneğinin sarı olması için 250 250 100 girmen gerekli. Kısacası ilkokuldaki resim dersini hatırla ve hangi renklerle hangisi ne kadar karışırsa ne renk çıkar düşün ve kendini kasma. Hayata her zaman bir çocuğun gözüyle de bakmak gerekli. :)

[qwertylion]

süper olmuş hocam haritayı kendi çalışma sayfama nasıl aktarabilirim? yardımcı olursanız sevinirim.

[qwertylion]

türkiye haritasını küçültmeye ve kendi çalışma sayfamın en altına aktarmaya çalışıyorum ama beceremiyorum çok işime yarayacak nasıl yapabileceğimi söylerseniz sevinirim.

[qwertylion]

ustalarım lütfen yardım benim çalışmam için çok önemli

[makan]

süper bir çalışma olmuş. Ellerinize sağlık.

[Serdar SELEN]

Merhaba ;
Harıka bır calısma olmus. Ellerınze saglık fakat sormak ıstedıgım bır konu var burda 3 secenekten bahsedılıyor ben bunu 5 olarak yapmak ıstıyorum yardımlarınızı beklıyorum. Şimdiden tşk ederim.

[Ferhat Pazarçevirdi]

Merhaba ;
Harıka bır calısma olmus. Ellerınze saglık fakat sormak ıstedıgım bır konu var burda 3 secenekten bahsedılıyor ben bunu 5 olarak yapmak ıstıyorum yardımlarınızı beklıyorum. Şimdiden tşk ederim.

Ekteki dosyayı inceleyiniz.

.

[musmusti]

Çalışmanız gercekten cok süper.
bende faydalandım
Ellerinze gözlerine saglık
Forumda Dünya haritası (en azından avrupa haritası) aradım bulamadım.
Bu kadar süper olmasada buna benzer bir dünya haritası var ise yardımcı olabilirmisiniz?

İyi Çalışmalar

[Serdar SELEN]

Merhaba ;

Hocam elınse saglık tam ıstedıgım gıbı olmus tşk ederim harıkasınız.

[ikaramaz]

Güzel bir çalışma olmuş. Emeği geçenlerin ellerine gözlerine sağlıkkk

[hakannnn]

merhabalar, soyle bir dataya ihtiyacım var.
excelde turkiye haritasi olsun. baska bir excelden conditional formating le belli bir sayıdan dusuk olanların rengi farklı olsun, yuksek olanlarin rengi farkli olsun .
bu konuda bana yardım edebilecek arkadaslar var mı?

[bukalemun35]

Bu türkiye haritasını İlçeler bazında istanbula uyarlayabilirmiyiz.İlllerin grafikleri nasıl oluşturuldu dosya uzantıları neler? Bu konuda yardımcı olabilcek arkadaşlar var mı?

[Ferhat Pazarçevirdi]

Bu türkiye haritasını İlçeler bazında istanbula uyarlayabilirmiyiz.İlllerin grafikleri nasıl oluşturuldu dosya uzantıları neler? Bu konuda yardımcı olabilcek arkadaşlar var mı?

Evet .... İlçeler bazında da uygulanabilir.

Türkiyeyi oluşturan illerin çizimi, Excel'in "Çizim" Araç Çubuğu kullanılarak oluşturulmuştur. Bu araç çubuğundaki, "Otomatik Şekil" butonundan, "Çizgi" lerden "Serbest Form" seçilerek yapılmıştır. Ancak bu uğraştırıcı bir iştir...

Eğer yapmak isterseniz; İstanbul haritasının bir resmini, Excel sayfasına yapıştırınız. İlçe sınırlarını, yukarıda tarif ettiğim şekilde Serbest Form çizgileri ile resmi şablon gibi kullanarak çiziniz.

Daha sonra kodlaması yapılabilir.

..

[qwertylion]

dosyamdaki veriler göre eğer formülünü kullanarak iller sayfasının c sütununa değerler alıyorum ve türkiye haritasını renklendiriyorum.

ancak ben renklendirilmiş türkiye haritasını userforma resim (yada image) olarak aktarmayı istiyorum.

bu olabilirmi olabilirse nasıl olabilir?

yardımlarınız için teşekkür ederim.

[muzzymania]

çooooooook güzel ve faydalı bi çok yerde kullanılabilir bi çalışma olmuş ...peki ben il isimlerini eklemek istersem nasıl yapmalıyım?

[Der Ochse]

Elnize sağlık süper bir çalışm olmuş baktıkça içim gidiyor ben de yapabilcekmiyim bir gün bunları diye :(

[muzzymania]

merhabalar çok güzel bir çalışma fakar ben renk kodlarını bulamadım yardımcı olabilirmisiniz nereden datasını elde edebilirim

[Ferhat Pazarçevirdi]

merhabalar çok güzel bir çalışma fakar ben renk kodlarını bulamadım yardımcı olabilirmisiniz nereden datasını elde edebilirim

Merhabalar

Bu linki (http://www.excel.web.tr/f169/yuzdeye-gore-il-bazynda-harita-renklendirme-t89933.html) inceleyiniz. Daha açıklayıcı olacaktır. (Ayarlar sheet'ine bakınız)

.

[muzzymania]

çok tşk ederim üzerinde çalışıyorum sadece renklendirmede hala sıkıntım var , gerçekten saolun

[kemalist]

Ferhat bey yapmış olduğunuz çalışmayı yeni gördüm.ellerinize gönlünüze sağlık.

[nevermore]

selamlar,
ferhat bey teşekkürler bu güzel çalışma için. Bu çalışmaya ek birkaç şey ilave etmek istesek bunun mümkünlüğü varmıdır acaba? şöyleki :
illere sayfasının C sütununda 1,2,3 değerleri var ve bu kategorilere göre renklendirme oluyor. D sütununa da bu illerin aldığı yüzde değerleri yazsam, bu değerleri haritadaki şekillerin içinde gösterme imkanım olabilir mi?

Teşekkürler, iyi çalışmalar.

[gundogdut]

İstanbul, adana, izmir, antalya, samsun, ankara illerine ait ilçeleri hazırladım, umarım faydalı olur :)

[gundogdut]

Bu türkiye haritasını İlçeler bazında istanbula uyarlayabilirmiyiz.İlllerin grafikleri nasıl oluşturuldu dosya uzantıları neler? Bu konuda yardımcı olabilcek arkadaşlar var mı?

birşeyler hazırlamaya çalıştım, biraz geç oldu ama :)

http://www.excel.web.tr/f169/veriye-gore-harita-renklendirme-t60460/sayfa3.html#post559584

[makan]

birşeyler hazırlamaya çalıştım, biraz geç oldu ama :)

http://www.excel.web.tr/f169/veriye-gore-harita-renklendirme-t60460/sayfa3.html#post559584

Sayın gundogdut, süper bir çalışma yapmışsınız. Ellerinize ve emeğinize sağlık. Ancak bu haritayı nasıl oluşturduğunuzu merak ettim doğrusu. :?:

[gundogdut]

Sayın gundogdut, süper bir çalışma yapmışsınız. Ellerinize ve emeğinize sağlık. Ancak bu haritayı nasıl oluşturduğunuzu merak ettim doğrusu. :?:

Tesekkurler. Wikipedia'dan ilgili ilin ilcelere ayrimis haritasini indirip, sonrasinda excel'de serbest form secenegini kullanarak her bir ilcenin uzerinden gecerek kopyasini cikarttim.

[jawuz]

Tesekkurler. Wikipedia'dan ilgili ilin ilcelere ayrimis haritasini indirip, sonrasinda excel'de serbest form secenegini kullanarak her bir ilcenin uzerinden gecerek kopyasini cikarttim.

Üzerinde bir kaç değişiklik yaparak kullandım, teşekkürler.

If Target < 0 And IsNumeric(Target) = True Then
ActiveSheet.Shapes("Freeform " & Cells(x, 1)).Fill.ForeColor.SchemeColor = 5
Diye kontrol ettirdim ki varchar bir değer olursa hata vermiyor.

[somebodyallo]

Çalışma süper. Ellerinizden öperim.

[batuhanoc]

Ekteki dosyayı inceleyiniz.

.

Sayın hocalarım,
Ekteki dosyayı inceledim ve mükemmel olmuş.Ben bu dosyadaki haritaya İllerin isimlerini ve altlarına da 0 ile 100 arası % (yüzde) rakam yazmak istiyorum. Bunu yapmam mümkünmüdür.

Yardımcı olabilirseniz çok sevinirim.

[mulanmk]

Herkese selam, tam da aradığım şeyi buldum burada. Emeği geçenlerin eline sağlık.
Bana da 22 renk gerekiyor. Nasıl yapabileceğimi kısaca tarif ederseniz kimseyi fazla yormadan ben yapmaya çalışayım. Şimdiden çok teşekkürler.

[mulanmk]

Herkese selam, tam da aradığım şeyi buldum burada. Emeği geçenlerin eline sağlık.
Bana da 22 renk gerekiyor. Nasıl yapabileceğimi kısaca tarif ederseniz kimseyi fazla yormadan ben yapmaya çalışayım. Şimdiden çok teşekkürler.


Hallettim.. aferin bana :)

[gundogdut]

kütahya ili eklendi