حمادة عمر

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

السلام عليكم الاستاذ الغالي / احمد فضيله بارك الله فيك مرور دائما يشرف الموضوع ويشرفني انا شخصيا تقبل خالص تحياتي

تفضل اخي الملف المرفق به المطلوب ( ان شاء الله ) ولكن لتجربته قم بتغيير ساعة جهاز الكمبيوتر لديك الي الساعة 4:30 مساءا ثن انتظر دقيقة واحدة فقط حيث يعمل الكود عند الساعة 4:31 مساءا بالضبط وفي انتظار ردك تقبل خالص تحياتي كشف +باسماء العاملينH.rar

جزاك الله خيرا جاري التحميل والاطلاع

هل يعمل معك الكود بشكل طبيعي باستخدام الزر الخاص بالترحيل وعذرا لعدم امكاني العمل او ارفاق ملف حيث أكتب ردي لك من ع الموبايل تقبل خالص تحياتي

تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخت الفاضلة / سما محمد بارك الله فيك مرور طيب وكريم أكرمك الله في الدارين تقبل خالص تحياتي

السلام عليكم الاخ الحبيب / هاني مصطفي بارك الله فيك مرور طيب وكريم أكرمك الله في الدارين تقبل خالص تحياتي

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / رائد 1982 بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

السلام عليكم الاخ الكريم / هاني مصطفي بارك الله فيك مرور طيب وكريم تقبل خالص تحياتي

وبالنسبة للكود او السطر المرسل منكم "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 ويجب ملاحظة ان عمل الكود سيعتمد على توقيت الساعة الموجودة في كمبيوترك وبرجاء اخي الكريم عند تقديم اي مثال او طلب او ذكر كود ان تقوم بارسال ملف كمثال لما تريد لتوضيح الامر اكثر وللحصول علي افضل نتيجة تقبل خالص تحياتي

جرب الكود بالطريقة التالية 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

السلام عليكم الاخ الكريم / سيد رجب بارك الله فيك الملف المرفق منكم في المشاركة السابقة وايضا المشاركة رقم 13# لا يوجد بها اي شاشة او اكواد برجاء مراجعة الملفات المرفقة وايضا مراجعة امتداد ملفك عند الحفظ يجب ان يكون xslm وليس xslx حيث ان الاخير لا يحفظ الاكواد ولا الفورم او الشاشات واي استفسار بخصوص الشاشة ياريت لو يكون في الموضوع الخاص به هنا في الرابط التالي لزيادة الافادة للجميع والتزاما بقواعد المنتدي طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة في انتظار ردك تقبل خالص تحياتي

ولاثراء الموضوع اكثر واكثر اليك رابط موضوع هام للقدير / أ / محمد صالح ... جزاه الله خيرا ان شاء الله سيفيدك اكثر 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 تقبل خالص تحياتي

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك يمكن اخي الكريم تنفيذ ما تريده قم باضافة السطر التالي ( في بداية الكود ) مثلا لتشعيل الكود الساعة 9 ص كل يوم If Hour(Now) = 9 And Minute(Now) = 0 Then ويمكنك ايضا اضافة السطر التالي قبل الكود ايضا او بمعني آخر في بداية الكود ليعمل الكود في تاريخ معين If Date = #1/27/2014# Then ارجو ان يفي ذلك بطلبك اخي الكريم وان لم ينفع معك ارفق ملف كمثال للعمل عليه تقبل خالص تحياتي

بالفعل اخي الكريم لا يعمل علي الاصدار 64 جرب الكود علي الاصدار 32 سيعمل معك بكفاءة تقبل خالص تحياتي