بن علية حاجي

السلام عليكم ورحمة الله أخي الكريم، تعلم أن التصفية (الفلترة) لا يمكن أن تتحقق في جداول غير متصلة (حسب معرفتي)، لذا يجب التحايل معها مثلما فعل أخي الحبيب طارق جازاه الله خيرا، وحل آخر أقدمه لك في الملف المرفق (بالفكرة نفسها) أي بالاستعانة بعمود إضافي (وقد جعلته العمود A في المرفق -ويمكن أن يكون أي عمود آخر-) بمعادلة شرطية... ثم تتم التصفية وفق هذا العمود... أرجو أن يفي بالغرض المطلوب... أخوك بن علية الملف المرفق : New 3.rar

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى حلي أخوايا الكريمين أبو تراب وطارق جازاهما الله خير الجزاء وبارك فيهما، يمكنك الاستعانة بالدالة المستحدثة VLOOK2ALL (لأخينا أبو ثامر حفظه الله ورعاه) المعدلة في موضوع الأخ أحمد مرجان الذي عنوانه "هل يمكن جعل دالة Vlook2all تعمل بشكل عكسي؟؟؟" والذي رابطه http://www.officena.net/ib/index.php?showtopic=58136&hl أو يمكنك الاستعانة أيضا بالدالة المستحدثة الأخرى VLOOKAnyCol لأخينا أبو ثامر أيضا (تجدها في مدونته)... أخوكم بن علية

السلام عليكم ورحمة الله اخى الفاضل الملف يعمل بنجاح ... لكنه مضغوط فيجب عليك فك الضغط أولا .. تحياتي شكرا لك أخي الكريم ابن مصر على هذا التعقيب وعلى تأكيد عمل الملف... ولأخي الكريم محمود أقول ربما يكون سبب عدم عمل الملف معك هو "ارتفاع مستوى أمان الماكرو" فيجب في هذه الحالة تخفيض هذا المستوى إلى الأدنى وأعد فتح الملف المرسل من جديد وإن شاء الله سيعمل معك الملف بكل نجاح... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم أبو صلاح، يكفي أن تستبدل في الكود العبارة xlPasteValues بالعبارة xlPasteFormulas حتى يتم ترحيل القيم والمعادلات (سواء كانت المعادلات في العمود W أم في غيره)... والله أعلم أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم محمود، جرب الملف بالمرفق أرجو أن يكون بعضا من المطلوب... أخوك بن علية المرفق : Book1.rar

السلام عليكم ورحمة الله هذا حل آخر بمعادلات بسيطة في العمود A (تم الاستغناء عن معادلات الصفيف والمعادلات الإضافية في النطاق H7:J1000 تم تبديلها بمعادلات بسيطة في النطاق H7:J7 فقط)... أرجو أن يفي بالغرض المطلوب... بن علية . الملف المرفق : مشكل7.rar

السلام عليكم ورحمة الله هذا حل باستعمال معادلات صفيف ومعادلات في أعمدة إضافية (للترقيم التسلسلي)... ممكن أن تجد حلولا أبسط بالمعادلات أو بالأكواد... بن علية الملف المرفق : مشكل7.rar

السلام عليكم ورحمة الله تم التعديل على كود الدالة VLOOK2ALL -حسب ما فهمت من طلبك- بإضافة وسيط جديد (الثالث في الترتيب) سميته "عمود_البحث" وهو العمود الذي من خلاله تتم عملية البحث... أتمنى أن يكون هذا المطلوب ويفي هذا التعديل بالغرض المنشود... بن علية الملف المرفق : دالة Vlook2all.rar

السلام عليكم قمت بعمله بواسطة إكسيل مع إضافة جدول لتواريخ العطل الرسمية (باليوم) ويبقى بعض التنسيقات على الملف (نوع خط الكتابة وغيرها)... أرجو أن يكون فيه بعض الفائدة... بن علية المرفق : 2015.rar

السلام عليكم ورحمة الله أخي الكريم، أرجو أن تذكر متى تظهر هذه الرسالة، إذا كانت عند فتح ملف معين فالرجاء إرفاق الملف الذي به هذه المشكلة... أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم محمد، عمل جميل جدا وموضوع شيق، جازاك الله خيرا وزادك من علمه وجعل ذلك في ميزان حسناتك... وددت أن أشارك في الموضوع وأستسمحك في التعديل على المعادلة بجعل نطاق البحث نطاقا ديناميكيا (ربما يُخرج هذا التعديل المعادلةَ من البساطة) لأنه يمكن أن يختلف عدد الموظفين من شهر لآخر، وحتى معادلة القائمة المنسدلة لأسماء الموظفين تم التعديل عليها ويتم جلب هذه القائمة من شيت كل شهر... أرجو أن يروقك هذا التعديل وتقبل اعتذاري لهذا التعديل... يبقى فقط مشكل عدم وجود القيمة التي نبحث عنها، فمعادلة البحث تعطي خطأ لذا يجب التعديل فيها للأخذ بعين الاعتبار هذا الخلل... أخوك بن علية vlookp.rar

السلام عليكم ورحمة الله أخي الكريم feteh07، لو أنك أرفقت مثالا في ملف من تصميمك أو آخر لعُلمت الإجابة ويسهل علينا فهم المطلوب جيدا... أخوك بن علية

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

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على الارتباط بتغييره بالملف المعني... أخوك بن علية المرفق : 24 حساب 60 الات تخليص بشيكات.rar

السلام عليكم ورحمة الله الرجاء صغط الملف وإرفاقه من جديد لأن حجمه كبير...

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم التعديل على الكود حسب المطلوب وزيادة الشرط الذي طلبته مني في رسالتك الخاصة وهو أن يتم حفظ كل الشيتات التي تكون فيها الخلية AQ4 مساوية الصفر... أرجو أن يعجبك هذا التعديل ويفي بالغرض المطلوب... أخوك بن علية الملف المرفق : المقاولين1.rar

السلام عليكم ورحمة الله أخي الكريم سليم، هذا حل لغزك باستعمال النطاقات الديناميكية (المتحركة) بالدالة OFFSET واستعمال الدالة INDEX تم تحديد المطلوب... أخوك بن علية المرفق : Look nth last.rar

السلام عليكم ورحمة الله كما وعدتكم، هذا حل اللغز السابق حول الجدول 3 وكيفية الحصول عليه... أخوكم بن علية الملف: New Table 3.rar

السلام عليكم ورحمة الله أين أنتم مع الألغاز؟... أم أنكم اكتفيتم منها؟ وسأضع حل اللغر الضي وضعته بالغد (أقصد اليوم) إن شاء الله... بن علية

السلام عليكم ورحمة الله أعتقد أن هناك خطأ في تحوير المثالين الثالث والرابع في ملفك المرفق حسب ما فهمت من القانون... راقب المعادلات التي وشعتها ملفي المرفق لعله فيها المطلوب... أخوك بن علية الملف : TEST 1.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، طبعا يمكن ذلك جدا غير أني لم أستطع أن أجعل اسم الزر يتغير حسب الحالة يمكن جعل اسم الزر موحدا مثل Merge/UnMerge... يبقى أن الزر بالكود التالي: Sub Merge_UnMerge() On Error Resume Next Application.ScreenUpdating = False ActiveSheet.Unprotect Password:="2191612" If TypeName(Selection) = "Range" Then If Selection.MergeCells = False Then Selection.Merge Selection.HorizontalAlignment = xlCenter Selection.VerticalAlignment = xlCenter Else Selection.UnMerge End If End If Application.ScreenUpdating = True ActiveSheet.Protect "2191612" End Sub وعذرا لعدم تمكني من تحقيق كل الذي تريده... أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، هذه الثغرة يمكن ملؤها بإنشاء زر جديد وربطه بالكود التالي : Sub UnMerge_Cell() Application.ScreenUpdating = False On Error Resume Next ActiveSheet.Unprotect "2191612" If TypeName(Selection) = "Range" Then Selection.UnMerge End If Application.ScreenUpdating = True ActiveSheet.Protect "2191612" End Sub أخوك بن علية

السلام عليكم ورحمة الله أخي الكريم، قمت بالعمليات التالية على الملف : 1- تحديد كل الخلايا وتلوينها باللون الأخضر 2- تطبيق تنسيق شرطي أول على خلايا الشيت بالشرط أن تكون مضامينها سالبة والتلوين باللون الأحمر 3- تطبيق تنسيق شرطي ثاني على خلايا الشيت بالشرط أن تكون مضامينها فارغة أو تكون نصوصا دون لون )إلغاء الأخضر على الخلايا)... الكل تجده في الملف المرفق... MD_2.rar أخوك بن علية

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تقصد الدمج والتوسيط Merge_center، التنسيق على الخلايا في شيت محمي غير ممكن مباشرة... غير أن العملية ممكنة جدا بواسطة كود وقد أدرجت في شيت رمضان1 فقط كود من النت -بتصرف- ووضعت له Button (صورة حصان) يقوم بعملية دمج وتوسيط الخلايا التي تم تحديدها في هذا الشيت... وإذا أردت تطبيق الكود في كل الشيتات فينبغي نسخ الزر Button ولصقه في كل الشيتات الأخرى (أو إنشاء زر آخر جديد في هذه الشيتات) ثم ربط هذه الأزرار بالكود نفسه... أخوك بن علية المرفق : المقاولين.rar

السلام عليكم ورحمة الله أخي الحبيب أبو حنين، تم إنشاء كود طباعة لجميع الشيتات حسب الشرط المذكور ووضع زر له في شيت رمضان1... بالنسبة للسؤال الثاني marge_center لم أفهمه فالرجاء التوضيح أكثر... أخوك بن علية المرفق : المقاولين.rar