Aşağıdaki kod yapısı gibi deneyin.
Sub SizinKodunuzunismi()
'kodlarınız
'kodlarınız
Call yenile
End Sub
Sub yenile()
Application.OnTime Now + TimeValue("00:05:00"), "SizinKodunuzunismi"
End Sub
Not:"00:05:00" kısmında 5 dakikada bir yenilenir,kendi ihtiyacınıza uygun...
...Gönderdiğiniz sayfa benim işime yarayacak ancak belirli bir saatte gönderime göre yazılmış kodlar.
Private Sub Workbook_Open()
Application.OnTime TimeValue("11:00:00"), "SendEmail"
End Sub
Buradaki ifadeyi 7 gün önceyse mail gönder diye değiştirmem gerek. Bu konuda yardımcı olabilir...
...aşağıdakiler ile değiştirin.
Dim Zaman As Double
Const Calistir = "Yenile"
Sub Basla()
Zaman = Now + TimeSerial(0, 1, 0)
Application.OnTime EarliestTime:=Zaman, Procedure:=Calistir, Schedule:=True
End Sub
Sub Dur()
On Error Resume Next
Application.OnTime...
Buyurunuz...
Private Sub Workbook_Open()
Dim a As Byte
For a = 0 To 23
Application.OnTime TimeValue(a & ":00:00"), "kayit"
Application.OnTime TimeValue(a & ":30:00"), "kayit"
Next
End Sub
Merhaba,
Vba'da ThisWorkbook bölümüne şu kodu:
Private Sub Workbook_Open()
Application.OnTime TimeValue("03:00:00"), "kayit"
Application.OnTime TimeValue("07:00:00"), "kayit"
End Sub
Boş bir modüle de şu kodu:
Sub kayit()
ThisWorkbook.Save
End Sub
kopyalayıp dosyanızı makro içeren dosya olarak...
İlave olarak Auto_open kodu aşağıdaki şekilde kısaltılabilir. Bazen fikir sonradan geliyor.
Sub Auto_Open()
Dim zaman As Byte
For zaman = 0 To 23
Application.OnTime TimeValue(zaman & ":00:00"), "kayit"
Next
End Sub
...gerekir o da her saniye çalışacağı için bilgisayarınızı yoracaktır. Yine de istiyorum diyorsanız yukarıdaki formülü uyguladıktan sonra aşağıdaki kodu boş bir modüle kopyalayıp çalıştırınız.
Sub auto_open()
ActiveSheet.Calculate
Application.OnTime Now + TimeValue("00:00:01"), "auto_open"
End Sub
...katılıyorum.
Güncel kodunuz...
Sub ekle()
ActiveSheet.Shapes.Range(Array("Rectangle 7")).Select
Selection.Copy
Range("P7").Select
ActiveSheet.Paste
Selection.Name = "silinecek"
Application.OnTime Now + TimeValue("00:00:05"), "sil"
End Sub
Sub sil()
ActiveSheet.Shapes("silinecek").Delete
End Sub
Merhaba alternatif olarak aşağıdaki iki kod mantığından birini kullanabilirsiniz.
Sub ekle()
'ekleme kod
Application.OnTime Now + TimeValue("00:00:05"), "sil"
End Sub
Sub sil()
'silme kodları
End Sub
Sub kod()
'ekleme kodu
Application.Wait (Now + TimeValue("00:00:05"))
'silme kodu
End Sub
İyi...
...mükemmel çalışıyor.
sayfaya yazılan
Public y14
Private Sub Worksheet_Calculate()
If y14 <> Range("y14") Then
y14 = Range("y14")
Application.OnTime Now + TimeValue("00:00:02"), "makronuz"
End If
End Sub
modül
Sub makronuz()
If Range("y14") = 0 Then Range("y15") = "1" Else Range("y15") =...
...çalıştı.. Selamlar..
Public a2
Sub worksheet_change(ByVal target As Range)
If a2 <> Range("a2") Then
a2 = Range("a2")
Application.OnTime Now + TimeValue("00:00:02"), "makronuz"
End If
modül kısmındaki kodlarınız aynen kalabilir
sub makronuz
if range("a2")=1 then...
vba'da sayfaya bunu yazdım
sub worksheet_change(byval target as range)
if target.column=1 and target.row=2 then
application.ontime now+timevalue("00:00:02"),"makronuz"
end if
end sub
modüle ise bunu yazdım
sub makronuz
if range("a2")=1 then range("a1")="doğru" else range("a1")="yanlış"
end...
...Modül İçine;
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:00:10") ' hh:mm:ss
Application.OnTime...
...Variant
Private Temps As Date
Private Zaman As Date
Private Sub TimeSlot(Optional Reset As Boolean)
On Error Resume Next
Application.OnTime Temps, Procedure:="ThisWorkbook.TimeSlot", Schedule:=False
If IsMissing(Reset) Or (Reset = False) Then
If (Zaman <= Gecikme) Then...
Arkadaşlar Selamlar..
Modülde şöyle bir kod var
Sub Tak()
Dim Zaman As Date
Zaman = Now + TimeValue("00:00:01")
Application.OnTime Zaman, "Tik"
End Sub
Sub Tik()
Range("A1").Value = Now
Call Tak
End Sub
ThisWorkbook sayfasında ise
Private Sub Workbook_Open()
Call Tak...
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.