Dış veri almak - link kontrol

[kykbt]

Arkadaşlar Merhaba

B4 hücresinde dış veri adresi
http://www.tcmb.gov.tr/yeni/tablolar.php
ise makro çalıştırmak istiyorum.

Daha doğrusu b4 hücresinin adresi ni nasıl sorabilirim.

If Selection.QueryTable.Name <> "URL;http://www.tcmb.gov.tr/yeni/tablolar.php" Then
Range("b4").Select
else
end if

Bu kod ile olmadı..

 

[kykbt]

Arkadaşlar Merhaba

Bu konuda fikri olan bir arkadaşımız varmı?

 

[halit3]

Arkadaşlar Merhaba

B4 hücresinde dış veri adresi
http://www.tcmb.gov.tr/yeni/tablolar.php
ise makro çalıştırmak istiyorum.

Daha doğrusu b4 hücresinin adresi ni nasıl sorabilirim.

If Selection.QueryTable.Name <> "URL;http://www.tcmb.gov.tr/yeni/tablolar.php" Then
Range("b4").Select
else
end if

Bu kod ile olmadı..

Bu adresin açık olup olmadığınımı öğrenmek istiyorsunuz.
Sorunuzu pek anlıyamadım.

 

[Zeki Gürsoy]

Sub compare_URL()

    If Split(Sheets("Sayfa1").QueryTables(1).Connection, ";")(1) = _
        "http://www.tcmb.gov.tr/yeni/tablolar.php" Then
        
        Range("b4").Select
    Else
        [COLOR=DarkGreen]'*****[/COLOR]
    End If
    
End Sub

 

[kykbt]

Arkadaşlar Merhaba

Öncelikle ilginize teşekkür ediyorum.

-Hocam kod çalıştı ve işimi gördü ancak burda değişik hücrelerde farklı adresler olur ise nasıl çalışır.
-Yani b4 hücresine köprülenmiş sorgu adresi "http://www.tcmb.gov.tr/yeni/tablolar.php" ise diye nasıl sorabiliriz.

-Ayrıca sayfada sorgu yok ise hata veriyor.

-Hocam ayrıca bir hücreye sorgu bağladı isem o hücreden sorguyu artık kaldıramıyor silemiyorum.
-Bunun sebebi nedir?
-Ve makro ile bu silme işini nasıl yapabilirim?

 

[Bagcivan]

elimde şöyle bi dosya var sorunun çözümü değil ama işine yarayabilir.