omar elhosseini

الاخ thewound22 شاهد المرفقات Test_1.rar

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

الاخ roross شاهد المرفقات Test_1.xlsm

الاخ hosnynaser كم بند يحتوي بند أمر العمل في اغلب الاحوال

شكرا لك اخي الله المستعان

الاخ hosnynaser نصيحة من لك ليتم اقدام احد الاخوه لتقديم المساعده في ملف نموذج امر العمل 1- يجب اعادة تصميم نموذج امر العمل علي ان تكون عناوين البيانات مكتوبة في الخلايا مباشرة وليس داخل Rectangle ام سيكون التصميم حسب ما يري مقدم المساعده لك تقديم بعض الشرح لمكونات النموذج 2- هل النموذج عدد البنود به ثابت ام متغير واذا كان متقير ماذا تخيلك اذا كانت عدد البنود اكبر من عدد بنود الاذن 3 - يجب تقدم اكثر من نموذج امر العمل علي ان يكون احدهم به البند رقم 31 واستكمال ملء النموذج بالبيانات حتي نري تخيلك للنموذج ونموذج اخر به بن واحد هل تختفي باقي البنود الفارغة من النموذج ونموذج اخر به عدد بنود اكبر من عدد بنود الاذن كيف يكون التصرف وهكذ اكثر من نموذج لحالات الادخال 4- هل اسماء ( جهاز الإشراف - رئيس قسم النظافة والزراعة - مندوب المتعهد ) سوف يتم ادخالها يدويا ام ستكون هنا لكل كنهم قائمة يتم الاختيار منها 5- وايضا نسبة الخصم هل سوف يتم ادخالها يدويا او هي نسبة خصم واحدة او متغير 6- وكذلك رقم امر التوريد ( يدوي ام مسلسل ) وكذلك رقم العقد 7- النموذج امر العمل هل ستم طباعتة مباشرة ام ماذا اخ تحدث حتي اعرفك خلاصة القول لا تكن بخيلا في عرض المعلومات والشرح للنموذج وطريقة التعامل معه

الموضوع جديد جميل قوي الاخ الراشدي موسى شاهد المرفقات Test_1.rar

شكرا لك اخي

الاخ M.NHAKAMI جرب هذا الكود و انظرالمرفقات Private Sub UserForm_Activate() ' With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 100) Width = .Width Height = .Height End With ' End Sub Test_1.rar

الاخ idriss idrissou جررب حذف هذه الاسطرمن الكود With Sheets("liste") .Columns("A:D").Columns.AutoFit Col_Width = "" For Col = 1 To 4 Col_Width = Col_Width & .Columns(Col).Width + 10 & ";" Next Col ListBox1.ColumnWidths = Col_Width End With

الاخ أحمد يوسف لك رساله في الانبوكس افتحها

الاخ M.NHAKAMI ربما يكون هذا الكو يوفي طلبك انظر المرفقات Three_Button.rar

الاخ mtoussa اليك بعض الملفات من احد المواقع المميزه ربما تفيدك او تفيد بعض الاخوة Template-Invoice-to-PDF.rar Online-PC-Learning-Invoice-Generator.rar Online-PC-Learning-Template-Email-Order.rar Template-Invoice-and-Stock-management.rar Template-Order_Matic.rar

الاخ idriss idrissou تفضل جرب المرفق CONSULTATION_1.rar

تحت امرك اخي لك تحياتي

ماذ تقصد ب (استدعاء اسماء الملفات) ضع مثال للأستدعاء

االاح محمد ابوعبد الله منذ اكثر من 10 سنوات في عام 2008 تحديدا تم طرح نفس السؤال وتم عمل كود يعمل في بيئة اكسل 11 (2003) وهو يعمل جيدا في هذه البيئه فأذا كنت ترغب بتنفيذ فكرتك فيجب عليك تركيب اكسل 11 (2003) وربما في القريب اقوم بتطبيع الكود ليعمل علي اكيسل 2010 او 2016 او 2019 انظر المرفقات Test_1.xls

الاخ ياسر خليل أبو البراء شكرا لك 1-لم يدرج في الموضوع كود الـتأكد من صحة كود المحافظة ولكن يمكن ادراجه علاوة علي ان الارقام من من العاشر حتي الثالث عشر يتم توليدها عشوائيا

الأخ Ali Mohamed Ali شكرا لك

السلام عليكم ورحمة اللة وبركاته موضوع قديم ولكني عملت هذا الكود لأحد أولادي فأحببت ان يستفيد منه من يحب الفكرة تعتمد علي التحقق من صحة ارقام التاريخ ( من الثاني وحتى السابع، من اليسار ) ولكن بطريقة رقميه بعيدا عن مشاكل فورمات التاريخ اي التأكد من ان الرقم الثاني و الثالث الخاص بسنة الميلاد يقع بين الارقام ( من صفر حتي 99 ) و التأكد من ان الرقم الرابع و الخامس الخاص برقم الشهر يقع بين الارقام ( من 1 حتي 12) و التأكد من ان الرقم السادس و السابع الخاص برقم اليوم يقع بين الارقام ( من 1 حتي 31) ثم التأكد من الرقم الرابع عشر وهو خاص بوزارةالداخلية للتحقق من صحة الرقم القومي يقع بين الارقام ( من 1 حتي 9 ) المرفقات !_Check_National_Number_التحقق من صحة الرقم القوميOffceina.xls

الاخ محمد ممتاز شاهد المرفق Omar_3.rar اما طلبك الاول لم افهم ماذا تقصد

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

الاخ م. سعيد رغم انه يمكن الاسغناء عن طلب التعديل هذا بأن بعد التعديل يتم حذف اوراق الادرات ثم إنشائها من جديد بعد التعديل او حذف هذه الاداره ثم إنشائها من جديد بعد التعديل ولكن تم تنفيذ طلبك هذا بأن يتم تم تحديث الورة الرئيسية بعد تعديل اي ادارة شاهد المرفق Omar_1.rar

الاخ محمد ممتاز شاهد المرفق Omar_2.rar

الاخ جلال الجمال_ابو أدهم تحياتي لك اعدت ذكري الزمن الجميل شكرا لك