اكثر من كود يعمل حسب الوقت واخر حسب التاريخ

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

الاخوه الافاضل .... الساده الكرام

ارجو ضبط الامر لكى يعمل الكود بصوره صحيحه

 

()Private Sub Workbook_Open

"Application.OnTime TimeValue("16:30:00"), "Name_of_Macro

End Sub

 

 

كيف ان اضيف اكثر من كود لكى يعمل فى وقت محدد كل يوم ( كود 1 يعمل الساعه 10 ص ) و ( كود 2 يعمل 3 مساء )

 

واخر يعمل بعد تاريخ محدد ( كود 3 يعمل بعد 20/3/2014 )

حاولت وبائت المحاولات بالفشل

ارجو المساعده

جزاكم الله كل الخير

تم تعديل مارس 12, 2014 بواسطه ۩◊۩ أبو حنين ۩◊۩

[شوقي ربيع]

السلام عليكم

جرب هذا ن كان المطلوب غيير في التاريخ والوقت الذي يناسبك وضع المكروات التي تريد استدعائها في مكان المسج بوكس

Sub Macro1()
Application.OnTime TimeValue("18:08:00"), "Macro2"
End Sub

Sub Macro2()
MsgBox "macro2"
Application.OnTime TimeValue("18:09:00"), "Macro3"
End Sub

Sub Macro3()
MsgBox "macro3"
If Date = "12/03/2014" Then Call Macro4
End Sub

Sub Macro4()
MsgBox "macro4"
End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخىة العزيز شوقي ربيع

جزاك الله خير ...هل يت ذلم فى الماكرو نفسه ان فى حدث الشيت

واذا ان يتم ذلك فى حدث الشيت  ... كيف سيتم  

 

()Sub Macro1 

"Application.OnTime TimeValue("18:08:00"), "Macro2

End Sub

[شوقي ربيع]

السلام عليكم

ضع الكود الاول في حدث اقلاع الملف هكذا

Private Sub Workbook_Open()
Application.OnTime TimeValue("18:08:00"), "Macro2"
End Sub

وباقي الاكواد اتركها في الميودل

يبقى عليك ضب الوقت والتاريخ الذي يناسبك فقط

تحياتي لك

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزبز  

شوقي ربيع

 

واريد تطبيق نفس الامر على اكثر من كود فى ملف واحد ولاكنى لا استطيع

 

كود transfer يتم العمل به الساعه    6  مساءتلقائى

كود PDF_ALL  يتم العمل به الساعه 6.30  مساءتلقائى

كود delete_datas  يتم العمل به الساعه 7  مساءتلقائى

مرفق الملف

 

http://www.gulfup.com/?9qbpoC

 

جزاك الله كل الخير

[شوقي ربيع]

السلام عليكم

انضر المرفق

 

مانفست كلابشة time.rar

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم

اخى العزبز  

شوقي ربيع

جزاك الله كل الخير

الامر تم بصورة جيده