zamanlanmis makro ontime ?

[hoguz2]

Merhaba arkadaşlar,

Bir makromun 31-03-2005 saat 10.00 da workbook kapali dahi olsa çalışmasını ( ontime methodunun yaptığı gibi )

Eğer çalışamıyorsa 1 er saat ara ile tekrar çalışmayı denemesini ( çünkü excel uygulaması kapalı olabilir )

Ve o gün çalışırsa kendisini vermiş olduğum ikinci tarihte calişacak sekilde ayarlamasını ( 30-04-2005 saat 10.00 gibi )

31-03-2005 tarihinde hiç calışmamıssa diğer bir makromun çalışmasını sağlayacak kodlar yazılabilir mi ?

yoksa böylesi kodlar çok zor mu yazılır. Tek seceneğim zamanlanmış görevler mi ?

Eğer bu kodlar yazılabilirse güzel bir örnek olacağını düşünüyorum.



İyi çalışmalar,

 

[danersin]

yoksa böylesi kodlar çok zor mu yazılır.

Hayır ama fazla hazıra alışırsanız bu forumun size bir faydası olmaz. Ben yol göstermek açısından aşağıdaki kodu ekliyorum. Bunu istediğiniz şekle uyarlamaya çalışın..

Bu kodu bir workbook modülüne yapıştırıp, .xla (addin klasörünüze kaydedin "zaman.xla" ismi ile
[vb:1:d79b24a4b1]Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:05"), "makro"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnTime dTime, "makro", , False
End Sub[/vb:1:d79b24a4b1]

Bu koduda "mesaj.xla" ismi ile başka bir workbookta normal bir modül
altında kaydedin addin klasörünüze

[vb:1:d79b24a4b1]Sub makro()
a = MsgBox(Time)
End Sub[/vb:1:d79b24a4b1]


Bu ikisini kapatıp excel tools>addins ten mesaj ve zaman'ı aktif hale getirin. Bundan sonra exceli her açtığınızda beş saniye sonra saati görürsünüz.

 

[hoguz2]

Zahmetiniz için teşekkür ederim. Elbette hazıra alışmak gibi bir niyetim yok.
Diğer taraftan bilmemek kadar da kötü bir şey yok.

Cevabınıza benzer örnekleri daha önce uyguladım benim anlayamadığım istediğim tarihte nasıl çalıştırırım.

aşağıdaki kod zaman sayıyor

Application.OnTime Now + TimeValue("00:00:05"), "makro"

bu kod ise bana daha yakın çünkü saate bakıyor

Application.OnTime TimeValue("12:00:00"), "makro"

fakat benim istedigim hem saate hemde tarihe bakmasi

'Application.OnTime TimeValue("04.03.2005 12:00:00"), "makro"

gibi

fakat ne yazıkki böyle yazınca excel beni anlamiyor.


yardım ederseniz sevinirim 'Application.OnTime TimeValue("04.03.2005 12:00:00"), "makro" bu istegimi excele nasil anlatirim.

iyi akşamlar,

 

[xxrt]

Codların görüntüsünde sorun var.2 Gönderiyorum

[vb:1:611180984b]Sub tarih()
Application.OnTime Now + [a1], procedure:="zaman"
End Sub[/vb:1:611180984b]
A1 Hücresine Tarih yazacaksın.
Mesaj adlı makronda

[vb:1:611180984b]Sub zaman()
Application.OnTime TimeValue("12:00:00"), "makro"'senin çalıştıracağın makro adı
End Sub[/vb:1:611180984b]

Bunuda saniye olarak istersen
A2 Hücresine saniye yazacaksın.
Application.OnTime Now + [a2], procedure:="makro"

 

[hoguz2]

arkadaslar neyi nereye yazacagim nasil olacak bir turlu yapamadim kac gundur denemedigim versyon kalmadi. lutfen bilmedigimi dusunerek mazur görün.

asagıdaki kodlari module yazdim ve tarih makrosunu calistirdim. sonuc alamiyorm..

Sub tarih()
Application.OnTime Now + [a1], procedure:="zaman"
End Sub


Sub deneme()
MsgBox "aha oldu"
End Sub



Sub zaman()
Application.OnTime TimeValue("11:40:00"), "deneme"
End Sub

iyi calismalar

 

[danersin]

Ekteki .xla dosyasını Addin klasörüne koyup bir deneyin. Saat başlarında çalışıyor.