web sitesinde click olayı....

[tamer42]

Merhabalar,
"https://www.tjk.org/TR/YarisSever/Info/Page/GunlukYarisProgrami"

linki üzerinde 1. numaralı yarışa tıklama yaptırmak (ekli görsel) istiyorum,
aşağıdaki kodu yazdım fakat hata veriyor, nasıl düzenleyebilirm.
yardımlarınız için şimdiden teşekkürler.

Sub Gunluk_Cek12()
Dim Kos As Integer
Dim s As Integer
Dim adres As String
Dim cls As String

Dim IE As New InternetExplorer
Dim doc As HTMLDocument

Dim i%, say%
  ''  On Error Resume Next
    
    Kos = 1
    
      ActiveSheet.Columns("C:AZ").ClearContents
    
     adres = "https://www.tjk.org/TR/YarisSever/Info/Page/GunlukYarisProgrami"

    say = Kos
            
    
    With IE
        .Visible = True
        .navigate adres
     End With
     
     
     Do
    DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE

  
  Set htmlDOC = IE.document
   
      
 Application.Wait (Now + TimeValue("00:00:04"))
    

cls = "gunluk-GunlukYarisProgrami-AtAdi"

                       htmlDOC.getelementsbytagname("table")(0).getelementsbyclassname(cls)(0).Click

       Application.Wait (Now + TimeValue("00:00:04"))
    
'''    ie.Quit: Columns.AutoFit
    
    MsgBox ".Tamamlandi", vbInformation + vbMsgBoxRtlReading
    
End Sub