رجب جاويش

أخى الفاضل ضع السطر التالى فى بداية الكود ( على اعتبار مثلا أن كلمة المرور 123 ) Worksheets("Data Entry").Unprotect "123" والسطر التالى فى نهاية الكود Worksheets("Data Entry").Protect "123"

أستاذى الحبيب أستاذ الإبداع / عبد الله باقشير تسلم ايديك وجزاك الله كل خير

أحى الحبيب المبدع / أبو حنين تسلم ايديك وجزاك الله كل خير

أستاذى الحبيب / عبد الله باقشير فعلا رقم واحد فى الابداع بلا منازع جزاك الله كل خير

أختى الفاضلة / أم عبد الله شكرا جزيلا أختى الفاضلة على هذه الكلمات العطرة والدعاء الطيب وجزاك الله كل خير

اللهم فك كرب المسلمين أجمعين في كل ملأ وفي كل حين

أخى الفاضل / الشيباني1 جرب المرفق لعله يعجبك new_file.rar

أخى الفاضل / سفاري موضوعك يخص منتدى الـ Word فهل تريد نقل الموضوع الى منتدى Word لكى يرد عليك أحد الإخوة فيه أم تريد التفقيط فى الإكسل الرجاء الإفادة

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

أخى الفاضل كان عدد صفوف البيانات فى صفحة 2 مختلف عن عدد صفوف البيانات فى صفحة 3 لذا أضفت متغير جديد LR2 لتحديد آخر صف فى الصفحة الثالثة

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

تفضل أخى ان شاء الله يكون كله تمام form.rar

أختى الفاضلة لا يوجد تذمر اطلاقا أى شئ فى مقدورى سوف أقوم به ان شاء الله

أستاذنا الفاضل / مجدى يونس جزاك الله كل خير

أخى الفاضل / أبو جيداء تفضل الملف وضعت بيانات حتى 10000 صف تقريبا والكود يعمل تمام كما تم عمل امكانية الحفظ بامتداد PDF جرب وأخبرنى بالنتيجة form.rar

الأخت الفاضلة / سما محمد جزاك الله كل خير سأحاول التجربة فيها ان شاء الله

أخى الفاضل / مراد الجزائر جزاك الله كل خير على كلماتك الطيبة

أختى الفاضلة / سما محمد Workbooks(nm).Sheets("total1").Range("D" & sr(i) & ":G" & er(i)).PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd السطر السابق هو المسؤل عن النسخ والجمع فى وقت واحد حيث أن الجزء Operation:=xlAdd الموجود فى نهاية السطر السابق هو المسؤال عن جمع القيم المنسوخة مع القيم الموجودة من قبل هل يعمل الكود بنفس الطريقة ان قمت بعمل فورم باسم مستخدم وكلمه مرور لكل ملف من ملفات الشهور اي انه لا يفتح الابعد وضع كلمة المرور واسم المستخدم الصحيحين أما الجزء الخاص بعمل فورم باسم مستخدم وكلمه مرور لكل ملف من ملفات الشهور اي انه لا يفتح الابعد وضع كلمة المرور واسم المستخدم الصحيحين أعتقد أن ذلك سوف يصعب من عمل الكود أما الجزء الخاص بتغيير اسماء الملفات يجب علي تغييرها في التشيك بوكس ( هذا يكفي ) نعم يكفى مع تحياتى

أخى الفاضل / أبو جيداء جربت الملف عندى على 20000 صف وكانت تظهر البيانات أرجو ارفاق الملف الذى حدثت به المشكلة

الأخت الفاضلة النشيطة جدا / أم عبد الله جزاك الله كل خير على مجهوداتك الطيبة

أخى الفاضل المحترم / أبو طارق شكرا جزيلا أخى الفاضل على سرعة الاستجابة بتغيير اسم الظهور الى اللغة العربية وجزاك الله كل خير على كلماتك الطيبة

أخى الحبيب / أبو حنين سلمت يداك جزاك الله كل خير

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

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

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