(13/02/2020, 11:46)ozanakkaya yazdı:

Private Sub dersler_Click()

    Me!WebBrowser.Navigate ("https://accesstr.net/index.php")

    Me.WebBrowser.Silent = True

        'Sayfanın cevap vermesini bekle, sayfa geldikten sonra id verilen butona tıkla

    'bekleme komutu, cevap komutu ?

Do Until vReadyState = 4

    DoEvents

    vReadyState = Me!WebBrowser.ReadyState

Loop 

    Me.WebBrowser.Document.getElementById("sonkonu_sekme5").Click

End Sub