Tekrar merhaba hocam, yanlış anlamadıysam tarifinizi bu şekilde yaptım modulleri fakat durdurma işleminde takılmaya devam ediyor ve Excel tekrardan açılıyor.  module görsellerini ekledim. Kusura bakmayın lütfen.

---

Merhaba hocam, lütfen kusura bakmayın çok vaktinizi aldım. Tarifinizi yanlış anlamadıysam eğer bu şekilde düzenledim fakat aynı sorunu yaşıyorum. doküman ektedir.

6. mesajdaki kodların hepsi aynı modülde olacak
Zaman public olarak modülün en başına eklenecek
sub/yordam içinde Zaman tanımlanmayacak
kısacası 6. mesajdaki kodların hepsini sırasıyla kopyalayıp yeni bir modüle ekleyin
çalıştırmak için OtomatikIslem
durdurmak için IslemDurdur yordamları çağrılabilir, kapatıldığında çalışmaması için workbook_close olayından çağrılabilir
Not: debug.print satırları sadece soncu ekrana yazdırarak çalışıp çalışmadığını görmek için kullandığım kodlar o satırlar silinebilir

Merhaba, iş ile ilgili data kontrolü yaptım bir site var buraya veri gönderme - arama butonuna tıklama ve veri çekme şeklinde işlem yapmam gerekiyor. Aşağıdaki kodu yazdım çalıştırmak için butona bastığımda hata veriyor hatada (Dim doc As HTMLDocument) alanını gösteriyor. Desteğinizi rica ederim.

    Dim IE As Object
    Dim doc As HTMLDocument
    Dim sURL As String
    Dim lastRowS As Long, lastRowT As Long, lastRowU As Long

    sURL = "örnek"

    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Visible = True
        .navigate sURL
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        Set doc = .document
    End With

    doc.getElementById("ctl00_cphDetail_txtPlaka").Value = ThisWorkbook.Sheets("Örnek").Range("V1").Value
    doc.getElementById("ctl00_cphDetail_btnAracBul").Click

    Do While IE.Busy Or IE.readyState <> 4
        DoEvents
    Loop

    lastRowS = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "S").End(xlUp).Row + 1
    ThisWorkbook.Sheets("Örnek").Cells(lastRowS, "S").Value = doc.getElementById("ctl00_cphDetail_txtTescilTarihi").Value

    lastRowT = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "T").End(xlUp).Row + 1
    ThisWorkbook.Sheets("Örnek").Cells(lastRowT, "T").Value = doc.getElementById("ctl00_cphDetail_txtAracTipi").Value

    lastRowU = ThisWorkbook.Sheets("Örnek").Cells(Rows.Count, "U").End(xlUp).Row + 1
    ThisWorkbook.Sheets("Örnek").Cells(lastRowU, "U").Value = doc.getElementById("ctl00_cphDetail_txtLastikEbadi").Value

    IE.Quit
    Set IE = Nothing

Sorunuzu kendi açmış olduğunuz konu dahi olsa, kapanmış ve alakası olmayan bir konuya yorum olarak değil yeni konu açarak ve örneğinizle iletiniz.