Sorgu için arama sonuçları: ontime

DoEvents 'ten sonra Sheets("test"). kısmı sildikten sonra düzeldi.

...Run-time error '9': Subscript out of range Option Explicit Sub Auto_Open() DoEvents Sheets("test").Range("N1") = 1 Application.OnTime Now + TimeSerial(0, 0, 2), "Renklendir" End Sub Sub Renklendir() DoEvents Sheets("test").Range("N1") = "" Application.OnTime Now +...

...diğer hücrelere nasıl uygulayabilirim? Sub renkver() DoEvents If Range("A1") > 5 Then Range("A1").Interior.ColorIndex = 6 Application.OnTime Now + TimeValue("00:00:01"), "renksil" Else Range("A1").Interior.ColorIndex = xlNone Application.OnTime Now + TimeValue("00:00:01"), "renksil" End...

...Explicit Public CloseDownTime As Variant Public Sub ResetTimer() On Error Resume Next If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False CloseDownTime = Now + TimeValue("00:05:00") ' hh:mm:ss...

...Object) ResetTimer End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not IsEmpty(CloseDownTime) Then Application.OnTime EarliestTime:=CloseDownTime, Procedure:="CloseDownFile", Schedule:=False End If End Sub Option Explicit Public CloseDownTime As Variant...

...kodları ekleyin. Dim CloseTime As Date Sub TimeSetting() CloseTime = Now + TimeValue("00:00:30") On Error Resume Next Application.OnTime EarliestTime:=CloseTime, _ Procedure:="SavedAndClose", Schedule:=True End Sub Sub TimeStop() On Error Resume Next...

...açılınca mesaj kutusu çıkmaması için ve hücrenin yanıp sönmesi için modul1 de auto_open kodunu değiştiriniz. Sub auto_open() Application.OnTime Now + TimeValue("00:00:10"), "yanson" Rem yanson kodunu çalıştırır Makro1 Rem Sıralama kodunu çalıştırır Sheets(1).Select Rem Ana Menü Sayfasını...

hocam olmadı malesef :(

Merhaba; Boş bir modüle; Sub zamanla_çalışan_makro() çalışmazamanı = Cells(1, 1) Application.OnTime (çalışmazamanı), "çalışacakmakro", , True 'TimeValue 'Application.OnTime TimeValue("16:59:00"), "çalışacakmakro", , True 'üstteki satır bu şekilde de olabilir End Sub Sub çalışacakmakro() MsgBox...

Emeğiniz için teşekkür ederim hocam. Kod çalışıyor. Bu kod üzerine gerekli oynamaları yapabilirim sanırım. Ama bir kaç sorum olacak müsadenizle Bildirim olarak sesli uyarı yapma şansımız var mı acaba dosya açıkken ama simge durumundayken sadece yanıp sönüyor bildirim dosyaya basınca çıkıyor...

...& "\Alarm01.wav", 0&, &H1 Or &H20000) MsgBox "İdman saatiniz geldi..." & vbLf & vbLf & _ "Yapılacak idman ; " & S1.Range("A1"), vbInformation End If End If Set S1 = Nothing Application.OnTime Now + TimeSerial(0, 0, 1), "Auto_Open"...

Hocam harikasınız demek sizi beklemek gerekmiş peki 30 saniye yapmak istesem nasıl bir formül kullana bilirim sizin formül direk sayı olduğu için beceremedim. Teşekkür ederim.

...With Sheets("AnaData") .Range("B3:M26").Sort Key1:=.Range("M3"), Order1:=xlAscending, Header:=xlNo End With Application.OnTime Now + TimeSerial(0, 1, 0), "Auto_Open" End Sub Sonra dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt edip kapatın. Tekrar...

Örnek Dosya https://www.dosyaupload.com/2692y/ÖrnekDosya.xlsm https://dosya.co/ayjw7s8ns0m5/ÖrnekDosya.xlsm.html

Hocam çok sağol deneyeceğim de bu vermiş olduğunuz formülü nerede kullanacağım dosyamın yani sayfanın adı Sheet' in ismi adı "AnaData" bunun içinde mi kullanacağım.

Merhaba Bu kodu deneyiniz. Sub yinele() Range("B3:M26").Sort Range("B3") Application.OnTime DateAdd("s", 60, Now), "yinele" End Sub

Mail gönderme kodlarınızı mail isimli macroya yazınız. Sub auto_open() Application.OnTime TimeValue("09:00:00"), "Mail" End Sub Sub Mail() MsgBox "Mail gönderildi" End Sub

İşin o kısmını önceki mesajlarda belirtildiği gibi "OnTime" metodunu düzgün bir şekilde kullanarak halledebilirsiniz.... .

...istemekteyim..(SQL veri tabanı bağlantısı bulunmakta..) değerli görüş ve desteklerinizi rica ederim.. Sub Auto_Open() Application.OnTime TimeValue("12:19:00"), "Mail_ActiveSheet" End Sub Sub Mail_ActiveSheet() 'Working in 2000-2007 Dim FileExtStr As String Dim FileFormatNum As...

Application.OnTime TimeValue("10:25:00"), "Mail" satırını Application.OnTime TimeValue("10:25:00"), "Mail_ActiveSheet" olarak değiştiriniz.