İl İlçe Haritasındaki Mesafeyi Ölçme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

SilinenUye8231

Kısa Açıklama

İl İlçe Haritasındaki Mesafeyi Ölçme isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba, hayırlı cumalar.

Ekte gönderdiğim excel dosyasında program eksik kalmış,
A sütünu kalkış noktası
B sütunu varış noktası
C sutunu harita bağlantısı olarak köprü
D sütunu kilometre mevcut

Butona bastığımda D sütununa bahse konu satırdaki kilometreyi getirmiyor, ilgili satırdaki köprüye bastığımda hücrelerdeki yazdığım il veya ilçe arasındaki mesafeyi haritaya aktarıyor.

D sütununa kilometrede gelmesini E sütununa da kaç saat olacağı bilgileri getirilebilir mi?

YArdımcı olur musunuz?
 
TextBox ile Tüm Verilerin Rengini Değiştirme
Çift Tıkla Aktarılan Veriyi Geri Silmek

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Maalesef çözüme ulaşamadım, bu konuyu izin programında kullanmak istiyordum.

200 km ve üzeri olan yerler için 2 gün yol izni, 600 km ve üzeri için 4 gün yol izni için kullanacaktım.

Konu için yardımcı olabilir misiniz?
 
Oyla 0 Olumsuz oyla
@SilinenUye8231

Aşağıdaki kodu bir deneyin bakalım.
2'nci satırdan itibaren A sütunu başlangıç adresi, B sütunu varış adresi iken,
C sütununa HARİTADA GÖSTER linki oluşturulur, D sütununa noktalar arasındaki en kısa yol km olarak yazdırılır.

VBA: 
Görüntülemek için giriş yapmanız gerekmektedir.
(60 satır)

.
 
Oyla 0 Olumsuz oyla
Sayın Ömer Bey, ilginize çok teşekkür ediyorum.

Aşağıdaki kodda hata verdi.

.navigate adr


Birde bazı yerleri 0 yapıyor.

1.webp
 
Oyla 0 Olumsuz oyla
@SilinenUye8231
Başka konu sayfalarında da zaman zaman belirttiğim gibi internet sayfalarından veri çekme konusunda yeterli tecrübem mevcut değil.
Verdiğim kod aslında birkaç hafta önceden hazırdı ve denemelerimde de bir sorun yok idi (sonuçlara dair ekran görüntüsü de paylaşmıştım).

maps.google sayfasının yapısındaki değişiklikten kaynaklandığını gördüğümüz bir sorunla karşılaştık ve
sağ olsun Sayın @Selman Usta'dan aldığım destek sonucuna göre önceki cevabımda verdiğim kodu güncelledim.

Sayfayı yenileyerek önceki cevabımdaki kodun yeni halini kullanabilirsiniz.
Dikkat: sitenin yapısı değiştiğinde yine sorunla karşılaşılması muhtemeldir.

.
 
Oyla 0 Olumsuz oyla
Sayın Feyzullah Bey, size de çok teşekkür ediyorum ellerinize sağlık.

16.mesajınız ve 17.mesajınızdaki kodlar aynı sadece aşağıdaki kısımda değişiklik var, hangisini tercih edeyim?

17.mesajdaki kod

bil = Cells(sat, "b")
gethttp = HTMLcode

16.mesajdaki kod

bil = WorksheetFunction.EncodeURL(Cells(sat, "b"))
gethttp = Replace(HTMLcode, ".", "")
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst