Belirli Süre Dahilinde Makronun Tekrarlanması - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Belirli Süre Dahilinde Makronun Tekrarlanması (/konu-belirli-sure-dahilinde-makronun-tekrarlanmasi.html) Sayfalar:
1
2
|
RE: Belirli Süre Dahilinde Makronun Tekrarlanması - benmert - 23/04/2023 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. RE: Belirli Süre Dahilinde Makronun Tekrarlanması - berduş - 23/04/2023 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 RE: Belirli Süre Dahilinde Makronun Tekrarlanması - benmert - 22/10/2023 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 RE: Belirli Süre Dahilinde Makronun Tekrarlanması - atoykan - 22/10/2023 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. |