عبدالله المجرب

السلام عليكم ضع هذا الكود في زر أمر في الورقة 2 Sub Abu_Ahmed() Dim cl As Range Set Mysh = Sheets("1") For Each cl In Mysh.Range("G2:G" & Mysh.[G10000].End(xlUp).Row) If cl = [G2] Then Mysh.Range("A" & cl.Row & ":" & "F" & cl.Row + 5).Copy Range("A2").PasteSpecial xlPasteValues Exit For End If Next Set Mysh = Nothing End Sub

ان شاء الله هذه تعمل =IF((H6-J6)<0;"-"&TEXT((J6-H6);"hh:mm");(H6-J6))

جرب هذه المعادلة في الخلية K6 واسحب للاسفل =IF((H6-J6)<0;(J6-H6);(H6-J6))

السلام عليكم بخصوص المطلوب الاول ماهو معيار الترحيل (لان الموجود غير مفهوم) === بخصوص المطلوب الثاني تم عمل دالة لعمل المتوالية المطلوبة شاهد المرفق FBB.zip

بصراحة لم افهم الية الحساب لكن جرب هذه المعادلة =ABS(H6-J6) ضعها في الخلية K6 واسحبها للاسفل

الف مبروك اخي ضاحي على الترقية المستحقة

السلام عليكم اخواني اعذروني على التأخر في الرد اليكم ملف اكسس يقوم بعملية استخراج كود التفعيل وللامانة فالموضوع كله كان بالاكسس ولنا نفذته بالاكسل KEY.rar

بارك الله فيك أستاذ مجدي

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

ما شاء الله عمل مميز وبطريقة مبدعة ورائعة وإحترافية بارك الله فيك يثبت لعموم الفائدة

ما شاء الله عمل مميز وجهد كبير بارك الله فيك استاذ عمرو تقبل مروري

ملف غاية في الروعة والجمال سلمت يمينك استاذ جمال

السلام عليكم التجربة تمت على الخلايا من K2: K20 قمت بالتعديل على المرفق كالتالي 1. الغيت القائمة المنسدلة وجعلتها تظهر بالضغط دبل كليك على اي من الخلايا في العمود K اي بمعنى اذا اردت ان تختار يدوياً في الخلية K3 مثلاً فما عليك الا الضغط دبل كليك عليها وستظهر القائمة لتختار منها 2. في حال كتبت في الخلية B5 مثلاً وكانت الخلية K4 ليس بها بيانات فسيتم الادراج اوتوماتيكياً جرب المرفق 005.rar

بارك الله فيك استاذ مجدي

هل تقصد انه بعد تعبئة الخلية في الصف التالي يتم التعبئة أم ماذا

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

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

جرب المرفق Book1 (2).rar

اخي الفاضل يجب ان تربط التعبئة بحدث معين مثل يتم التعبئة اوتوماتيكياً اذا تجاوزت العمود K وكتبت في العمود الذي يليه وهكذا فهل لديك فكرة لربط التعبئة

بصراحة المطلوب غير مفهوم ما الذي تريده ان يتم تعديله في الملف

السلام عليكم لوحظ مؤخراً قيام بعض الاعضاء بوضع مواضيع طلب ترقيات لاعضاء بعينهم (قد تكون هذه الترقيات مستحقة) ولكن كون هذا الامر من اختصاص الجهاز الاشرافي وإدارة المنتدى نرجو من الاعضاء عدم فتح مواضيع بهذا الخصوص وان كان هناك ملاحظة لترقية أي عضو يمكن مخاطبة أي من المشرفين أو مدير الموقع في رسالة خاصة مع مبررات الطلب وللامانه فأن المشرفين قائمين بجهد ممتاز في تقييم الاعضاء وطلب ترقيتهم ويتم التنفيذ مباشرة من الادارة. فالرجاء عدم فتح مواضيع بهذه الطلبات في المنتديات وترك ذلك الأمر لمشرفي المنتديات للتقييم والترشيح وشكراً

الاستاذ الفاضل دغيدي الملاحظ بأن الأخت تعيش في الولايات المتحدة الاميريكية ========================================= Dear Sister Is it possible to attach a file to work on it

اخي الكريم تابع مواضيع الاستاذ احمد فضيله 1. http://www.officena.net/ib/index.php?showtopic=38776&hl= 2. http://www.officena.net/ib/index.php?showtopic=37604&hl= 3. http://www.officena.net/ib/index.php?showtopic=45598&hl= 4. http://www.officena.net/ib/index.php?showtopic=37547&hl=

السلام عليكم إستبدل الكود السابق بهذا Private Sub CommandButton1_Click() Set WshShell = CreateObject("WScript.Shell") Sheets("السعودية").Select Selection.QueryTable.Refresh BackgroundQuery:=False WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "يتم تحديث سوق السعودية!", 0 Sheets("السعودية").Select WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "تم تحديث سوق السعودية!", 0 Selection.QueryTable.Refresh BackgroundQuery:=False WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "يتم تحديث سوق الكويت!", 0 Sheets("الكويت").Select Selection.QueryTable.Refresh BackgroundQuery:=False WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "تم تحديث سوق الكويت!", 0 WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "يتم تحديث سوق أبو ظبي!", 0 Sheets("ابو ظبي").Select Selection.QueryTable.Refresh BackgroundQuery:=False WshShell.Popup "تظهر هذه الرسالة لثواني ثم تختفي لوحدها دون ان اضغط انتر او موافق", 5, "تم تحديث سوق أبو ظبي!", 0 Sheets("الرئيسة").Select End Sub للأمانة فهذه الطريقة للاستاذ محمد صالح وتجدونها هنا http://www.officena.net/ib/index.php?showtopic=39926&hl= شاهد المرفق update.rar

وعليكم السلام ورحمة الله وبركاته بارك الله فيك استاذي ومعلمي أحمد زمان ولا اقول الا اعاننا الله وإياك على مشاغل الحياة