harita oluşturma

[Qene]

Sub Konya()
Sheets("Konya").Select
End Sub

Yukarıdaki kodu yazdıktan sonra sağ tıklayıp...

Bu şekide yazacaksınız..

 

[Haluk]

Excel'e yazık oluyor ....

Unutmuşum .... mehmett'e de yazık oluyor ... :mrgreen:

 

[Levent Menteşoğlu]

Bu tip bir uygulamada her metin kutusuna ayrı makro yazmak kod sayısını çok fazlalaştıracaktır. Bunun yerine tüm metin kutuları aynı makroya bağlanabilir. Bu işlem aşağıdaki iki makro ile çözülebilir, birincisi metin kutularına aynı makroyu bağlar, ikinciside tıklanan metin kutusundaki ile ait sayfaya gider. Şunuda hatırlatayım, dosyadaki metin kutuları nedeniyle sayfa koruması konulamıyor. Denetim araç kutusunda seçilen nesneler ile (label gibi) daha kısa kodlamalar yapılabilir.

Metin kutularına makro atamak için,

Sub makroata()
For a = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes(a).Name = "Resim 2" Then GoTo 10
ActiveSheet.Shapes(a).OnAction = "sayfayagit"
10 Next
End Sub

Tıklanan sayfaya gitmek için,

Sub sayfayagit()
On Error GoTo 10
ad = Application.Caller
ActiveSheet.Shapes("" & ad).Select
sayfa = Selection.Text
[g8].Select
Sheets(sayfa).Select
Exit Sub
10 MsgBox "Seçilen ile ait sayfa bulunamadı."
End Sub

 

[mehmett]

Teşekkürler Levent dostum. Ben de uzun uzun düşünmüştüm tek makro ile nasıl yapabilirim diye, ama yapamadım. Yapamayınca ilk makroyu kopyalayarak diğer iller için de kullanmayı seçtim.

Sn 817 nihal

Levent beyin sayesinde her İl için bir makro yazmaktan ve bu makroları haritadaki il adlarına atamaktan kurtuldunuz. Siz sadece hangi ilde müşteriniz varsa onun adını taşıyan yeni bir sayfa oluşturun yeter. Bir de kod sayfasında benim yazdığım (il adlarını taşıyan) makroları silin (harita makrosu hariç.) Levent beyin yazdığı iki makro benim önerdiğim 81 makronun yapacağı işi görüyor.

 

[mehmett]

Unutmuşum .... mehmett'e de yazık oluyor ... :mrgreen:

Haluk dostum, pek uygulama fırsatı bulamasam da "Excel'de Harita" konusu özel ilgi alanım hatırlatırım.

 

[Levent Menteşoğlu]

Rice ederim değerli dostum Mehmet, yöntem üstadımız Haluk dostumuza aittir. Onun daha önceden yaptığı bir örnekten aklıma geldi. Aslında bu harita arka plana yerleştirilebilse çok daha güzel olur.

 

[mehmett]

Harita arka plana alındı.

Ayrıca gözü rahatsız eden yatay ve düşey çizgiler bulunması nedeniyle ilk harita kaldırılarak yeni bir harita eklendi.

 

[Levent Menteşoğlu]

Ne diyeyim Mehmet dostum, eline sağlık harika olmuş. Bu harita bir çok amaç için kullanılabilir (örneğin, illerdeki bayi listesine ulaşılabilir vb), bu çalışmayı düzenleyip örnek çalışmalar linkine alabiliriz.

 

[Metin Karaağaç]

Yok böyle bir kolaylık.
Soranların, cevaplayanların eline-beynine sağlık.

 

[Haluk]

mehmett, süper olmuş dostum ... eline sağlık.

 

[Hüseyin]

Güzel bir örnek olmuş.
Katkıda bulunan tüm arkadaşlara teşekkürler.

Geliştirme önerisi;
Haritadaki il adlarının altına o ildeki bayi sayısını gösteren bir ekleme yapılabilir.
Bu şekilde harita üzerinde bayii yoğunluk dağılımı görsel olarak verilmiş olur.

 

[Merhum İdris SERDAR]

Sayın Mehmett,

Elinize, beyninize sağlık.

Yanlış hatırlamıyorsam Excel - 2000'de harita eklemek gibi bir özellik vardı. Sonra bu geliştirileceği yerde Excel'in diğer sürümlerinden çıkarıldı.

Excel'de geliştirileceği yerde dedim. Evet başka şekilde geliştirildi ve büyük bir olasılıkla (MS) MapPoint satışlarını artırmak amacıyla bu yola başvurulduğunu tahmin ediyorum.

Her neyse, Mehmet bey, paylaşımınız için tekrar teşekkürler.

 

[Ali]

Gerçekten güzel olmuş Mehmet Bey ellerinize sağlık.Sn yurttaş hala MapPoint'i satıyorlar işin ilginç tarafı Avrupa ile ilgili haritada Türkiye yer almıyor.

http://www.microsoft.com/mappoint/products/2006/default.mspx

 

[817_nihal]

Sn Mehmett Bey çok TEŞEKÜR EDERİM harika oldu yardımın ve paylaşımın için çok sağol süper.

Yardında bulunan herkese teşekkür ederim.


(((Haluk Bey size bişey demiyorum. Sitede böyle bişey söyledim istiyorum diye biraz sitem etmiştiniz ama ortaya sizinde gördüğünüz gibi güzel bir şey ortaya çıktı. Çokmu kötü oldu.)))

 

[Haluk]

(((Haluk Bey size bişey demiyorum. Sitede böyle bişey söyledim istiyorum diye biraz sitem etmiştiniz ama ortaya sizinde gördüğünüz gibi güzel bir şey ortaya çıktı. Çokmu kötü oldu.)))

mehmett ve leventm arkadaşlarımın eline sağlık. Onların hakkını vermek lazım tabii ...

Ama, ben yine aynı düşüncedeyim ... :mrgreen:

 

[heykali]

İyi bir çalışma sonucu daha
tebrikler beyler.

 

[even]

Arkadaslar bu bence harika olmuş..Yaklaşık 3 ay kadar önce bir sürü mecrada aradım bu tip bir haritayı. Dusunduguklerimin %50 sini karşılıyor.

Diğer düşündüğüm %50 lik kısmını da yazayım.

Bu harita üstünde ANKARA yazarken, bu ilin altında da bir veri yazın.
O veriyi Ankara sayfasından okusun.

Yani harita üstünde güncellenmiş veriler bulunsun.
Sanırım bu HARİTA-VERİ birleştirmesini MAPPOINT yapıyor.

Istediğim şey excelde olur mu?? Exceldeki harita üstünde arka sayfa güncellendikçe yenilenen Sayılar görebilir miyiz?


Not: Bu konu 3 ay kadar önce Access'de cevapsız kalmıştı:
http://www.excel.web.tr/showthread.php?t=15775&highlight=harita

 

[mehmett]

Sn even

Haritaya eklenmesini istediğiniz özellik site adminimiz Sn Hüseyin bey tarafından da (yukarıda) önerilmiş ve yerine getirilmişti. Haritanın son halini Excel İçin Örnek Uygulamalar ve Linkler bölümünde Çok Amaçlı Türkiye Haritası başlığı altında görebilirsiniz.

http://www.excel.web.tr/showthread.php?t=19995

 

[sa_men]

elinize sağlık

 

[tme1140]

harita hkk

sayin hocam, ilgili dosyayi cekemiyorum, kaldirildi mi acaba.