Soru Harita Üzerinde Seçilen ilin alt seçeneklerini Listbox ile Görüntüleme

[taymaz06]

Merhabalar;

Ek'te gönderdiğim Excel'de Harita üzerinde herhangi bir ile tıklandığında K1 hücresinde o ilin adı çıkıyor.

https://dosya.co/p20ojqtrani6/Harita.xlsm.html

Diğer sekmede ise tüm illerdeki ceza infaz kurumlarının bir listesi yer almakta.

Ben haritada bir ile tıkladığımda, o ilde yer alan ceza infaz kurumlarının listesini görmek istiyorum. Bu listbox ya da başka bir yolla yapılabilir mi?

Böyle bir dinamik liste oluşturmak mümkün müdür?

Yardım ederseniz çok sevinirim, saygılarımla...

 

[kulomer46]

Merhaba

Dosyanız Hazır

Selamlar...

Harita_Hazir__22.09.2020.xlsm dosyasını indir - download

Harita_Hazir__22.09.2020.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[taymaz06]

Hocam size ne kadar teşekkür etsem azdır... Uzun zamandır takılıp kalmıştım, çok minnettarım sağolun varolun...

Affınıza sığınarak bi şey soracağım hocam,

İstanbul ve Çanakkale'de çalışmıyor makro, neden olabilir acaba?

Tekrar tekrar çook teşekkür ederim ilginiz için

 

[kulomer46]

Hocam size ne kadar teşekkür etsem azdır... Uzun zamandır takılıp kalmıştım, çok minnettarım sağolun varolun...

Affınıza sığınarak bi şey soracağım hocam,

İstanbul ve Çanakkale'de çalışmıyor makro, neden olabilir acaba?

Tekrar tekrar çook teşekkür ederim ilginiz için

İstanbul ve Çanakkalenin neden çalışmadığını şimdilik bulamadım.
Sebebini bulup çözüm üretebilirsem burdan paylaşırım.

Selamlar...

 

[Erdal]

Hocam size ne kadar teşekkür etsem azdır... Uzun zamandır takılıp kalmıştım, çok minnettarım sağolun varolun...

Affınıza sığınarak bi şey soracağım hocam,

İstanbul ve Çanakkale'de çalışmıyor makro, neden olabilir acaba?

Tekrar tekrar çook teşekkür ederim ilginiz için

Zannedersem haritada ikişer parçadan oluştuğu için çalışmıyor.

 

[kulomer46]

Değerli Arkadaşım Tekrar Merhaba

Tüm illerin çalıştığı dosyanızın son hali Ek 'tedir.

İstanbul ve Çanakkale illerinin daha önce çalışmama nedeni, haritaları 2 parçadan oluştuğu için ilk başta program

Range("K1") = ActiveSheet.Shapes(Application.Caller).Name
a = Range("K1")

kodlarıyla İstanbul ve Çanakkale isimlerini algılayamamakta, ve daha sonra

If Range("K1") = "Freeform 86" Or Range("K1") = "Freeform 87" Then Range("K1") = "İstanbul"
If Range("K1") = "Freeform 50" Or Range("K1") = "Freeform 85" Then Range("K1") = "Çanakkale"

kodlarıyla sadece K1 hücresinde düzenleme yapılmaktadır.

Bu yüzden hali hazırdaki kodları

If Range("K1") = "Freeform 86" Or Range("K1") = "Freeform 87" Then Range("K1") = "İstanbul": a = "İstanbul"
If Range("K1") = "Freeform 50" Or Range("K1") = "Freeform 85" Then Range("K1") = "Çanakkale": a = "Çanakkale"

şeklinde değiştirerek a değişkenininde son durumdan haberdar olması sağlanıyor ve program istenen sonucu üretmeye başlıyor.

Dosya görünümü üzerinde düzenleme yapılarak dosya görsel olarak daha estetik hale getirilmeye çalışıldı.

Dosyanız hazır.

Selamlar

https://dosyayukle.club/1KfD/Türkiye_Haritası__Son_Haliyle_Hazır___23.09.2020.xlsm

 

[kakara]

şu çalışmanın bırde dunya harıtası olanı olsa ne guzel olur

 

[taymaz06]

Değerli Arkadaşım Tekrar Merhaba

Tüm illerin çalıştığı dosyanızın son hali Ek 'tedir.

İstanbul ve Çanakkale illerinin daha önce çalışmama nedeni, haritaları 2 parçadan oluştuğu için ilk başta program

Range("K1") = ActiveSheet.Shapes(Application.Caller).Name
a = Range("K1")

kodlarıyla İstanbul ve Çanakkale isimlerini algılayamamakta, ve daha sonra

If Range("K1") = "Freeform 86" Or Range("K1") = "Freeform 87" Then Range("K1") = "İstanbul"
If Range("K1") = "Freeform 50" Or Range("K1") = "Freeform 85" Then Range("K1") = "Çanakkale"

kodlarıyla sadece K1 hücresinde düzenleme yapılmaktadır.

Bu yüzden hali hazırdaki kodları

If Range("K1") = "Freeform 86" Or Range("K1") = "Freeform 87" Then Range("K1") = "İstanbul": a = "İstanbul"
If Range("K1") = "Freeform 50" Or Range("K1") = "Freeform 85" Then Range("K1") = "Çanakkale": a = "Çanakkale"

şeklinde değiştirerek a değişkenininde son durumdan haberdar olması sağlanıyor ve program istenen sonucu üretmeye başlıyor.

Dosya görünümü üzerinde düzenleme yapılarak dosya görsel olarak daha estetik hale getirilmeye çalışıldı.

Dosyanız hazır.

Selamlar

https://dosyayukle.club/1KfD/Türkiye_Haritası__Son_Haliyle_Hazır___23.09.2020.xlsm

Değerli hocam, beni çok büyük bi yükten kurtardınız, çok çok teşekkür ederim...

Eğer ki yolunuz Ankara'ya düşerse tanışmak, elinizi sıkmak, teşekkür etmek isterim.

Sağolun hocam, iyi çalışmalar dilerim, esen kalın....

 

[kulomer46]

Değerli hocam, beni çok büyük bi yükten kurtardınız, çok çok teşekkür ederim...

Eğer ki yolunuz Ankara'ya düşerse tanışmak, elinizi sıkmak, teşekkür etmek isterim.

Sağolun hocam, iyi çalışmalar dilerim, esen kalın....

Hayat boyu esen kalınız.

Selamlar...

 

[muratgunay48]

Merhaba

Dosyanız Hazır

Selamlar...

Harita_Hazir__22.09.2020.xlsm dosyasını indir - download

Harita_Hazir__22.09.2020.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

Hocam, çok güzel bir çalışma olmuş. Elinize emeğinize sağlık. Ceza infaz kurumları listesi değiştirilerek, hatta il mevcut sayısı değiştirilerek bir çok şey için kullanılabilir. Çok faydalı bir çalışma.
Saygılarımla.

 

[kulomer46]

Hocam, çok güzel bir çalışma olmuş. Elinize emeğinize sağlık. Ceza infaz kurumları listesi değiştirilerek, hatta il mevcut sayısı değiştirilerek bir çok şey için kullanılabilir. Çok faydalı bir çalışma.
Saygılarımla.

Selamlar...

 

[muratgunay48]

@kulomer46 hocamın mükemmel çalışmasına haddim olmayarak, küçücük naçizane bir (katkı demeyeyim, katkı bile değil)
TÜRKİYE haritasının rengini istediğin renkte yapmak için renk kodları photoshop ile nasıl bulunur. Hocam yanlışım varsa uyarırsanız sevinirim.

 

[kulomer46]

Merhaba

Renklendirmede kullanılan kod = RGB(255, 217, 102)

Burada R yani Red (Kırmızı) parantez içindeki virgüllerle ayrılmış 3 bölümden birincisini temsil eder.
0 ile 255 dahil bu sayılar arası istenilen sayı girilebilir.

Burada G yani Green (Yeşil) parantez içindeki virgüllerle ayrılmış 3 bölümden ikincisini temsil eder.
0 ile 255 dahil bu sayılar arası istenilen sayı girilebilir.

Burada B yani Blue (Mavi) parantez içindeki virgüllerle ayrılmış 3 bölümden üçüncüsünü temsil eder.
0 ile 255 dahil bu sayılar arası istenilen sayı girilebilir.

Böylece 256 * 256 * 256 = 16.777.216 adet farklı renk elde edilebilir bilgisayar ekranında.

Excel dışında başka programlarda da bu R, G, B değerlerine 0 ile 255 arası sayılar girildiğinde aynı şekilde çeşitli renkler elde edersiniz.
Toplam 16.777.216 (OnAltıMilyon YediYüzYetmişYediBin İkiYüzOnAltı) adet farklı renk alternatifiniz bulunmaktadır : )

Selamlar...

 

[İdris SERDAR]

.

Ben de renklerle ilgili eklemeler yapayım.

RENK UZAYI VE EXCEL’DE RGB – CMYK DÖNÜŞÜMLERİ – Excel Gurusu

BİLGİSAYARDA RENK UZAYI – RGB RENK SİSTEMİ – Excel Gurusu

RENK SİMÜLASYONU ( Renk 2^8 ve 256^3 Renk) – Excel Gurusu

.

 

[İdris SERDAR]

.

Türkiye haritası renklendirme ile ilgili iki çalışmamı vereyim.

Renklendirilmiş Türkiye Haritası (Acente Sayıları) – Excel Gurusu

Renklendirilmiş Türkiye Haritası (Referandum-2010) – Excel Gurusu

.

 

[muratgunay48]

Merhaba

Renklendirmede kullanılan kod = RGB(255, 217, 102)

Burada R yani Red (Kırmızı) parantez içindeki virgüllerle ayrılmış 3 bölümden birincisini temsil eder.
0 ile 255 dahil bu sayılar arası istenilen sayı girilebilir.

Burada G yani Green (Yeşil) parantez içindeki virgüllerle ayrılmış 3 bölümden ikincisini temsil eder.
0 ile 255 dahil bu sayılar arası istenilen sayı girilebilir.

Burada B yani Blue (Mavi) parantez içindeki virgüllerle ayrılmış 3 bölümden üçüncüsünü temsil eder.
0 ile 255 dahil bu sayılar arası istenilen sayı girilebilir.

Böylece 256 * 256 * 256 = 16.777.216 adet farklı renk elde edilebilir bilgisayar ekranında.

Excel dışında başka programlarda da bu R, G, B değerlerine 0 ile 255 arası sayılar girildiğinde aynı şekilde çeşitli renkler elde edersiniz.
Toplam 16.777.216 (OnAltıMilyon YediYüzYetmişYediBin İkiYüzOnAltı) adet farklı renk alternatifiniz bulunmaktadır : )

Selamlar...

Selamlar hocam, saygılarımla.

 

[taymaz06]

Hocam, çok güzel bir çalışma olmuş. Elinize emeğinize sağlık. Ceza infaz kurumları listesi değiştirilerek, hatta il mevcut sayısı değiştirilerek bir çok şey için kullanılabilir. Çok faydalı bir çalışma.
Saygılarımla.

saygılarımla...