خالد الشاعر

جزاك الله خيراً و كل عام وانتم بخير

استاذ جمال اعمال عظيمة و مجهود رائع جزاك الله كل خير

استاذ عبد المنعم برنامج الورد يكون مضبوط الفتح على ملف nORMAL.DOT حاول تبحث علية فى الكمبيوتر ثم اضاف به كل التغيرات المرادة ثم الحفظ بنفس الاسم سوف يفتح معك كل مرة بالتنسيق المراد

استاذ جمال تسلم ايدك افكار جميلة جزاك الله كل خير

جزاك الله خيراً برنامج رائع

للرفع

للرفع

السادة الخبراء كل عام وانتم بخير عيد سعيد عليكم جميعاً ان شاء الله عند ملف اسمة close المراد ان يغلق و يفتح ملف اخر اسمة Tarheal ولكن عند فتح Tarheal يفتح فورم ولا يقفل close فهل ممكن ان يقفل close نهائياً قبل فتح Tarheal ولكم جزيل الشكر جزاكم الله كل خيراً Close.rar

استاذ جمال عمل اكثر من رائع جزاك الله كل خير

تسلم الايداى جزاكم الله كل خير

استاذى القدير ممكن مثال على ذلك نحن ماذلنا نتعلم منك جزاكم الله كل شكر

تسلم ايدك استاذ عبد الله السؤال هو اذا كنت اريد نسخ اكثر من ملف فى نفس الفولدر هل يجب تكرر امر oldName = mPath & "TEST\vv.xls" newName = mPath & "mmm\vv.xls" باسماء الملفات الاخرى ام ممكن استخدام مثال *.xls جزاكم الله كل خير

استاذى عبد الله باقشير جربت تعديل الملف لنسخ لم يعمل معى فما المشكلة Sub kh_Copy2() Dim mPath As String Dim oldName As String, newName As String mPath = ThisWorkbook.Path & "\" oldName = mPath & "11\ff.xls" 'newName = mPath FileCopy oldName, mPath End Sub جزاكم الله كل خير

السادة الخبراء مرفق كود من اعمال هذا المنتدى العظيم لتغير اسم ملفات اكسل بناء على الخلية ولكن لتشابهم اسمائهم لا يعمل بشكل جيد فهل يوجد حل لهذه المشكله مرفق ملف للتوضيح سؤال اخر لو سمحتو Sub kh_Copy() Dim mPath As String Dim CopyName Dim PasteName mPath = ThisWorkbook.Path & "\" CopyName = mPath & "New\*.xls" PasteName = mPath & "\" FileCopy CopyName, PasteName End Sub هذا الكود من اعمال الاستاذ العظيم عبد الله باقشير تم التعديل علية لعمل نسخ ملفات ولكن لا يعمل بعد التعديل ولكم جزيل الشكر والاحترام جزاكم الله كل خير rename.rar

اتفضل استاذ nasersaeed المرفق مرفق العام الدراسى.rar

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

السادة الخبراء لى سؤال لو سمحتم العام الدراسي بالنسبة للمدارس يبداء من شهر سبتمبر الى شهر اغسطس فهل يوجد معادله او كود عند بداية شهر سبتمبر يكتب لنا العام الدراسي الجديد مثال 2012-2013 فى بداية سبتمبر تكون 2013-2014 فهل هذا ممكن ولكم جزيل الشكر

استاذى القدير عبد الله باقشير ليس جديد عليكم هذا الابداع تسلم ايديك و جزاكم الله كل خير ولو سمحت لى لو عايز يعمل نسخ فقط وليس نقل ممكن الكود يوجد هكذا FileCopy oldName, newName ولك جزيل الشكر

استاذى عبد الله باقشير يعجز لساني عن الشكر لكم هل لى بطلب صغير لو سمحت هل ممكن نجعل هذا الكود لا نحدد به اسم دريفر و يكون فى نفس مكان الملف مثال لا يكون c: يكون "/" فى نفس موقع الملف جزاك الله كل خير

السادة الخبراء اريد ماكرو نقل ملف من فولدر فرعى الى فولدر اخر فرعى ولكم جزيل الشكر جزاكم الله خيراً

استاذى القدير عبد الله باقشير الف شكر و جزاك الله كل خير و الشكر ايضا للاستاذ دغيدى جزاك الله كل شكر

اشكرك استاذ دغيدى ولكن الملف لا يفتح معى هل ممكن اعادة الاسال مرة اخرى جزاك الله كل الشكر

السادة الخبراء لى سؤال لو تسمحو لى هل ممكن ان نغير اسم الملف بكود و الملف مفتوح وشكرا جزاكم الله كل خير

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

استاذ عباد الف شكر على سرعة التعاون فى الملف ولكن نفس المشكلة كموجودة يعطينى نفس الرسالة ان ماكرو 1 غير موجود وهو موجود هل يوجد مشكلة فى نسخة الاكسل جزاك الله كل خير