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]

Exel hairta

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ı?