...Dim Tarih As Date
Set Alan = Range("C2:C20")
Sheets("zil").Range("A1").Value = Now
If saat = True Then
Application.OnTime Now + TimeValue("00:00:01"), "start"
For Each Bak In Alan
Tarih = Bak.Value
If Tarih = Now Then...
Sub Auto_Open()
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End Sub
Üstteki koda gerek yok diyorlar...
Bu kod her açtığında mali gönderir bu kodu silersen sen butona bastığında hem çıktı alır hem amil gönderir
...yapıyorum. Ne yazıyor ne de mail gönderiyor?
Sub SuzYaz()
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sub Auto_Open()
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End Sub
Sub MailGonder()
Dim OutApp As Object, Outmail As Object
Set OutApp =...
...kod işimi görür mü ya da düzenleyebilir misiniz. Teşekkür eder saygılar sunar Sıhhatli huzurlu günler dilerim.
Sub Auto_Open()
Application.OnTime TimeValue("12:18:00"), "MailGonder"
End Sub
Sub MailGonder()
Dim OutApp As Object, Outmail As Object
Set OutApp =...
Şu şekilde yapabilirsiniz ..
Dim bitti
Sub aralıklı_calıstır()
bitti = False
Application.OnTime Now + TimeValue("00:00:03"), "hucresay"
End Sub
Sub hucresay()
If bitti <> True Then
MsgBox "Makro çalışıyor..."
Call aralıklı_calıstır
End If
End Sub
Sub bitir()...
birde şöyle bir sorum var
Sub aralıklı_calıstır()
Application.OnTime Now + TimeValue("00:00:03"), "hucresay"
End Sub
bu kod hucresay adındakı macrouyu 3 sanıyede bır calıstıyor fakat baslatıgımda bunu durduramıyorum sureklı her 3 sanıyede bır makro calıstıgı ıcn ıslem yapamıyorum
...As Date
Sub Kur()
ActiveWorkbook.Worksheets(1).Cells(2, 7).Value = _
Format(Now, "hh:mm:ss")
Saat = Now + TimeValue("00:00:01")
Application.OnTime Saat, "Kur"
yukardakı makro ıle hucreye aktıf saat eklıyorum fakat bilgisayar saat dilimi 24 bana 12lık saat dılımı gereklı ornegın ögleden...
...ekranda kayıt tamam yazdığında bekleme yapması gerekiyor 3-5 sn sonra yeni kayıt gir gelmesi lazım ama yapamadım
Application.OnTime Now + TimeValue("00:00:05"), "NextMacro"
Selection.ClearContents
ActiveCell.Offset(0, 5).Range("A1").Select
ActiveCell.FormulaR1C1 =...
Hocam şöyle bir çözüm buldum. zamangeldi modülünü private sub daki makronun olduğu sayfaya aktardım.
Application.OnTime Now + TimeValue("00:00:05"), "zamangeldi"
yerine
Application.OnTime Now + TimeValue("00:00:05"), "Sayfa4.zamangeldi"
yapınca mevcut sayfadaki zaman geldi makrosunu...
Allah razı olsun hocam. Private sub da evet hayır dedikten sonra durumu True ya çeviriyor. Fakat 5 saniye sonra "zamangeldi" adlı sub(modül yada makro) devreye girdikten sonra durumu false a çevirmedi.
Sub zamangeldi()
MsgBox "Vermek istediğimiz mesaj", 0
durum = False
'...sizin kodlarınız...
...If Komut = 7 Then
MsgBox "Hayır Butonuna Tıkladınız."
durum = True
Application.OnTime Now + TimeValue("00:00:05"), "zamangeldi"
End If
End If
End If
End If
End With
durum = True
End...
...If Komut = 7 Then
MsgBox "Hayır Butonuna Tıkladınız."
durum = True
Application.OnTime Now + TimeValue("00:00:05"), "zamangeldi"
End If
End If
End If
End If
End With
End Sub
Sub...
...haberimiz yoktu bir daha ki sefere daha temkinli oluruz.
Aşağıdaki kod her 5 saniyede bir A2 hücresinin değerini A1 hücresine yazdırır. Kendinize göre uyarlayabilirsiniz.
Sub acill()
Range("A1").Value = Range("A2").Value
Application.OnTime Now + TimeValue("00:00:5"), "acill"
End Sub
...Is Nothing Then Exit Do
Loop While Not c Is Nothing And c.Address <> f
End If
End With
rt = Now + TimeSerial(0, 0, 1)
Application.OnTime rt, "renk", , True
End Sub
Sub DUR()
On Error Resume Next
Application.OnTime rt, "renk", , False
End Sub
"Buçalışmakitabı(thisworkbook)...
...var sanki! Eğer koşul doğru ise Exit for dan aşağısı hiç çalışmaz.
If .Cells(x, 1).Interior.ColorIndex = xlNone Then
Satir = x
deneme = True
Exit For
MsgBox "DÜZELTME UYGULANMIŞTIR."
deneme = True
alertTime = Now + TimeValue("00:00:10")
Application.OnTime alertTime, "timerr"
End If
...2
Next
If UBound(lst) <= sy Then
Call dur
Exit Sub
End If
If f = 1 Then
sy = sy + 1
Workbooks.Open lst(sy)
End If
g = Now + TimeSerial(0, 0, 1)
Application.OnTime g, "bkm", , True
End Sub
Sub dur()
On Error Resume Next
If g <> Empty Then
Application.OnTime g, "bkm", , False
g = Empty
End If...
Şöyle bir şey mi acaba aradığınız.
Sub test()
If Weekday(Now, vbMonday) = 1 Then
Application.OnTime TimeValue("15:00:00"), "makro"
End If
End Sub
Sub makro()
MsgBox "Çalıştı"
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.