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

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

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

اخي واستاذي الفاضل عبدالفتاح "ابا عمر " شكراً لمرورك الاستاذ العزيز نارت " ابا ادم " شكراً لك وملاحظة جيدة (انتباهك للتغيير في الشكل) كما قال الاستاذ محمد جرب تغيير الترميز لان عرض النشرةيعمل جيداً عندي والله اعلم

اخي ابو الحارث تم عمل المطلوبين الاول والثالث في الملف المرفق بالنسبة للمطلوب الاول تم استخدام التنسيق الشرطي فبمجرد ان يتم تغيير قيمة الخلية سوف تتلون الخلية وعند اغلاق الملف واعادة فتحه سيختفي التلوين لتبداء من جديد وهكذا (على حد فهمي للمطلوب) بالنسبة للمطلوب الثاني (في طور العمل ) والى الغد بإذن الله لانه دقت ساعة اغلاق الكمبيوتر ههههههه جرب واخبرني رايك تلوين خلية + التحقق من الصحة.rar

استاذي واخي / احمد فضيلة " هنكوك " شكراً لمرورك ابواحمد

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

اخي الفاضل شكراً لتفهمك mek2oc9b هي كلمة السر التي توضع في التكست بوكس للدخول للبرنامج السؤال هل حصولك عليها من صاحب البرنامج؟؟

ابا الحارث كما هو متوقع فانت اول من يرد شكراً لمرورك ابواحمد

وهذا حل أخر بإستخدام الاكواد قم بمسح المعادلة من عمود النواقص ثم ضع الكود في زر أمر عند الضغط على زر الامر سيتم إستخراج البيانات الغير مكررة ولصقها في عمود النواقص Sub OFFICNA() Application.ScreenUpdating = False LR = Sheets("Sheet2").Range("e" & Rows.Count).End(xlUp).Row + 1 Range("E2:E" & LR).ClearContents For i = 2 To 12 x = Application.WorksheetFunction.CountIf(Range("C2:C12"), Cells(i, 1)) If x = 0 Then LR1 = Sheets("Sheet2").Range("e" & Rows.Count).End(xlUp).Row + 1 Cells(i, 1).Copy Range("E" & LR1) End If Next i Application.ScreenUpdating = True End Sub ابواحمد

اخي الفاضل جرب المرفق حسب فهمي للمطلوب ابواحمد الفرز.rar

بسم الله الرحمن الرحيم النشرة الدورية لمواضيع المنتدى - العدد الخامس http://www.officena....s/news%2005.htm و سيتم توزيع الوصلة بالبريدعلى جميع الاعضاء من قبل الاستاذ محمد طاهر و ستصدر النشرة دوريا بصورة نصف شهرية بإذن الله تعالى مرفق الملف فى صيغة Pdf news 05.pdf

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

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

أخي الفاضل بعد الاطلاع على الملف ومحاولة فتح محرر الاكواد تمت العملية والحمد لله ولكن كون من قام بعمل الملف يطلب مراسلته على هذا الايميل E-MAIL: mekeduc@gmail.com للحصول على كود التفعيل وتبعاً لسياسة المنتدى أقدم إعتذاري عن تقديم المساعدة بهذا الخصوص ابواحمد

قبل ان أحمل الملف انا متأكد من جودة العمل وإتقانة "الولد العزيز أحمد" حفظك الله وسدد على الخير خطاك تقبل مروري اباك

الاستاذ الوقور أبا خليل حفظه الله شكراً جزيلاً لمرورك ابواحمد

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

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

اخي اليس هذا ما طلبته في ملفك المرفق ؟؟؟؟ ابوحمد

أخي الفاضل المشكلة في طريقة حفظ الملف يجب ان تكون صيغة حفظ الملف xlsm وليس xlsx. لاحظ الصورة

أخي سعد بالغت في المدح فاحرجتنا ياراجل (هذا نقطة في بحر علمكم) شكراً على المجاملة * ملاحظة مهمة الشروط تكتب في الخانات الصفراء (لان هناك شروط في القائمة المنسدلة لخانة Cash ) في حال الرغبة لنقل البيانات الى شيت أخر فسيكون التغيير في بداية الكود فقط (مع العلم بأن خانة الشروط بنفس الترتيب) Sheets("Sheet1").Range("rng") والله أعلم

أخي ابو نصار هذا بعض ما عندكم شكراً على مروركم الجميل وتشجيعكم ابواحمد

أخي الفاضل جرب المرفق وأعلمني بالنتيجة ابواحمد استدعاء بالمعايير.rar

اللهم آمين الاستاذ الفاضل محمد طاهر الاستاذ الفاضل هنكوك شكراً جزيلاً لمروركم الكريم ابواحمد

أخي الفاضل 1. تم تعديل العنوان للدلالة (يرجي وضع عنوان مناسب في المستقبل) 2. من الافضل إرفاق ملف به توضيح للمطلوب ليتم العمل عليه 3. يمكنك كحل أولي أستخدام الدالة IF لعمل شروط النوبات والله اعلم