• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

T

taymaz06

Katılım
14 Ocak 2011
Mesajlar
4
Excel Vers. ve Dili
excel kullanmıyorum onun için üye oldum
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...
 

Ekli dosyalar

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 :)
 
taymaz06' Alıntı:
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 :)
Genişletmek için tıkla ...

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

Selamlar...
 
taymaz06' Alıntı:
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 :)
Genişletmek için tıkla ...
Zannedersem haritada ikişer parçadan oluştuğu için çalışmıyor.
 
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
 

Ekli dosyalar

Son düzenleme:
şu çalışmanın bırde dunya harıtası olanı olsa ne guzel olur :)
 
kulomer46' Alıntı:
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
Genişletmek için tıkla ...
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....
 
taymaz06' Alıntı:
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....
Genişletmek için tıkla ...


Hayat boyu esen kalınız.

Selamlar...
 
kulomer46' Alıntı:
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 www.dosya.tc
Genişletmek için tıkla ...

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.
 
Son düzenleme:
muratgunay48' Alıntı:
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.
Genişletmek için tıkla ...

Selamlar...
 
@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.

Ekran Alıntısı.PNG
 
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...
 
kulomer46' Alıntı:
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...
Genişletmek için tıkla ...
Selamlar hocam, saygılarımla.
 
muratgunay48' Alıntı:
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.
Genişletmek için tıkla ...
saygılarımla...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst