Excel de harita üzerine tıklayınca bilgi getirme

[YeNaL06]

arkadaşlar merhaba bir harita hazırladım sitede diğer Türkiye haritasına bakarak yapmaya çalıştım ama tıkladığım zaman bilgiler nasıl gelicek o kısmını yapamadım..

 

[Necdet]

Merhaba,

Örnek dosyanızı foruma ekleyiniz. Bu dosyada basit verilerin olmasına dikkat ediniz.

Yardımcı olacak çok arkadaş çıkacaktır.

 

[YeNaL06]

Necdet bey teşekkür ederim dosyanın örneğini ekledim..

 

[netzone]

Merhaba Yenal06,

Yapacak Arkadaşlarımız Sormadan yönlendirmek adına bir kaç sorum olacak;

1- Sayfa3 deki veriler Sayfa1 de bulunan ilçeye tıklandığında nerede gösterilecek? haritanın altında/yanında bir yerde mi, sayfa 3 de filtrelenmiş halde mi? Başka bir sayfa içinde mi?

2- Bu Listelemede belirli bir sıralama olacak mı? A-B-C-D Sütunlarından her hangi birine göre alfabatik/artan-azalan sıradamı olacak?

Sanırım bu sorulara cevap verirseniz yardımcı olacak arkadaşın işlerini kolaylaştırmış oluruz.

İyi çalışmalar.

 

[Sinan2618]

merhaba Necdet bey'in daha önce farklı bir soruda paylaştığı cevabı paylaşma gereksinimi duydum belki işinizi görür.

http://www.excel.web.tr/f14/harita-uzerine-bayi-ismi-kurma-t89072.html

 

[YeNaL06]

Merhaba Yenal06,

Yapacak Arkadaşlarımız Sormadan yönlendirmek adına bir kaç sorum olacak;

1- Sayfa3 deki veriler Sayfa1 de bulunan ilçeye tıklandığında nerede gösterilecek? haritanın altında/yanında bir yerde mi, sayfa 3 de filtrelenmiş halde mi? Başka bir sayfa içinde mi?

2- Bu Listelemede belirli bir sıralama olacak mı? A-B-C-D Sütunlarından her hangi birine göre alfabatik/artan-azalan sıradamı olacak?

Sanırım bu sorulara cevap verirseniz yardımcı olacak arkadaşın işlerini kolaylaştırmış oluruz.

İyi çalışmalar.

Sayfa 3 de bulunan veriler haritada ilçelerden birine tıkladığım zaman ayrı bir sayfada veya ayrı bir şablonda CRM de bulunan harflerin alfabatik sıraya göre diziliminin olmasını yapmak istedim toplamda 700 e yakın bilgi eklicem 3. sayfaya ilçe ilçe bu şekilde yapmak istemiştim.

ilginiz için teşekkür ederim.

 

[Necdet]

Merhaba,

Çizim adlarını ilçe adı ile değiştirdim. Dolayısıyla tıklandığında hangi ilçe olduğu anlaşılıyor.
Tüm ilçelere tek bir makro atadım.
Dosyayı inceleyiniz.

Sub Tıklananİlçe()

    Dim Seçim   As String, _
        i       As Long, _
        Syf     As Worksheet

    Set Syf = Sheets("Sayfa3")


    Seçim = Application.Caller
    i = Cells(Rows.Count, "N").End(3).Row + 1
    
    With Range("N1:R" & i)
        .ClearContents
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        .Borders(xlEdgeLeft).LineStyle = xlNone
        .Borders(xlEdgeTop).LineStyle = xlNone
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Borders(xlEdgeRight).LineStyle = xlNone
        .Borders(xlInsideVertical).LineStyle = xlNone
        .Borders(xlInsideHorizontal).LineStyle = xlNone
    End With
    
    Süz Seçim

End Sub

Sub Süz(İlçe As String)

    Dim Syf As Worksheet
    Dim i   As Long
    
    Set Syf = Sheets("Sayfa3")

    İlçe = "=*" & İlçe & "*"
    
    Application.ScreenUpdating = False
    Syf.Select
    On Error Resume Next
    
    ActiveSheet.ShowAllData
    
    i = Cells(Rows.Count, "A").End(3).Row
    ActiveSheet.Range("$A$1:$E$" & i).AutoFilter Field:=5, Criteria1:=İlçe
    Range("A1").CurrentRegion.Copy Sheets("Sayfa1").Range("N1")
    ActiveSheet.ShowAllData

    Sheets("Sayfa1").Select

    Application.ScreenUpdating = True

End Sub

 

[YeNaL06]

Teşekkür ederim Necdet bey elinize emeğinize salık