• Web sitemizin SORU-CEVAP bölümünde dosya yüklemek ve dosya indirmek ÜCRETSİZ'dir.
    Gizlilik kapsamında, sadece site yöneticilerimizin ve üyenin kendisinin görebileceği ÜCRETLİ ÖZEL DESTEK alanımız mevcuttur.

Çözüldü Google Maps Koordinat Bulma

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

menfis

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhaba,

Personellerin adreslerinin bulunduğu bir excel var elimde. Bu adresleri google mapsten otomatik olarak çekip koordinatlarını yapıştırabilecek bir kod var mı bildiğiniz ? Exceli dosya ekle kısmından ekledim.

Teşekkürler, İyi Çalışmalar
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • deneme.xlsx
    8.3 KB · Görüntüleme: 11
Çözüm
Ekli Dosyaki KTF-UDF (Kullanıcı Tanımlı Formül) deneyiniz.

Google Maps üzerinden API'siz yapabildiğim bu benim, bundan ötesi beni aşar. Google API'niz var ise google arattıp bulabilirsiniz ilgili kodları.

Kullanımı:
Hücreye aşağıdaki şekilde yazıp =XDAdresKordinat(Adres;İLÇE;İL) şeklinde 3 hücreli giriş yapacaksınız.
=XDAdresKordinat(E1;G1;F1)

menfis

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Up
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

Ekli Dosyaki KTF-UDF (Kullanıcı Tanımlı Formül) deneyiniz.

Google Maps üzerinden API'siz yapabildiğim bu benim, bundan ötesi beni aşar. Google API'niz var ise google arattıp bulabilirsiniz ilgili kodları.

Kullanımı:
Hücreye aşağıdaki şekilde yazıp =XDAdresKordinat(Adres;İLÇE;İL) şeklinde 3 hücreli giriş yapacaksınız.
=XDAdresKordinat(E1;G1;F1)
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ekli dosyalar (Dosyaları İndirmek İçin Beğenmeniz Gerekir)

  • Google Maps Koordinat Bulma API'siz.xlsm
    17.1 KB · Görüntüleme: 11
Çözüm

Tukayf

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2019
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Zihninize sağlık hocam ancak ben denemelerimde hiç doğru sonuç alamadım.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

menfis

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Elinize sağlık hocam ama sonuçlar çok çok alakasız olmuş yani sokak sapması olsa mahalle doğru olsa yine yeterli olurdu fakat burada nereyi yazarsam yazayım rizeye çeviriyor. Bunu google maps apili nasıl yapabiliriz peki? Sanırım farklı bir üyenin de ihtiyacı var yapabilirsem buraya koyarım en azından o da yararlanabilir
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

menfis

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Merhaba var mı anlatabilecek acaba kitlendim hiç birşey yapamıyorum
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Ömer BARAN

Kurucu
Yönetici
Kurucu
Versiyon
  1. Excel 2013
Sürüm
  1. 32 bit
Dil
  1. Türkçe

Reputation:

Sayın @Feyzullah 'ın eklediği belgede;
fark ettiğim şey; koordinat bilgilerinden enlem bilgisinin doğru olarak geldiği,
boylam bilgisi yerine ise enlem bilgisinin aynısının geldiği.

Kendisinin eklediği örnek belgedeki ilk adres için 41.0007759999 , 41.0007759999
şeklinde aynı bilgi iki kez tekrarlanarak sonuç alınıyor.
Sanırım yanlış değil eksik bilgi alınıyor (ikinci kısım 28.78837 olmalı).

Umarım kendisi, konudaki sorunu fark edip göremediğim KTF kodlarında düzenleme yapacaktır.

.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

Sayın @Feyzullah 'ın eklediği belgede;
fark ettiğim şey; koordinat bilgilerinden enlem bilgisinin doğru olarak geldiği,
boylam bilgisi yerine ise enlem bilgisinin aynısının geldiği.

Kendisinin eklediği örnek belgedeki ilk adres için 41.0007759999 , 41.0007759999
şeklinde aynı bilgi iki kez tekrarlanarak sonuç alınıyor.
Sanırım yanlış değil eksik bilgi alınıyor (ikinci kısım 28.78837 olmalı).

Umarım kendisi, konudaki sorunu fark edip göremediğim KTF kodlarında düzenleme yapacaktır.

.
Kodlar düzeltilmiştir. 3 nolu mesajdaki dosya yenilenmiştir.

C#:
Function XDAdresKordinat(address As String, ilce As String, il As String)
    Dim firstVal As String, secondVal As String, lastVal As String
    firstVal = "https://www.google.com.tr/maps/place/"

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = Replace(address, " daire ", "+D:")
    URL = Replace(URL, " sokak ", " Sk.")
    URL = Replace(URL, " no ", "+No:")
    URL = Replace(URL, " mahallesi ", ",")
    URL = firstVal & Replace(URL, " ", "+") & "," & ilce & "%2F" & il
   
   
    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send

    a = Replace(Replace(Replace(URL, "+", " "), "https://www.google.com.tr/maps/place/", ""), "%2F", "/")
    a = Replace(a, "sokak", "Sk")
    txt = Replace(Split(Replace(objHTTP.responseText, "null,", ""), a)(1), ",", "+")
     
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
   
   
    reg.Pattern = "\[(\d{2}\.\d{3,7})"
    If reg.test(txt) Then deger = reg.Execute(txt)(0).Submatches(0)
   
   
    reg.Pattern = "\+(\d{2}\.\d{3,7})\]"
    If reg.test(txt) Then deger1 = reg.Execute(txt)(0).Submatches(0)
   
    XDAdresKordinat = deger & " - " & deger1

End Function
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Son düzenleme:

menfis

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Kodlar düzeltilmiştir.

C#:
Function XDAdresKordinat(address As String, ilce As String, il As String)
    Dim firstVal As String, secondVal As String, lastVal As String
    firstVal = "https://www.google.com.tr/maps/place/"

    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    URL = Replace(address, " daire ", "+D:")
    URL = Replace(URL, " sokak ", " Sk.")
    URL = Replace(URL, " no ", "+No:")
    URL = Replace(URL, " mahallesi ", ",")
    URL = firstVal & Replace(URL, " ", "+") & "," & ilce & "%2F" & il
   
   
    objHTTP.Open "GET", URL, False

    objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
    objHTTP.send

    a = Replace(Replace(Replace(URL, "+", " "), "https://www.google.com.tr/maps/place/", ""), "%2F", "/")
    a = Replace(a, "sokak", "Sk")
    txt = Replace(Split(Replace(objHTTP.responseText, "null,", ""), a)(1), ",", "+")
     
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
   
   
    reg.Pattern = "\[(\d{2}\.\d{3,7})"
    If reg.test(txt) Then deger = reg.Execute(txt)(0).Submatches(0)
   
   
    reg.Pattern = "\+(\d{2}\.\d{3,7})\]"
    If reg.test(txt) Then deger1 = reg.Execute(txt)(0).Submatches(0)
   
    XDAdresKordinat = deger & " - " & deger1

End Function

Hocam emeğinize sağlık fakat vba bilgim hiç yok buna benzer değiştirecek kodları da bulamadım. Kontrol edebilir misiniz rica etsem ?
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

Hocam emeğinize sağlık fakat vba bilgim hiç yok buna benzer değiştirecek kodları da bulamadım. Kontrol edebilir misiniz rica etsem ?
3.nolu mesajda bulunan dosyayı tekrar indirin.
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

menfis

Yeni Üye
Kullanıcı
Versiyon
  1. Excel 2016
Sürüm
  1. 64 bit
Dil
  1. Türkçe

Reputation:

Hocam elinize emeğinize sağlık çok teşekkür ederim. Gerisini rahatlıkla halledebilirim :) çok sağolun
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

Feyzullah

Feyzullah KILINÇ - XD Yönetim
Yönetici
Site Yöneticisi

Reputation:

İyi çalışmalar
 



Forumumuzu reklamsız kullanmak, Hazır Excel Dosyaları indirmek ve web sitemize destek olmak için Hesap Yükseltme yapabilirsiniz. Detayları buradan inceleyebilir, hemen hesabınızı yükseltebilirsiniz.

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