هل يمكن جعل كود الترحيل يرحل فى وقت محدد

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

السلام عليكم

الساده الافاضل

هل يمكن جعل كود ترحيل يرحل فى وقت محدد كل يوم

او كل اسبوع

او كل شهر

برجاء الافاده ...

Sub transfer()
Application.ScreenUpdating = False
Dim ws As Worksheet, ws2 As Worksheet
Set ws = Worksheets("name")
Set ws2 = Worksheets("trans")
For X = 3 To ws.Range("h65536").End(xlUp).Row
    If ws.Cells(X, "H") <> "" And ws.Cells(X, "J") <> "" Then
    Set srng = ws.Range("B" & X).Resize(1, 11)
    srng.Copy
    ws2.Select
    ws2.Cells(ws2.Range("B65536").End(xlUp).Row + 1, "B").Select
    ActiveSheet.Paste
    ws.Rows(X).Delete
    End If
Next
Application.CutCopyMode = False
End Sub

[حمادة عمر]

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

يمكن اخي الكريم تنفيذ ما تريده

قم باضافة السطر التالي ( في بداية الكود ) مثلا لتشعيل الكود الساعة 9 ص كل يوم

If Hour(Now) = 9 And Minute(Now) = 0 Then

ويمكنك ايضا اضافة السطر التالي قبل الكود ايضا او بمعني آخر في بداية الكود ليعمل الكود في تاريخ معين

If Date = #1/27/2014# Then

ارجو ان يفي ذلك بطلبك اخي الكريم

وان لم ينفع معك ارفق ملف كمثال للعمل عليه

تقبل خالص تحياتي

تم تعديل يناير 7, 2014 بواسطه حمادة عمر

[حمادة عمر]

ولاثراء الموضوع اكثر واكثر

اليك رابط موضوع هام للقدير /  أ / محمد صالح  ... جزاه الله خيرا

ان شاء الله سيفيدك اكثر

 

http://www.officena.net/ib/index.php?showtopic=29946&hl=%2B%D9%83%D9%88%D8%AF+%2B%D9%8A%D8%B9%D9%85%D9%84+%2B%D9%88%D9%82%D8%AA+%2B%D9%85%D8%AD%D8%AF%D8%AF

 

تقبل خالص تحياتي

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

السلام عليكم اخى حماده

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

اين تحديدا فى بدايه الكود

وكيف ان ارت الساعه AM  9 :45

 

وجدت هذا الكود فى المنتدى

"Application.OnTime TimeValue("17:00:00"), "my_Procedure

 

اين موضعه من الكود السابق 

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

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

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

اخى العزبز حماده

هذا هو الملف

والاهم سوف اطبق الامر فى اكثر من ملف  لاكن حجمه كبير

وكما ان التعليم مفيد جدا

كشف باسماء العاملينH.rar

[حمادة عمر]

جرب الكود بالطريقة التالية

Sub transfer()
If Hour(Now) = 9 And Minute(Now) = 45 Then
Application.ScreenUpdating = False
Dim ws As Worksheet, ws2 As Worksheet

Set ws = Worksheets("name")
Set ws2 = Worksheets("trans")

For X = 3 To ws.Range("h65536").End(xlUp).Row
    If ws.Cells(X, "H") <> "" And ws.Cells(X, "J") <> "" Then
    Set srng = ws.Range("B" & X).Resize(1, 11)
    srng.Copy
    ws2.Select
    ws2.Cells(ws2.Range("B65536").End(xlUp).Row + 1, "B").Select
    ActiveSheet.Paste
    ws.Rows(X).Delete
    End If
Next
Application.CutCopyMode = False
End If
End Sub

[حمادة عمر]

وبالنسبة للكود او السطر المرسل منكم

"Application.OnTime TimeValue("17:00:00"), "my_Procedure

و يعمل علي تنفيذ الكود المسمي  my_Procedure في التوقيت المحدد ايضا

اي انك من الممكن ان تقوم بتنفيذ الكود خاصتك باستخدام هذا السطر المقصود ايضا في حدث فتح الملف Workbook_Open

كالتالي

Private Sub Workbook_Open()
Application.OnTime TimeValue("16:30:00"), "Name_of_Macro"
End Sub

اي سيكون الكود الخاص بك والخاص بالترحيل كالتالي

Private Sub Workbook_Open()
Application.OnTime TimeValue("16:30:00"), "transfer"
End Sub

ويجب ملاحظة ان عمل الكود سيعتمد على توقيت الساعة الموجودة في كمبيوترك

 

وبرجاء اخي الكريم عند تقديم اي مثال او طلب او ذكر كود ان تقوم بارسال ملف كمثال لما تريد

لتوضيح الامر اكثر وللحصول علي افضل نتيجة

تقبل خالص تحياتي

تم تعديل يناير 7, 2014 بواسطه حمادة عمر

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

اخى العزيز حمادة

هل من الممكن تطبيقه على المرفق السابق

لانه لا يعمل معى ابدا

جزاك الله خير

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

[حمادة عمر]

هل يعمل معك الكود بشكل طبيعي

باستخدام الزر الخاص بالترحيل

وعذرا لعدم امكاني العمل او ارفاق ملف

حيث أكتب ردي لك من ع الموبايل

تقبل خالص تحياتي

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

السلام عليكم الاخ حماده

شاكر لك وقتك الثمين

فعلا الكود يعمل بصوره صحيه من خلال الزر

ويس من خلال الوقت

[حمادة عمر]

تفضل اخي الملف المرفق به المطلوب ( ان شاء الله )

ولكن لتجربته قم بتغيير ساعة جهاز الكمبيوتر لديك الي الساعة 4:30 مساءا

ثن انتظر دقيقة واحدة فقط

حيث يعمل الكود عند الساعة 4:31 مساءا بالضبط

وفي انتظار ردك

تقبل خالص تحياتي

 

 

كشف +باسماء العاملينH.rar

[احمد فضيله]

السلام عليكم و رحمة الله و بركاته

الاخوه الاحباب

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

[حمادة عمر]

السلام عليكم

الاستاذ الغالي / احمد فضيله

بارك الله فيك

مرور  دائما يشرف الموضوع ويشرفني انا شخصيا

تقبل خالص تحياتي

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

الاخ الحبيب الغالي الاستاذ / حماده عمر

بارك الله في حضرتك و جزاك كل خير على دعائك و كلماتك الطيبة

 

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

و الله الموفق والمستعان

و السلام عليكم ورحمة الله و بركاته

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

السلام عليكم

اخى العزبز حماده

جزاك الله كل الخير تم الامر كما هو منتظر

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

وشاكر لك وقتك الثمين...

اخى العزيز ... اثراءاٌ للموضع

هل من كود يتم فتح الملف به فى وقت محدد

جزاك الله كل الخير وجمع الاخوه بالمنتدى

[حمادة عمر]

السلام عليكم

الاستاذ الغالي / احمد فضيله

جزيت كل الخير

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

الحمد لله انك اهتديت لما تريد وكما طلبت

 

اما بالنسبة لطلبك الثاني فأظن ان ذلك لا يمكن عمله بالاكواد في ملف الاكسيل حيث ان الكود لا يعمل الا اذا تم فتح الملف

ولكن علي ما اظن انه يمكنك عمل ذلك اما باستخدام مهمام الويندوز نفسه

او احد البرامج المخصصة لذلك او تصميم برنامج آخر علي الفيجوال بيسك مثلا للقيام بهذه المهمة

 

ولكن لتبسيط الامر بعض الشئ شاهد الرابط التالي

ان شاء الله سيفيدك  فهو للقدير / عباد  ... جزاه الله خيرا

 

http://www.officena.net/ib/index.php?showtopic=41389&hl=%2B%D9%81%D8%AA%D8%AD+%2B%D9%85%D9%84%D9%81+%2B%D8%AA%D8%A7%D8%B1%D9%8A%D8%AE+%2B%D9%85%D8%AD%D8%AF%D8%AF

 

تقبل خالص تحياتي

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

السلام عليكم اخى حماده

فعلا... هى هديه عظيمه من اخ عزبز فى منتدى كبير

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

تقبل خالص تحياتي

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

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

تقبل خالص تحياتي

السلام عليكم

اخى الحبيب حماده... جمعه مباركه عليك وعلى جميع المسلمين

لقد ساعدتنى انت والاخوه الاعضاء فى ان اتمام عمل الكود فى وقت معين

 

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

 

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

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

مرفق الملف

 

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

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

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

السلام عليكم

الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩

بارك الله فيك

تقبل خالص تحياتي

السلام عليكم

اخى الحبيب حماده... جمعه مباركه عليك وعلى جميع المسلمين

لقد ساعدتنى انت والاخوه الاعضاء فى ان اتمام عمل الكود فى وقت معين

 

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

 

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

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

مرفق الملف

 

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

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

[محمد لطفى]

السلام عليكم

الموضوع شيق جدا جدا