- Katılım
- 7 Eylül 2021
- Mesajlar
- 44
- Excel Vers. ve Dili
- 2019 excel
- Altın Üyelik Bitiş Tarihi
- 23-11-2023
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub PEAKUP_TCMB_TUM_KURLAR()
Dim xml As Object, adres As String, tablom As Object, sat As Byte
Range("A2:G100") = ""
Set xml = CreateObject("MSXML2.DOMDocument")
xml.async = False
xml.validateOnParse = False
adres = "https://www.tcmb.gov.tr/kurlar/today.xml"
xml.Load adres
Set tablom = xml.SelectNodes("//Currency[CurrencyName='EURO' or CurrencyName='US DOLLAR']")
If tablom.Length = 0 Then GoTo cik:
sat = tablom.Length - 1
For i = 0 To sat
Cells(i + 2, 1) = tablom(i).ChildNodes(1).Text
Cells(i + 2, 2) = tablom(i).ChildNodes(3).Text
Cells(i + 2, 3) = tablom(i).ChildNodes(4).Text
Cells(i + 2, 4) = tablom(i).ChildNodes(5).Text
Cells(i + 2, 5) = tablom(i).ChildNodes(6).Text
Next i
cik:
Set tablom = Nothing: Set xml = Nothing: adres = vbNullString: sat = Empty
End Sub
For i = 40 To 40+sat 'sadece bu satırda düzeltme yapacaksınız
Cells(i + 2, 1) = tablom(i).ChildNodes(1).Text
Cells(i + 2, 2) = tablom(i).ChildNodes(3).Text
Cells(i + 2, 3) = tablom(i).ChildNodes(4).Text
Cells(i + 2, 4) = tablom(i).ChildNodes(5).Text
Cells(i + 2, 5) = tablom(i).ChildNodes(6).Text
Next i
İçinde Makro-Kod olan dosyalar "Makro içerebilen excel çalışma kitabı" olarak kaydetmelisiniz. Uzantısı xlsm olmalı. Aksi halde Exxcel kodlar olmadan kaydedilir.excele kodu makro olarak eklediğim halde giriş çıkış yaptığımda kodu siliyor. kaydetmiyor bu problemi nasıl çözebilirim ?
çok teşekkür ederim kodu nereye yazacağımı çözemedim . Yeni yeni makro yazmaya başaldım desteğiniz için tekrardan teşekkürlerA42 den başlaması için aşağıdaki kısmı gösterdiğim gibi yapın
C++:For i = 40 To 40+sat 'sadece bu satırda düzeltme yapacaksınız Cells(i + 2, 1) = tablom(i).ChildNodes(1).Text Cells(i + 2, 2) = tablom(i).ChildNodes(3).Text Cells(i + 2, 3) = tablom(i).ChildNodes(4).Text Cells(i + 2, 4) = tablom(i).ChildNodes(5).Text Cells(i + 2, 5) = tablom(i).ChildNodes(6).Text Next i
Teşekkür ederim destekleriniz içinİçinde Makro-Kod olan dosyalar "Makro içerebilen excel çalışma kitabı" olarak kaydetmelisiniz. Uzantısı xlsm olmalı. Aksi halde Exxcel kodlar olmadan kaydedilir.
Verdiğiniz kodlardaki aşağıdaki ilk satıryerine bir alt satırda verdiğim halini yazarsanzı A42 hücresinden başlarsınızçok teşekkür ederim kodu nereye yazacağımı çözemedim . Yeni yeni makro yazmaya başaldım desteğiniz için tekrardan teşekkürler
For i = 0 To sat
For i = 40 To 40+sat
Next i
malesef veriyor .For i=0 to sat DEBUG hatası vermiyorsa
For i=40 to 40+sat ifadesi de DEBUG hatası vermez
tamamdır bu sefer istediğimi yaptı tam olarak teşekkürler destekleriniz içinPardon.
Aşağıdaki gibi ilgili satırlarda tablom(i) yazan kısımlardan 40 çıkartınız.
Cells(i + 2, 1) = tablom(i - 40).ChildNodes(1).Text
burada hatalı kayıttan kaynaklı silinen verileri nasıl geri getirebilirim ??Kodlarınız baş tarafında
Range("A2:G100") = ""
ifadesi var. Silen yer burası. Silmek istediğiniz alan A42 :G100 aralığı ise buna göre düzeltebilirsiniz.
bu makroyu ben bütün sayfalarda aynı anda nasıl çalıştırabiliriz. yeni açacağım sayfalarda otomatik oalrak nasıl çalışmaya başlanabilir buton la birlikte ??Makroları çalıştırdıktan sonra kaydet dediyseniz ve dosyanızın yedeğini almadıysanız geri gelmezler.