- Katılım
- 10 Mayıs 2007
- Mesajlar
- 1,395
- Excel Vers. ve Dili
- 2007 Türkçe
problemimi dosyamda anlattım.anlaşılabilir bişey zaten a1 hücresine www.tcmb.gov.tr adresindeki günllük kur rakamının gelmesini sitiyorum denedim ama olmadı.
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub dovizal()
Dim hucre As Range
[a:c].ClearContents
With ActiveSheet.QueryTables.Add(Connection:="URL;http://www.tcmb.gov.tr/yeni/tablolar.php", Destination:=[a1])
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.Refresh BackgroundQuery:=False
End With
For Each hucre In [b3:c4]
hucre = hucre / 10000
Next
[b3:c4].NumberFormat = "General"
End Sub
Bende aynı özelliği kullanarak veriyi aldım. Bu kodlarda aynı esnada yapılan makro kaydet ile elde edilmiştir.harikasınız.bunu ekseliin dış veri al özelliğinde yapmaya çalıştım ama olmadı