Web Sitesinden İller Arası Mesafe Sorgulama

Bu dosya, Karayolları Genel Müdürlüğü'nün (KGM) iller arası mesafe sayfasına bağlanarak seçtiğiniz iki il arasındaki mesafe bilgisini Excel'e almanızı sağlar. İl seçimi bir UserForm üzerinden yapılır, sonuç hem form üzerinde hem de çalışma sayfasında gösterilir.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: B4:M6 aralığını kullanan tek sayfadır. Sorgu sonucu B6 hücresine yazılır. Sayfada formül yoktur.
• UserForm1: İki il listesi (cbSehir1 ve cbSehir2), bir düğme (CommandButton1) ve sonucun gösterildiği bir etiket (Label1) içerir.
• Module1: Formu açan kısa bir makro içerir.

Makrolar​

• Grafik2_Tıkla (Module1): UserForm1'i açar. Sayfadaki grafik nesnesine atanarak çalıştırılır.
• UserForm_Initialize: Form açılırken Internet Explorer'ı görünmez biçimde başlatır, KGM'nin iller arası mesafe sayfasını açar ve sayfadaki il listesini iki açılır listeye doldurur. B6:M6 aralığını temizler.
• cbSehir1_Change ve cbSehir2_Change: Formda seçtiğiniz ili web sayfasındaki ilgili açılır listede de seçili hale getirir.
• CommandButton1_Click: Önce kontrol yapar: il seçilmemişse ya da iki il aynıysa uyarı verir. Sorun yoksa sayfadaki "Hesapla" düğmesine tıklar, sonucun yüklenmesini bekler, mesafe metnini bulur ve Label1 ile Sheet1'deki B6 hücresine yazar.
• UserForm_Terminate: Form kapanırken Internet Explorer'ı kapatır.

Kodda dosya silme gibi zararlı bir işlem yoktur. Dosya yalnızca yukarıda belirtilen KGM adresine (http://www.kgm.gov.tr/Sayfalar/KGM/SiteTr/Uzakliklar/illerArasiMesafe.aspx) bağlanır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin. İnternet bağlantınızın açık olması gerekir.
2. Sayfadaki grafik nesnesine tıklayarak formu açın. İl listesinin yüklenmesi birkaç saniye sürebilir.
3. Birinci ve ikinci listeden iki farklı il seçin.
4. Hesapla düğmesine tıklayın.
5. Mesafe bilgisi formdaki etikette ve Sheet1'in B6 hücresinde görünür.

Dosya Internet Explorer bileşenini ve KGM sayfasının mevcut yapısını kullandığından, bu sayfa değişirse ya da Internet Explorer sisteminizde yoksa sorgu çalışmayabilir.