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

السلام عليكم الاخ الفاضل فادي حياك الله بيننا اخ عزيز === نرجو منك ارفاق ملف للعمل عليه مع توضيح اكثر للمطلوب

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

السلام عليكم حسب فهمي للمطلوب تم التعديل على ملف الاخ سعيد بيرم اضافة عدد ايام على تاريخ - سعيد بيرم.rar

الرقم هو 10990

السلام عليكم هذي محاولة عالسريع بحث وتصفية.rar

اخي فراس اعذرني فلم يتضح الموضوع (بالنسبة لي) فما علاقة النسخ واللصق بالتصفية وما المطلوب للربط بينهما

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

المطلوب غير واضح بالكلية

ضع هذه المعادلة في الخلية الصفراء =DATEDIF(E5;F5;"md")&" يـوم "&DATEDIF(E5;F5;"ym")&" شهر "&DATEDIF(E5;F5;"y")&" سنة"

شكراً اخي ابو نصار وان شاء الله يكون هو طلب الاخ السائل

السلام عليكم تم عمل اللازم ==== انا مؤيد لطلب اخي سعيد بالنسبة لتغيير صورة العرض 911.rar

بعد اذن اخي ابو نصار وكون الفورم خذ وقت حتى تم عمله جرب المرفق بعد إضافة فورم ترحيل البيانات افادة 5.rar

تفضل المرفق بعد اضافة الحل production_details.rar

السلام عليكم تم مناقشة هذا الموضوع اكثر من مرة وبالبحث ستجد الكثير وهذخ الروابط كمثال http://www.officena.net/ib/index.php?showtopic=31283 http://www.officena.net/ib/index.php?showtopic=30788

السلام عليكم اخي يمكنك استعمال الدالة IFERROR في اكسل 2007 او دالة IF(ISERROR في اكسل 2003 ==== او ارفق ملف للعمل عليه

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

هنا تستعمل الحلقات التكرارية For و Next ولعمل هذا ضع مرفق (بطلب جديد )للفائدة وان شاء الله ستجد الحل

السلام عليكم المشكلة في طلب الاخ ابو الحسن هو ان جلب البيانات يتم من عدة شيتات (عددها كثير) وان يتم التعديل على هذه البيانات واعادة ترحيلها (او لصقها) كل شي ممكن بالاكسل بفضل الله ومن ثم بجهود فرسان أوفيسنا لذا وكما قال الاخ يوسف عطا ادعو كل من له مقدرة على مساعدة اخينا ابو الحسن في موضوعه بأن لا يألو جهداً في بذل المساعدة والله ولي التوفيق

السلام عليكم الاخوين الكريمين يوسف عطا و mhrrd نرجو ان لا يفسد الاختلاف في الراي للود قضية ابواحمد

السلام عليكم بإقتراح من عميد منتدانا الاستاذ الفاضل جمال دغيدي نضع هذا الموضوع ليكون محفظة تجميعية لجميع المواضيع المتعلقة بالتحقق من الصحة وفي النهاية نتمنى من أخونا العزيز الاستاذ جمال الفار بأن يجمع الخلاصة في ملف اكسل (كما عودنا) وقواعد المشاركة في هذا الموضوع كالتالي: وضع روابط لمشاركات قيمة تتعلق بالموضوع فقط. مع شكرنا وتقديرنا للجميع نرجو بعدم وضع مشاركات الشكر (سيتم حذفها) وذلك للأستفادة من الموضوع. * الموضوع وضع للاستفادة في ما يخص موضوع التحقق من الصحة فاجعل مشاركتك فيه ذات معنى وقيمة *وهذا طلب للجميع ليدلو الكل بدلوه حتى نشكل الرافد الذي يستفيد منه اعضاء المنتدى. والله من وراء القصد ****************************************** وابداء انا الروابط 1. هذا رابط للمقارنة بين التنسيق الشرطي والتحقق من الصحة الرابط من هنا ****************************************** 2. شرح انشاء قاعدة تحقق من الصحة الرابط من هنا ****************************************** 3-التحقق من الصحة لعدة جداول data validastion http://www.officena.net/ib/index.php?showtopic=38347 ****************************************** 4. التحقق من الصحة http://www.officena.net/ib/index.php?showtopic=4344 ****************************************** 5. التحقق من الصحة http://www.officena.net/ib/index.php?showtopic=36963 ****************************************** 6-سؤال في قاعدة التحقق من الصحة Validation http://www.officena.net/ib/index.php?showtopic=37059 ****************************************** سيتم تثبيت الموضوع لفترة محدودة

السلام عليكم وهذه هي الملفات بصيغة 2003 الدوري الاروبي والاسباني2003.rar

هذا رابط طلبك وفيه الاجابة الرابط من هنا

السلام عليكم اخي الفاضل شاهد المرفق الشرح.rar

السلام عليكم مع التجربة تكتشف الاخطاء لتجاوز هذا الخطاء قم بتعديل هذا الجزء من الكود If w = r Or w + 1 = r Then Exit Sub ليصبح If w + 2 = r Or w + 1 = r Then Exit Sub وان شاء الله يفي بالغرض

السلام عليكم ما رايك ان تجربه وقد اصبح هكذا Subطباعة_اسماء_محددة() If Range("C49") = 0 Then MsgBox "حدد الاسم او الاسماء التي تريد طباعتها ثم اضغط على الزر مرة أخرى " Exit Sub End If For i = 51 To 149 If Cells(i, 2) = True Then Range("A1").Value = i - 50 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next End Sub