IP sorgulama

[SerkanPAK]

Bu kodları nasıl ekleye bilirim yardımcı ola bilirmisiniz ?

 

[odemirci113]

Haluk Bey'in kodunu fonksiyona çevirseniz ilk mesajda tam istediğiniz gibi olacaktır.

Kod tamamen Haluk Beye aittir. Sadece fonksiyona çevirdim.

Kullanımı: =Haluk_Ip("adres hücresi")

Public Function Haluk_Ip(ipAddress)
    'Haluk - 15/11/2019
    'E-posta: sa4truss@gmail.com
    '
    Dim strURL As String, XDoc As Object

    Set XDoc = CreateObject("MSXML2.DOMDocument")
    XDoc.async = False
    XDoc.validateOnParse = False

    strURL = "http://ip-api.com/xml/" & ipAddress
    XDoc.Load strURL

    myIP = XDoc.SelectSingleNode("query/query").Text
    myCountry = XDoc.SelectSingleNode("query/country").Text
    myRegion = XDoc.SelectSingleNode("query/regionName").Text
    myCity = XDoc.SelectSingleNode("query/city").Text

   
Haluk_Ip = myRegion

    Set XDoc = Nothing
End Function

Merhaba, yukarıda belirtilen formülü bir butona atamak istiyorum. Butona tıkladığımda A2 hücresindeki IP adresini B2 hücresi boş ise yazmasını, boş değilse hiç bir işlem yapmamasını, bu işlemi dolu olan son A hücresine kadar yapmasını istiyorum. Nasıl yapacağım konusunda yardımcı olabilir misiniz? Şimdiden Çok teşekkür ederim.