Makronun Başlangıç Hücresini Belirleme

[birgaripinsan]

makro

döviz kuru çekmek için kullandığım makro direk a2 hücresinde başlıyor ben bunu başka bir hücrede başlamasını a42 hücresinde başlamasını istiyorum. Bunun için makroda değiştrimem gereken kısım neresi yardımcı olabilir misiniz ?

 

[Muzaffer Ali]

Merhaba.
Ekteki dosyanızda kod yok. Kodları buraya eklerseniz cevap verebiliriz.

 

[birgaripinsan]

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

 

[birgaripinsan]

excele kodu makro olarak eklediğim halde giriş çıkış yaptığımda kodu siliyor. kaydetmiyor bu problemi nasıl çözebilirim ?

 

[ÖmerFaruk]

A42 den başlaması için aşağıdaki kısmı gösterdiğim gibi yapın

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

 

[Muzaffer Ali]

excele kodu makro olarak eklediğim halde giriş çıkış yaptığımda kodu siliyor. kaydetmiyor bu problemi nasıl çözebilirim ?

İçinde Makro-Kod olan dosyalar "Makro içerebilen excel çalışma kitabı" olarak kaydetmelisiniz. Uzantısı xlsm olmalı. Aksi halde Exxcel kodlar olmadan kaydedilir.

 

[birgaripinsan]

A42 den başlaması için aşağıdaki kısmı gösterdiğim gibi yapın

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

ç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

 

[birgaripinsan]

İçinde Makro-Kod olan dosyalar "Makro içerebilen excel çalışma kitabı" olarak kaydetmelisiniz. Uzantısı xlsm olmalı. Aksi halde Exxcel kodlar olmadan kaydedilir.

Teşekkür ederim destekleriniz için

 

[ÖmerFaruk]

ç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

Verdiğiniz kodlardaki aşağıdaki ilk satıryerine bir alt satırda verdiğim halini yazarsanzı A42 hücresinden başlarsınız

For i = 0 To sat
For i = 40 To 40+sat 
Next i

 

[birgaripinsan]

Verdiğiniz kodlardaki aşağıdaki ilk satıryerine bir alt satırda verdiğim halini yazarsanzı A42 hücresinden başlarsınız

For i = 0 To sat
For i = 40 To 40+sat
Next i

debug hatası alıyorum malesef o şekilde girince. dosya buda excel dosyası

 

[ÖmerFaruk]

For i=0 to sat DEBUG hatası vermiyorsa
For i=40 to 40+sat ifadesi de DEBUG hatası vermez

 

[birgaripinsan]

For i=0 to sat DEBUG hatası vermiyorsa
For i=40 to 40+sat ifadesi de DEBUG hatası vermez

malesef veriyor .
exceli de önceki yorumda attım kendiniz deneyebilirsiniz .
cells lerden kaynaklı hata alıyorum yanılmıyorsam .

 

[ÖmerFaruk]

Pardon.
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

 

[birgaripinsan]

Pardon.
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

tamamdır bu sefer istediğimi yaptı tam olarak teşekkürler destekleriniz için

 

[birgaripinsan]

hata

şu anda şöyle bir srounum var 42. satırdan başlıyor fakat üstündeki bölmelerdeki verileri de siliyor. range kısmından kaynaklı bir sorun olduğunu düşündüm düzelttim fakat çözüm olmadı

 

[ÖmerFaruk]

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.

 

[birgaripinsan]

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.

burada hatalı kayıttan kaynaklı silinen verileri nasıl geri getirebilirim ??

 

[ÖmerFaruk]

Makroları çalıştırdıktan sonra kaydet dediyseniz ve dosyanızın yedeğini almadıysanız geri gelmezler.

 

[birgaripinsan]

teşekkürler. Tekrar Yazmak Zorunda Kalacağım .

 

[birgaripinsan]

Makroları çalıştırdıktan sonra kaydet dediyseniz ve dosyanızın yedeğini almadıysanız geri gelmezler.

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 ??