زياد عبد الجليل

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

السلام عليكم: وجدت في المنتدى ملف رائع لاحد اساتذتنا الافاضل يقوم بعمل نسخة احتياطية لعدد محدد من الاوراق اريد عمل تعديل على الجزء التالي من الكود حيث ينص على نقل الورقة تحت تسمية ("1") و ("2") فقط وانا اريد مثلا اذا كان الملف به عدد كبير من الصفحات لا يمكن كل مرة كتابة اسم الصفحة كما ان الكود سيصبح طويل انا اريد اختصار الكود و جعله مثلا ينسخ الصفحات من 1to 20 مثلا - الطلب الثاني هل يمكن وضع مسار لتخزين النسخة الاحتياطية مثلا تخزينه في d داخل مجلد اسمه نسخة مثلا ولكم مني جزيل الشكر On Error GoTo ErrCatcher Sheets(Array("1", "2")).Copy On Error GoTo 0 'هنا اسماء الاوراق انا اريد مثلا ان يكون الكود مثلا من الورقة 1 الى الورقة 20 حيث التسمية عمل مؤرق خاصة اذا كان الملف به عدد كبير من الصفحات SaveSomeSheets.rar

اعلم ان الامر صعب و معقد لكن اتمنى ان نجد له حلا

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

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

ارجو من اساتذتنا الافاضل ان يجدوا حلا لهذه المشكلة

السلام عليكم اساتذتنا الافاضل اما بعد: - اطلب من سيادتكم تصحيح في كود تعديل بيانات عامل حيث ان الكود يعمل بشكل جيد و يعدل البيانات لكن المشكل فقط في تعديل التاريخ حيث اننا اذا فتحنا الملف لاول مرة و قمنا بتعديل اي تاريخ وارد في الملف يعدله بشكل جيد لكن اذا قمنا بالضغط ثانية على نفس العامل ولكن لم نعدل اي شئ في بياناته و قمنا بالنقر على زر التعديل هنا يصبح الشهر مكان اليوم و اليوم مكان الشهر جرب تاريخ 11-03-1977 ترى المشكل بوضوح. - الطلب الثاني يتمثل في تجميع بيانات العمال من كل و رقة (الاسم و اللقب فقط) للتعرف على تفاصيل الطلب التمس منك الاطلاع على الملف المرفق ولكم مني جزيل الشكر و التقدير طلب تصحيح + كود تجميع.rar

السلام على جميع اساتذتنا الافاضل اما بعد: وجدت بالصدفة في احد المواقع الاجنبية ملف رائع من خلاله يمكن كتابة التاريخ بطريقة صحيحة حيث اذا كان الشهر فيه 30 يوم و كتبت 31 يوم يمحي القيمة المدخلة الى ان تكتب التاريخ بطريقة صحيحة نفس الشئ بالنسبة لشهر فيفري فاذا كانت السنة كبيسة يسمح بكتابة 29/02/2012 مثلا اما اذا لم تكن السنة كبيسة و كتبت 29 يمنع كتابتها ...ارجوا ان يستفيد الاخوة الافاضل منه اما بخصوص طلبي ارجو المساعدة في عمل حلقة تكرارية بحيث انه لدي 5 تاكست بوكس ولا اريد كل مرة تكرار الكود لكل تاكس بوكس على حدة خاصة ان الكود طويل نوعا ما كما ان التاكس بوكس ليس واحد تلوى الاخر اي textbox4-textbox7-textbox8-textbox10-textbox12 ارجو المساعدة في عمل حلقة تكرارية و ان امكن اختصار الكود فهذا فضلا منكم و شكرا التاريخ بطريقة صحيحة و دقيقة.rar

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

للرفع

السلام على الاخوة الافاضل وجدت ملف في المنتدى لحفظ نسخة احتياطية لكن بامتداد .xlm لكن اريد الحفظ بصيغة .xls اي بدون اي ماكرو ولكم مني جزيل الشكر تجربة.rar

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

شكرا استاذ ياسر الكود يعمل بشكل جيد بارك الله فيك لكن ماذا لو اردت ان المجلد ياخذ تسمية الملف workbook هل يمكن ذلك Private Sub CommandButton11_Click() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported\Exported.pdf" & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub

Nouvelle image.bmp Nouvelle image2.bmp الصورة الاخيرة فيها شرح مبسط للمطلوب image.bmp

السلام عليكم استاذ ياسر لكن لم يتم وضع ملف pdf المحول داخل مستند

استاذ ياسر اعتقد انك لم تفهم المطلوب بالضبط اريد وضع الاوراق المحولة داخل مستند (file-fichier) يأخذ نفس اسم المصنف مثلا اذا كان المصنف موجود على سطح المكتب و قمنا بالتحويل هنا ملف pdf سيكون ضاهرا على سطح المكتب كذلك ويتبع مسار المصنف ولكن اريد وضع pdf داخل مستند file Sub Create_PDF_Files_For_Each_Sheet() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported " & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub مثلا foldernam:=.....,Filename:=Fname,Quality:=xlQualityStandard, IncludeDocProperties:=True,.......

بارك الله فيك استاذ ياسر ....اعمالك دائما متميزة. لدي طلب بسيط ماذا لو وضعنا في مسار التحويل الى pdf ان يضع كل الملفات المحولة داخل مستند يأخذ نفس اسم مصنف اكسيل او في مستند يسمى مثلا file pdf وبارك الله فيك وشكرا جزيلا لك

ادعوا الله ان يرحمه و يغفر له و يبدله دارا خير من داره و اهلا خيرا من اهله و زوجا خيرا من زوجه وينقه من الخطايا كما ينقى الثوب الابيض من الدنس و يغسله بالماء و الثلج و البرد اللهم اغفر له و ارحمه وعافيه و اعفو عنه امين يا رب ...نسأل الله ان يرحم جميع موتانا و يهدينا الى الى الطريق السوي المستقيم امين امين امين يا رب العالمين

عمل رائع و ممتاز بارك الله فيك استاذ ربيع

جمعة مباركة للجميع...هل من رد

السلام على جميع الاساتذة الافاضل : لدي ملف رائع للأستاذ عمر الحسيني قمت باجراء بعض التعديلات عليه لكن ظهرت لي بعض المشاكل و اصبح لا يعمل بشكل جيد لذا قررت الاستعانة بالاساتذة الخبراء في الموقع المطلوب يكمن في التالي : *- اريد وضع 46 عمود بدل 12 ....اعلم انه شئ غير منطقي ولكن ضرورة الملف تتطلب ذلك *-اريد تنسيق الليست بوكس مع بيانات الورقة وان كان لا يمكن فلا يهم هذا الطلب *- في زر التقرير اريد ترحيل اعمدة محددة بعينها الى صفحة التقرير مثلا 11 عمود مثلا العمو د 1-2-3-5-6-8-10-13-15-17-18 *- اريد عند عمل كليك على ليست بوكس يرحل الصف الى صفحة الصفوف وعند اختيار صف ثاني يرحل الى نفس الصفحة ولكن ياتي بعد الثاني و هكذا اي الترتيب يكون بالتوالي واحد وراء الاخر *-وضعت زر لجلب صورة بدل من جلب صورة يدويا و اعادة تسميتها ووضعها في الملف الخاص بها اريد ان تتم هذه العملية اليا عن طريق الازرار ارجو ان يتمكن الاساتذة الافاضل من تطبيق المطلوب و اتمنى لكل الاخوة الاستفادة من هذا الملف الرائع للاستاذ عمر ....مليون تريليون شكر لجميع المشرفين و الاعضاء . ملف الاستاذ عمر الحسيني.rar

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

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

بارك الله فيك استاذ ياسر

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