Webden Anlık Veri-Makro Hatası

[mekist]

Merhaba,
Ekteki dosyada Webden anlık altın kurlarını alıyorum, Daha sonra Makro ile de anlık veri her okunduğunda Özet sayfasına alt alta aktarıyor,
Başka excel dosyasında çalışırken makro hata veriyor, Hata ekranını excel dosyasına ekledim. Yardımcı olabilir misiniz.

 

[mekist]

Bi arkadaş bakabilir mi?

 

[Recep İpek]

Aynı anda iki tane excel dosyası açıkken mi hata veriyor?

 

[mekist]

Aynı anda iki tane excel dosyası açıkken mi hata veriyor?

Evet aynı anda birden fazla dosya açıkken ve bu dosya hariç herhangi bir dosya içerisinde iken dosya içerisindeki hatayı veriyor,
Bu dosya içerisinde çalışırken kaç dosya açık olursa olsun hata vermiyor,

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Satır As Long
    If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
    If [COLOR=red]ThisWorkbook.[/COLOR]Sheets("Özet").Range("A65536") <> "" Then
        MsgBox "Özet sayfası dolmuştur !" & vbNewLine & _
        "Lütfen boş bir Özet sayfası oluşturun.", vbCritical
        Exit Sub
    End If
    Application.ScreenUpdating = False
    Range("C17:I17").NumberFormat = ""
    Range("C17") = Range("C17") / 1
    Range("D17") = Range("D17") / 1
    Range("G17") = Range("G17") / 1
    Range("H17") = Range("H17") / 1
    Cells.EntireColumn.AutoFit
    With [COLOR=red]ThisWorkbook.[/COLOR]Sheets("Özet")
        Satır = .Range("A65536").End(3).Row + 1
        .Cells(Satır, "A") = Now
        .Cells(Satır, "B") = Range("D17")
        .Cells(Satır, "C") = Range("C17")
        .Cells(Satır, "D") = Range("G17")
        .Cells(Satır, "E") = Range("H17")
        .Cells(Satır, "F") = Range("I17")
        .Cells.EntireColumn.AutoFit
    End With
    Application.ScreenUpdating = True
End Sub

 

[mekist]

çok teşekkür ederim.