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

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

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

السلام عليكم هل ممكن توضيح لهذه الجزئية

السلام عليكم ضع هذا الكود في زر أمر في الورقة 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