صلاح الصغير

up و شكرا للاهتمام

up و شكرا للاهتمام

عفوا اسم الملف الشكاوى و شكرا

لو ممكن اضافة لللمتابعين عند الضغط على زر الكود يتم السؤال عن رقم الشكوى المراد ترحيلها و الرد بتم الترحيل و شكرا

اوك الشكاوى.xlsm الصادر.xlsm

up

السلام عليكم الترحيل من الصف النشط فقط اريد الترحيل من ملف وارى الشكاوى الى ملف الصادر علما بان ملف الصادر يمكن ان يكون مغلقا و من ثم يقوم الكود بفتح الملف ثم الترحيل و المطلوب ترحيله من ملف وارد الشكاوى الى ملف الصادر دون المساس بتنسقات ملف الصادر: 1 - ترحيل تاريخ اليوم الى اخر صف بملف الصادر العمود c 2 - كتابة كلمة وزارة العمل فى العمود d 3 - ترحيل القيمة الموجودة بالعمود d ملف الوارد الى العمود e بملف الصادر ارجو ان اكون اوضحت و شكرا test.rar

تمام الف شكر

استاذ / على جربته و لا يحذف البيانات السابقة

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

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

شكرا استاذ / على واضح انه اخد مجهود من حضرتك بس انا محتاج اسم الملف فقط دون الامتداد عشان البيانات فى العمود e تكون (الملف متوفر) لانه بيقرا اسم الملف فقط دون الامتداد و ياريت كمان لو فيه حاجة احسن تسرع تنشيط الملف اكتر من كده لانه ست او سبع ملفات و بياخد كل الوقت ده و شكرا عفوا لم الاحظ زر run هاجرب تم تجربة الملف بس تعديل بسيط كما ذكرت مطلوب اسم الملف فقط دون الامتداد و ايضا حاجة اسرع شوية تنشط الملف عشان يقرا اللينكات يا سلام بقى لو زر ال run ده يعمل الاتنين يقرا اسماء الملفات الموجودة فى المسار المطلوب و يعمل لينكات ليها او زى ما هو كده الملف متوفر و لينك او غير متوفر

السلام عليكم الملف به كود لعمل لينكات اليا بعد ادخال اسم الملف فى العمود a هل يمكن ادراج اسماء ملفات ال pdf فى العمود اليا بمحرد اضافة ملف pdf الى الفولدر images ارشيف.rar شكرا استاذ / على للاهتمام و المتابعة

العفو يا فندم و شكرا لحضرتك على التعاون المثمر دائما

ا / بن علية الكود يغلق ملفات الاكسيل فقط المطلوب جميع ملفات الاوفيس

عفوا نسيت ارد على سؤال اريد غلق الملف الذي به الكود ايضا لانه سيكون من ضمن ملفات العمل

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

شكرا للاهتمام و المتابعة

شكرا للاهتمام و المتابعة

شكرا للاهتمام و المتابعة

up

up

up

السلام عليكم اريد كود اضعه فى جميع ملفات الاكسيل بغلق جميع ملفات الاوفيس المفتوحة إن امكن و أن لم يمكن فيمكن غلق جميع ملفات الاكسيل المفتوحة ملحوظة لقد قمت بالبحث و وجدت هذا الكود Sub Close1() Sheets("Welcom").Range("A50") = 0 Sheet1.Activate Application.DisplayFullScreen = False Application.Quit ActiveWorkbook.Close SaveChanges:=yes End Sub و لكنه يغلق الاكسيل فقط و عند وضعه فى جميع الملفات بيضرب أعتقد بسبب السطر الثانى الكود جيد جدا و يمكن وضعه فى ملف ثم فتح ملفات العمل و لكن عند غلق الملفات فى نهاية يوم العمل مثلا ستضطر الى البحث عن الملف و تفعيل الماكرو و شكرا

up