...Sub UpdateTimer()
If TimerStatus Then
ElapsedTime = Now - StartTime
Sheets("Sayfa1").Range("A1").Value = Format(ElapsedTime, "hh:mm:ss")
Application.OnTime Now + TimeValue("00:00:01"), "UpdateTimer"
End If
End Sub
Sekme Sayfa1 olsun 3 şekil yada düğme ekleyiniz.
...TimeValue("17:00:00") Then
Call kurgir
End If
End Sub
Yukaridaki kodları mödüle ekle
Private Sub Workbook_Open()
Application.OnTime TimeValue("09:30:00"), "SabahMakro"
Application.OnTime TimeValue("17:00:00"), "AkşamMakro"
End Sub
Private Sub Workbook_BeforeClose(Cancel...
...CommandButton1_Click()
Unload Me
UserForm2.Show
End Sub
Userform2 ye bunu ekleyin.
Private Sub UserForm_Initialize()
Application.OnTime Now() + TimeValue("00:00:01"), "mesajgoster"
End Sub
Modul1 e bunları ekleyin.
Sub formgoster()
UserForm1.Show
End Sub
Sub mesajgoster()...
...gün boyu hep açık ve üzerinde çalışılıyor.
Belirtilen zaman geliyor yanlız kod harekete geçmiyor, F5 veya F8 ile normal bir şekilde çalışıyor.
Şimdiden teşekkür ederim, iyi günler.
Sub Zamanı_Geldi()
Application.OnTime TimeValue("10:14:00"), "Mesaj"
End Sub
Sub Mesaj()
MsgBox "deneme"
End Sub
...atmasını istiyorum.
konuyla ilgili yardımcı olabilirseniz çok sevinirim.
Şimdiden herkese teşekkür ederim.
Sub Auto_Open()
Application.OnTime TimeValue("12:46:00"), "Mail"
End Sub
Sub Mail()
Dim wrdEdit
Dim alan As Range
sonsatir = Cells(Rows.Count...
...= Format(Zaman, "DD.MM.YYYY HH:MM:SS") 'SANİYELERİ ÇALIŞTIĞINI GÖREBİLMENİZ İÇİN KOYDUM SONRA KALDIRABİLİRSİN
Application.OnTime Zaman, "Say", , True
'bu alana test için döngü koydum ama zamanda sapmalar olabiliyor (normal saatten 1 sn ileri gidebiliyor vb :) )
For i = 1 To 255 Step 1...
...ss = sh.Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To ss
If Format(sh.Range("C" & i).Value, "hh:mm") = Format(Time, "hh:mm") And sh.Range("B" & i).Value = Date Then
Beep
Beep
txtYuksek.Value = sh.Range("E" & i)
End If
Next i
Application.OnTime Now + TimeValue("00:01:00"), "Hatirlat"
End Sub
Durdur yöntemi için örnek dosya;
https://we.tl/t-ksxtwBtYJ1
Application.OnTime kullanıyorsanız. stoptimer ile durdurabilirsiniz.
Örnek kodlart aşağıdaki şekilde.
Public Const Pause = 5 '5 saniye
Public Const cagrilanmakro = "tarih_kontrol"
Sub Auto_Open()
StartTimer
End Sub
Sub...
Benim kodumda döngü var ama Application.OnTime kullanıyorum, burda buton ile veri_cek makrosunun durdurulması gerek.
Sub veri_cek()
//veri çeken kodlar, uzun olduğu için yazmadım
Application.OnTime DateAdd("s", 1, Now), "veri_cek"
End Sub
...koru işlevini görür ama kullanıcı bunun farkına varmaz. Umarım işe yarar.
Sayfanın kod bölümüne
Private Sub Worksheet_Deactivate()
ThisWorkbook.Protect , True
Application.OnTime Now, "KorumaYok"
End Sub
Bir modüle
Sub KorumaYok()
ThisWorkbook.Unprotect
End SubYapıştırarak dener...
Userform3 kod sayfasına aşağıdaki kodu yapıştırın.
Private Sub UserForm_Activate()
Application.OnTime Now + TimeSerial(0, 0, 5), "LabelGizle"
End Sub
Module içine de aşağıdakini yapıştırın.
Sub LabelGizle()
UserForm3.Label1.Visible = False
End Sub
...sayfaları mail olarak göndersin aynı şekilde.
yani sizin vermiş olduğunuz Makro Aktif sayfa değil de belirtilen sayfalarda yapsın ama sayfalar yine ayrı ayrı gidecek.
Şuan,
Application.OnTime Now + TimeSerial(0, 40, ), "gnder"
ile sayfa açıldıktan 40 dk sonra sadece aktif sayfayı gönderiyor.
İyi Akşamlar;
Alıntıdır.
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:05:00"), "Formu_Kapat"
End Sub
Sub Formu_Kapat()
If MsgBox("5 dakikalık formu kullanma süreniz bitmiştir," & vbCrLf & _
"1 dakikalık ek süre almak için EVET" & vbCrLf & _
"Formdan çıkmak...
...nasıl bir Kod yazmak gerekir?
Yani çalışan kodu durdur gibi.
Sub zaman()
Dim gsay As Date
gsay = Now + TimeValue("00:00:01")
Application.OnTime gsay, "son"
End Sub
Sub Son()
Dim aln As Range
Set aln = Application.ActiveSheet.Range("G2")
aln.Value = aln.Value + TimeSerial(0, 0, 1)
If...
...Ayar = False
End
Exit Sub
End If
If ActiveSheet.Name = "report" Then ActiveSheet.Range("AZ1") = 1
Application.OnTime Now + TimeSerial(0, 0, 2), "Alarm_Aktif"
End Sub
This workbook kısmında ise;
Option Explicit
Private Sub Workbook_Activate()...
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.