Sorgu için arama sonuçları: ontime

...excelin. Aşağıdaki kodu kullandım fakat uyarı veriyor. Yardımcı olursanız sevinirim. Sub Auto_Open() Application.DisplayAlerts = False Application.OnTime Now + TimeValue("00:01:00"), "Kapat" ThisWorkbook.Save Application.DisplayAlerts = True End Sub Sub Kapat() ThisWorkbook.Close End Sub

...merhaba.. Silinmesini istemediğim çalışma sayfamın kod bölümüne ; Private Sub Worksheet_Deactivate() ThisWorkbook.Protect , True Application.OnTime Now, "UnprotectBook" End Sub yazıyorum. İstediğim bu kodların yazıldığı sayfa üzerinden işlem yaptırmak. Yalnız makro ile bu sayfa sonrasına...

...devam ediyor. Sorunun çözümü için yardımcı olabilecek kimse var mıdır acaba? Kod aşağıdaki gibidir, saygılar. Sub Auto_Open() Application.OnTime Now + TimeValue("00:05:00"), "Dene" End Sub Sub Dene() Dim HM(98, 3) c = 1 Do While Sayfa3.Cells(c, 1) <> "" c = c + 1 Loop CSayisi = c - 2...

...tüm hücreleri yenilediği için hem bu refresh zaman alıyor hem de dosyada çalışmak hantallaşıyor. Sub AUTO_OPEN() DoEvents Application.OnTime Now + TimeValue("00:00:05"), "Yenile" End Sub Sub Yenile() DoEvents Application.CalculateFull ActiveWorkbook.RefreshAll...

...Yapmak istediğim dosyayı kapatınca makro dursun. Dim stopit As Boolean Sub clock() If stopit = True Then Exit Sub ActiveWorkbook.Worksheets(1).Cells(1, 1).Value = Format(Now, "hh:mm:ss") Application.OnTime (Now + TimeSerial(0, 0, 1)), "clock" End Sub Sub auto_open() Module1.clock End Sub

...bulamadım. Yardımcı olanlara şimdiden tşkler. Sayg. Sub Auto_Open() Dim sure As Date sure = Sheets("Ayarlar").Range("E1") Application.OnTime Now + TimeValue("00:05:00"), "sayfasay" End Sub Sub sayfasay() Dim yetkisay As Long Dim Ayarlar As Long If Sheets("Ayarlar").Range("B1") = 1 Then...

...olarak gidiyor ama ek olarak saat bilgisi eklemek istiyorum sadece. Sadece istediğimde saatte dosyanın mail olarak gitmesi için ne yapabilirim. Bir kaç kod buldum ama işe yaramadılar. Örnek kod : Sub Zamanı_Geldi() Application.OnTime TimeValue("12:00:00"), "Excel_ile_Mail_Gönderme" End Sub

...= False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With AktifSayfa.Range("B" & konum).Value = "Veri alış tarihi ve saati: " & FormatDateTime(VBA.Now, vbGeneralDate) Next i Application.OnTime Now + TimeValue("01:00:00"), "ExcelceVeriAl" End Sub

...= "YES" Then CDO_Mail_Gonder End If Call SetTime End Sub Sub SetTime() SchedRecalc = Now + TimeValue("00:00:01") Application.OnTime SchedRecalc, "Recalc" End Sub Sub Durdur() On Error Resume Next Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False End Sub

..."Parametre Dağılım" isimli dosyada ilgili kısımlara geliyor.İlgili kod aşağıdadır. Sub auto_open() Call clock End Sub Sub clock() Application.OnTime Now + TimeValue("00:00:30"), "hesapla" End Sub Sub hesapla() Dim wb_Numune, wb_Parametre As Workbook For Each vb In Workbooks If vb.Name =...

...için şimdiden çok teşekkür ederim. Sub Auto() 'Auto() Application.ScreenUpdating = False Sheets("data").Activate Application.OnTime TimeValue("12:05:00"), "Calculate" Application.OnTime TimeValue("12:10:00"), "Calculate" Application.OnTime TimeValue("12:15:00"), "Calculate"...

...sayfayı otomatik kaydettiğinde uyarı mesajı versin mesaj tekrar kapanmasını istiyorum. Yardımcı olur musunuz? Sub Auto_Open() Application.OnTime Now + TimeSerial(0, 0, 30), "Auto_Open" CreateObject("WScript.Shell").Popup "Sayfa otomatik kaydedildi! . .", 1, "UYARI" ThisWorkbook.Save End Sub

...Kaydetme" Kodlamasının Modül'de değil de, "Bu Çalışma Kitabı"'nda çalışmasını sağlayacak düzenleme konusunda yardımlarınızı rica ederim. Sub auto_open() Application.OnTime Now + TimeValue("00:05:00"), "Kayıt" End Sub Sub Kayıt() ActiveWorkbook.Save MsgBox "Kitap Kaydedildi" Call auto_open...

...göz kırpıyor gidip geliyor. Bu işlemlerin kullanıcıyı etkilememesi için yapılabilecek bir şeyler varmı. Sub zamanlama() DoEvents Application.OnTime Now + TimeValue("00:00:15"), "saniye" End Sub Sub saniye() If Sayfa1.Cells(2, "j") = 1 Then GoTo atla1 End If If Sayfa1.Cells(2, "ı") = 0 Then...

Formda aramama rağmen işimi görecek sonuç bulamadım. bir userform var ve örneğin saat 18:00 açılmasını istiyorum. Private Sub UserForm_Activate() Application.OnTime TimeValue("18:00:00"), "UserForm1" End Sub Böyle bir kod budum ama çalışmıyor. Yardımlarınızı bekliyorum. Teşekkürler

Sub calis() DoEvents Call veriler basla End Sub Sub basla() DoEvents Application.OnTime Now + TimeValue("00:00:05"), "calis" End Sub Bu şekilde kod ile 5sn. arayla userforma veri çekme işlemi yapıyorum. Fakat kod sürekli çalışyor formu kapsam dahi devam ediyor. Ctrl+Break ya da pause ile...

...amacı ile userform üzerinde bir label'e saat uygulaması yerleştirdim ve : 1-userform_initialize() altına Me.Label17 = Time Application.OnTime Time + TimeValue("00:00:01"), "Live_time" 2-Modul1 altına Sub Live_time() Application.OnTime Time + TimeValue("00:00:01"), "Live_time"...

...ikinciyi, o da bitmeden üçüncüyü çalmaya başlıyor. Sonuç olarak sadece son dosya düzgün çalıyor. Bu durumu çözmek için "Application.OnTime Now + TimeValue("00:00:02"), "YüzOku" " şeklinde 2 sn. bekletme koydum. Sorun kısmen çözüldü. Rakamlar arasında biraz fazla bekliyor. Süreyi 1 sn...

...açıyor.Bunu önlemenin bir yolu varmı?Yazılan kod yüzünden mi oluyor? Teşekkürler Sub auto_open() Call clock End Sub Sub clock() Application.OnTime Now + TimeValue("00:00:10"), "hesapla" End Sub Sub hesapla() Dim wb_Numune, wb_Parametre As Workbook For Each vb In Workbooks If vb.Name =...

...1).Value yol = Environ("USERPROFILE") & Application.PathSeparator & "Downloads" prg = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe /p /h " fname = yol & "\" & kimlik & "_belge.pdf" Shell prg & fname, vbHide Next Application.OnTime Now + TimeValue("00:00:10"), "PDF_KAPAT"...