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

**۩◊۩ أبو حنين ۩◊۩** · يناير 7, 2014

السلام عليكم

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

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

او كل اسبوع

او كل شهر

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



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

**حمادة عمر** · يناير 7, 2014

السلام عليكم

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

بارك الله فيك

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

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

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

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

If Date = #1/27/2014# Then

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

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

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

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

**حمادة عمر** · يناير 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

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

**۩◊۩ أبو حنين ۩◊۩** · يناير 7, 2014

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

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

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

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

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

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

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

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

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

**۩◊۩ أبو حنين ۩◊۩** · يناير 7, 2014

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

هذا هو الملف

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

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

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

**حمادة عمر** · يناير 7, 2014

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

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

**حمادة عمر** · يناير 7, 2014

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

"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

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

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

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

جزاك الله خير

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

**حمادة عمر** · يناير 7, 2014

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

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

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

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

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

**۩◊۩ أبو حنين ۩◊۩** · يناير 7, 2014

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

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

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

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

**حمادة عمر** · يناير 8, 2014

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

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

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

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

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

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

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

**احمد فضيله** · يناير 8, 2014

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

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

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

**حمادة عمر** · يناير 8, 2014

السلام عليكم

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

بارك الله فيك

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

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

**احمد فضيله** · يناير 8, 2014

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

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

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

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

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

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

**۩◊۩ أبو حنين ۩◊۩** · يناير 9, 2014

السلام عليكم

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

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

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

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

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

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

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

**حمادة عمر** · يناير 9, 2014

السلام عليكم

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

جزيت كل الخير

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

**حمادة عمر** · يناير 9, 2014

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

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

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

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

**۩◊۩ أبو حنين ۩◊۩** · يناير 9, 2014

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

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

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

**حمادة عمر** · يناير 9, 2014

السلام عليكم

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

بارك الله فيك

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

**۩◊۩ أبو حنين ۩◊۩** · يناير 17, 2014

السلام عليكم

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

بارك الله فيك

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

السلام عليكم

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

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

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

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

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

مرفق الملف

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

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

**۩◊۩ أبو حنين ۩◊۩** · مارس 20, 2014

السلام عليكم

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

بارك الله فيك

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

السلام عليكم

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

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

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

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

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

مرفق الملف

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

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

محمد لطفى · فبراير 25, 2015

السلام عليكم

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

تسجيل الدخول

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

الردود الموصى بها

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

رابط هذا التعليق

شارك

من فضلك سجل دخول لتتمكن من التعليق

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information