اذهب الي المحتوي
أوفيسنا

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

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    5412

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    47

 نوع المحتوي 

كل منشورات العضو عبدالله المجرب

  1. عبدالله المجرب
    السلام عليكم اخي الفاضل شاهد المرفق الشرح.rar
  2. عبدالله المجرب
    السلام عليكم مع التجربة تكتشف الاخطاء لتجاوز هذا الخطاء قم بتعديل هذا الجزء من الكود If w = r Or w + 1 = r Then Exit Sub ليصبح If w + 2 = r Or w + 1 = r Then Exit Sub وان شاء الله يفي بالغرض
  3. عبدالله المجرب
    السلام عليكم ما رايك ان تجربه وقد اصبح هكذا 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
  4. عبدالله المجرب
    السلام عليكم اهلاً وسهلاً بك اخي الفاضل ضع مرفق ليتم العمل عليه
  5. عبدالله المجرب
    اذاً ينقل الموضوع الى قسم الوورد
  6. عبدالله المجرب
    اخي الفاضل قمت بالتعديل على الملف الذي في الرابط المرفق ان شاء الله يناسبك (لو فتح الملف 50 مرة ) بعدها سيتم اغلاقه ولا يقبل الفتح عدد مرات فتح الملف1.rar
  7. عبدالله المجرب
    وضح أكثر أخي ايهاب
  8. عبدالله المجرب
    هل تقصد ان يتم إغلاق الملف اذا وصل عدد مرات الفتح 50
  9. عبدالله المجرب
    السلام عليكم رجع هذا الرابط (مع اضافة الشرط عند الوصول الى العد المحدد)
  10. عبدالله المجرب
    السلام عليكم اذا كان الملف يخصك فبامكانك ان ترفقه للمحاولة في فتح الحماية مع ذكر نوع الباسوورد (حروف وارقام ام ارقام فقط)
  11. عبدالله المجرب
    الله اعلم هل تم حذفه ام لا ولكن الملف كان موجود وانا حملته وموجود لدي واسمه مكافأة إمتحانات نهاية العام للساده العاملين بالتربية والتعليم - سعيد عامر بيرم بانتظار رد الاخ سعيد بيرم!!!!!
  12. عبدالله المجرب
    السلام عليكم المشكلة ليست في ارفاق الملف بصيغة 2003 ولكن المشكلة انه تم استعمال معادلات موجودة في 2007 ولا توجد في 2003 اي ان النتيجة ستكون خطاء في الدالة في مرفق 2003 والله اعلم
  13. عبدالله المجرب
    اخجلتمونا بردكم يا ابا عبدالرحمن شكراً لك
  14. عبدالله المجرب
    السلام عليكم اخي الفاضل edkawy تم عمل اللازم في ملفك المرفق الاخوة للمواد الغذائية.rar
  15. عبدالله المجرب
    اسف اخي ذيب اليمن لاني لم اقم بتغيير التاريخ اثنا التجربة والخطاء الذي يقع في الكود هو بسبب خلو اخر خلية من تاريخ لان الشهر 30 يوم ولتجاوز خذا الخطاء ستجد هذا السطر في الكود If Cells(i + 12, 7).Value = "" Then GoTo 1 استبدله بهذا If Cells(i + 12, 7).Value = "" Or Cells(i + 12, 7).Offset(0, -5) = "" Then GoTo 1
  16. عبدالله المجرب
    اخي ابو وائل شكراً لمرورك وتشجيعك وهذا رد معروف لما تعلمناه من هذا المنتدى
  17. عبدالله المجرب
    تم تثبيت الموضوع لعموم الفائدة
  18. عبدالله المجرب
    اللهم آمين شكراً اخي الكريم والحمدلله ان توصلت الى مبتاغاك
  19. عبدالله المجرب
    شكراً جزيلاً اخي جمال على هذا الرد الحلو
  20. عبدالله المجرب
    السلام عليكم ملف تحفة تسلم يدك اخي جمال على هذا الملف الروعة بصراحة هداياك قيمة شكراً لك
  21. عبدالله المجرب
    السلام عليكم اعذرني اخي ذيب اليمن (اتمنى معرفة اسمك الحقيقي) لم احاول بالامس وعندما وجدت ردك قمت بإضافة هذا الشرط للكود Weekday(Cells(i + 12, 7).Offset(0, -5)) = 6 والحمدلله كانت النتيجة ممتازة book (2).zip
  22. عبدالله المجرب
    السلام عليكم الاخ الفاضل جمال ارفق لك شرح بصوتي للطريقة ومنها فائدة للاخ السائل اذا اراد التطبيق شرح 2011.rar
  23. عبدالله المجرب
    السلام عليكم من حفظ بأسم اختر csv شاهد الصورة
  24. عبدالله المجرب
    بحيلة بسيطة تم التغلب على مشكلة الارقام الكبيرة شاهد المرفق تسلسل.rar
  25. عبدالله المجرب
    السلام عليكم اولاً اعتقد الفورم من اعداد الاستاذ خبور خير والله اعلم === ثانياً وعلى حسب فهمي للمطلوب في كود الفورم ستجد هذا السطر مكرر مرتين Set MySh = Sheets("ورقة1") استبدلهما بهذا Set MySh = ActiveSheet وان شاء الله يتم البحث في الورقة النشطة
×
×
  • اضف...

Important Information

  I accept