Soru Macro hata veriyor

[1mak1mak]

Haluk hocam elinize sağlık güzel çalışıyor Epeydir IEXPLORER Probleminden Kur Bilgisi çekemiyordum bununla çekebildim.
bende bir soru sorayım Değişim Sütununda Değeri Ortalamak için aşağıdaki Kodda nasıl bir değişiklik gerekir.

Range("E2:E22").NumberFormat = "@"

Kendi soruma cevap buldum aşağıdaki şekilde hallettim.
Üstteki yazılı olan kodun altına alttaki kodu ilave ettim.

Sitede bu konuda çok yararlı bir paylaşım yapılmış. Burada...

Range("E2:E22").HorizontalAlignment = xlCenter

 

[1mak1mak]

36 No'lu mesajdaki kodu revize ettim....

.

Haluk hocam merhaba Kod düne kadar çalışıyordu ama artık çalışmıyor altinpiyasa.com sayfasında bir değişiklik olmuş olabilirmi acaba
Hata alıyorum.

For i = 1 To MyTable.Rows.Length - 1

 

[Haluk]

Olabilir, muhtemelen sayfa yapısı değişmiştir...

.

 

[k0081]

Olabilir, muhtemelen sayfa yapısı değişmiştir...

.

hocam şu noktada hata veriyor

  Set myTable = Tables(x)

ilgili kodun Tamamı

Sub getAltin()
'   Haluk - 12/10/2021
'   sa4truss@gmail.com
'   https://excelhaluk.blogspot.com/
 
    Dim objHTTP As Object, strURL As String
    Dim HTML As Object, Tables As Object, Table As Object
    Dim x As Integer, i As Long, iRow As Long, j As Integer
 
    Range("B2:F16, B20:F22") = ""
 
    Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
    strURL = "http://www.altinpiyasa.com/"
 
    objHTTP.Open "GET", strURL, False
    objHTTP.send

    Set HTML = CreateObject("HTMLFILE")
    HTML.body.innerHTML = objHTTP.responseText
 
    Set Tables = HTML.getElementsByTagName("table")
 
    For x = 1 To 2
        Set MyTable = Tables(x)
      
        iRow = IIf(x = 1, 1, 19)
        For i = 1 To MyTable.Rows.Length - 1
            iRow = iRow + 1
            For j = 1 To MyTable.Rows(i).Cells.Length - 1
                If j < 4 Then
                    Cells(iRow, j + 1) = Replace((MyTable.Rows(i).Cells(j).innerText), ".", "") + 0
                Else
                    Cells(iRow, j + 1) = MyTable.Rows(i).Cells(j).innerText
                End If
            Next
        Next
    Next
    
    Range("B2:F16").NumberFormat = "#.00"
    Range("B20:F22").NumberFormat = "#,##0.0000"
    Range("F2:F22").NumberFormat = "hh:mm;@"
    Range("E2:E22").NumberFormat = "@"
End Sub

 

[Haluk]

Dosya revize edilmiş olup, ücretli olarak temin etmek isteyenler özel mesajla irtibata geçebilir...





.