بن علية حاجي

السلام عليكم جرب الملف المرفق لعل فيه ما تريد.... بن علية حاجي سجل المحل.rar

السلام عليكم عليك تغيير "تنسيق الرقم" في الخلية إلى التنسيق "Standart" وظهرت النتيجة بهذا الشكل لأن التنسيق في الخلية هو "رقم عشري" بـ 16 منزلة (رقم عشري) بعد الفاصلة... والله أعلم

السلام عليكم ورحمة الله إذا كنت تريد الحفاظ على المسافات عند حفظ ملف الإكسيل على شكل ملف txt. فيجب عليك حفظه باستعمال خاصية "حفظ باسم" "Enregistrer Sous" ثم تختـــــار ميزة (Texte Unicode (*.txt... تنبيه: يفضل أن يكون في ملف الإكسيل ورقة واحدة (شيت واحد) حتى يتم حفظ الملف بصيغة txt. بسهولة... والله أعلم

السلام عليكم ورحمة الله ألق نظرة على الملف المرفق لعل فيه ما تريد... بن علية حاجي from 01.12 till 15.12.2017.rar

السلام عليكم ورحمة الله هذا حل آخر مع حل أخي الكريم سليم في المرفقات بن علية حاجي Common_Days.rar

السلام عليكم ورحمة الله في هذه الحالة يجب تغيير هذا الكود بالكود التالي: Sub Printing() Dim I As Integer For I = 1 To [I1] If I <= [I1] Then [I2] = I ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & I, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End If Next End Sub سيقوم هذا الكود بحفظ الملفات بصيغة pdf بالتسمية حسب قيم المتغير I في الكود أي: pdf.1 و 2.pdf و 3.pdf و 4.pdf وهكذا إلى آخر قيمة قيمة للمتغير I ويكون الحفظ في مسار الملف الذي تم تنفيذ الكود منه... بالنسبة للملف excpancepc.xlsb (الملف المرفق بالأعلى -الأخير-) نقوم بتبديل كود aaaa بالكود التالي: Sub aaaa() Dim Rng As Range Dim x As Long, y Set Rng = Sheets("Sheet2").Range("A2:A" & Sheets("Sheet2").Range("A60000").End(xlUp).Row) y = Sheets("Sheet1").Cells(1, 15).Value For x = 1 To y Sheets("Sheet1").Cells(7, 7).Value = Application.Index(Rng, x) ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ThisWorkbook.Path & "\" & Sheets("Sheet1").Cells(7, 7).Value, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next Sheets("Sheet1").Cells(7, 7).Value = Application.Index(Rng, 1) End Sub والله أعلم

السلام عليكم ورحمة الله جرب الكود التالي: Sub all() Range("A1").Select ActiveCell = 1 Do ActiveWindow.SelectedSheets.PrintOut ActiveCell = ActiveCell + 14 Loop Until ActiveCell.Value > Range("E2").Value Range("A1").Select End Sub بن علية حاجي

السلام عليكم ورحمة الله من المفروض أن ترفق ملفا نعمل عليه حتى تكون النتيجة مطابقة لعملك... المهم قمت بتحضير ملف حسب فهمي للمسألة (في غياب ملف مرفق) وضعت فيه معادلة ربما تكون حلا لمسألتك... بن علية حاجي تغيير التنسيق H 1149 إلى التنسيق ساعات ودقائق.rar

السلام عليكم ورحمة الله لم أفهم ما تريده بالضبط؟ ثم ما هي قائمة الملفات الموجودة في desktop تبعك؟ وما هو نوعها؟ في ملفك وضعت في الخلية C3 المعادلة التالية : =HYPERLINK("C:\Users\Mahmoud Ahmed\Desktop\المؤسسة="&B7&"";"فتح المعاملة") فماذا تعني بـ "المؤسسة=" في هذه المعادلة ؟ ثم إن هذه المعادلة مرتبطة بالخلية B7 وهي خلية من المفروض أن ترتبط بالخلية A3 التي بها رقم المعاملة... بن علية حاجي

السلام عليكم ورحمة الله نعم هذا ممكن جدا، يكفي عند تحضير كود طباعة الإيصالات في ملف pdf أن نعطيه اسمه من الخلية التي تحوي رقم الإيصال (وفي ملفك هي الخلية G6)... بن علية حاجي

السلام عليكم ورحمة الله أقترح عليك حلين في المسألة واحد منهما بطريقتين، كل ذلك في الملف المرفق... أرجو أن تفي الغرض المطلوب. بن علية حاجي ترتيب الأرقام.zip

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

السلام عليكم ورحمة الله لم أفهم قصدك جيدا! إذا كنت تقصد أن الاسم عندك لا يتغير عند طباعة كل الصفحات فهذا راجع إلى أن طريقة الحساب عندك في الإكسل ليست تلقائية وإذا كنت تقصد شيئا آخر فأرجو المزيد من الشرح... وأعلمك لم أمسس معادلاتك في الملف ما عدا معادلة الخلية O1 في شيت "ورقة 1" والتعديل على معادلة التسمية "pv" الخاصة بعمود "رقم الإيصال" في شيت "Sheet1" لجعلها ديناميكية... في الملف المرفق من صيغة pdf تجد طباعة ملفك على طابعة Expert PDF والاسم فيه يتغير في كل صفحة... بن علية حاجي excpanceprn.rar

السلام عليكم ورحمة الله أخي الكريم، أعظم الله أجركم وغفر لميتكم وأسكنه الله فسيح جناته وألهم ذويه الصبر والسلوان... في الملف المرفق تم التعديل على كود تغيير الخلية A3 لجعلها تقبل الأعداد من 10 أرقام إلى أعداد من 13 رقم... يمكنك التجريب بالأعداد التالية : 1234567890 و 12345678901 و 123456789012 بإدخالها بالشكل التالي على الترتيب: 0001234567890 و 0012345678901 و 0123456789012 سواء في تاكست بوكس 1 الموجود في شيت "دخول العمال" بالخلية A3 أو الموجود في اليوزرفورم... أخوك بن علية حاجي Classeur8.rar

السلام عليكم ورحمة الله صعب جدا أن تجعل الكود يعمل بأعداد من 10 إلى 13 رقما... والفكرة الوحيدة التي معي الآن هي توحيد كل الأعداد إلى 13 رقما مما يعني أن نكمل الأعداد المكونة من أقل من 13 رقم بأصفار في بدايتها أي أن العدد من 10 أرقام نضيف له ثلاثة أصفار في البداية والعدد من 11 رقم نضيف له صفرين في البداية والعدد من 12 رقم نضيف له صفرا واحدا في البداية... ليس لي فكرة أخرى وسأعمل على الملف لأجد لك حلا للمسألة... بن علية حاجي

السلام عليكم ورحمة الله عمل جميل جدا وبارك الله فيك.... تم التعديل على كود تغيير TextBox1 حتى يرسل قيمته من 13 رقم إلى الخلية A3 من شيت "دخول العمال" حيث أن الملف لما فتحته كان على شيت "تحضير العمال" فلما تم حجز الكود من 13 رقم تم إرساله إلى الخلية A3 من هذا الشيت (وهذا الخلل تم تصحيحه بالتعديل الذي ذكرته)... تم أيضا تعديل تحسيني وتجميلي على الفورم لتوسيط الكائنات فيه، أرجو أن يعجبك هذا التعديل... أعتقد أن كود Tarheel1 لا ضرورة له في الملف... يبقى بعض المشاكل في عمل الملف وهي: إظهار رسالة تأكيد دخول العمال - إظهار رسالة تأكيد خروج العمال - والمشكل الآخر هو عند إدخال رقم خاطئ أو غير موجود في شيت البيانات (من 13 رقم) فإن الكود يسجله مباشرة باسم "هذا الرقم غير موجود"، وهذا المشكل خاصة يجب وضع الحل له (إلا إذا كانت كل أرقام بطاقات العمال موجودة في شيت "البيانات")... ملاحظة: أريد أن أعرف كيف قمت بربط قارئ الكودبار بالملف؟ لأن هذه التقنية لا أجيدها ولا أعرفها، أفدني أفادك الله... بن علية حاجي Classeur8.rar

السلام عليكم ورحمة الله ليس من الضروري أن تكون الطابعة افتراضية، يمكن اختيار أي طابعة تريدها من قائمة الطابعات الموجودة في "مربع حوار الطابعات" بعد فتحه... ثم تنفيذ هذا الماكرو... بن علية حاجي

السلام عليكم ورحمة الله وأحسن من ذلك كله هو (COLUMN(A$1 بن علية حاجي

السلام عليكم ورحمة الله أو يمكن استعمال المعادلة التالية: =IFERROR(ROUND(INDEX(date,$F$6,COLUMN()-6),0),INDEX(date,$F$6,COLUMN()-6)) بن علية حاجي

السلام عليكم ورحمة الله ماذا تقصد بـ "حفظ الملف بتنسيق آخر"؟ إذا كنت تقصد بـذلك "حفظ الملف بامتداد آخر"، فهذا ممكن جدا لكن وباعتبار أن الملف يحوي على أكواد فيجب حفظه بالامتدادات التي تقبل الأكواد مما يعني أن الامتدادات المتاحة لذلك هي: الامتداد xls. بالنسبة لنسخة إكسيل 2003 والامتداد xlsm. أو xlsb. بالنسبة لنسخ الإكسيل المتقدمة 2007 أو 2010 أو 2013 أو 2016... والله أعلم بن علية حاجي

السلام عليكم ورحمة الله الكود لم يعمل في حدث Open لـ This WorkBook لأنك لم تأخذ التعديل الذي قمت به على كود Tarheel1 وقد نسيت -سهوا مني- أن أذكر لك ذلك في ردي السابق... بالنسبة لكود مسح شيت "تجميع دخول العمال" يمكنك إظافته في كود Tarheel1 (الذي سميته في ملفك الجديد Tarheel_Values) مثل كود مسح شيت "تجميع خروج العمال" بعد عملية الترحيل... راجع الملف المرفق وبه كل التعديلات... بن علية حاجي Classeur7.rar

السلام عليكم ورحمة الله تفضل الملف المرفق وبه المطلوب... بطبيعة الحال المعادلات التي وُضعت لا تكون صحيحة إلا إذا كانت قائمة كل فصل مرتبة ومجتمعة في صفوف متتالية (كما في المرفق) -ترتيب الفصول فيما بينها غير مهم- بن علية حاجي استدعاء تسلسل التلاميذ.rar

السلام عليكم ورحمة الله تم إضافة الكود الخاص بالترحيل مباشرة من شيت "تجميع خروج العمال" إلى شيت "تحضير العمال" على الساعة 23:59:00 (تجده في كود حدث Open لـ This WorkBook)... غير أن كود الدخول لا يعمل بالتاريخ إذا أنه لا يفرق بين الدخول في يوم والدخول في اليوم الموالي (أعتقد أن هذا بسبب رجوعك للكود السابق)... أرجو التحقق من ذلك... بن علية حاجي Classeur6.rar

السلام عليكم ورحمة الله كيف تم ذلك؟ أفدنا أفادك الله... بن علية حاجي

السلام عليكم ورحمة الله عمل مختلف بإضافة عمود مساعد يتم فيه تحديد العناصر التي تحقق شروط شيت CAPTIN فقط (دون تكرارات) ... مع تصحيح إدخالات بعض التواريخ في عمود "تاريخ الطلب" لأني أعتقد أنها لم تكن من تنسيق التاريخ... أرجو أن يفي هذا العمل بالمطلوب... بن علية حاجي التعديلات_2.rar