ABOU ELSAAD

اخواني الكرام هل يوجد كود يحول قيمة الخلية الصفراء الى الخلية الزرقاء بنفس التنسيق الموضح 1111Microsoft Excel Worksheet.xlsx

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

استاذ محمد بعد اذن حضرتك لي طلب اخر هل من الممكن الاختصار بحيث اذا كانت ايام الغياب متتالية مثل غياب يوم ( 1و2و3و4و5و6) ان تختصر الى غياب يوم (1-6)

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

جزاك الله خير الجزاء استاذ ايراهيم وجعله في ميزان حسناتك

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

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

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

جزاك الله خيرا استاذ محمد بالنسبة لمضاد الفيروسات فهو يتعامل مع ملف تحويل الاكسل على انه فيروس ( علما باني قمت بتحميله من موضوع تحويل الاكسل الى ملف تنفيذي بالمنتدى وبالنسبة للكود Option Explicit Private Const MSG_TITLE As String = "Deleting Current Workbook ..." Private Const MSG_TEXT As String = _ "You are about to permanently delete the current workbook located in :" Sub Kill_Myself() Dim lUserDecision As Long Dim sMsg As String On Error Resume Next sMsg = "Attention !" & vbNewLine & vbNewLine sMsg = sMsg & MSG_TEXT & vbNewLine sMsg = sMsg & "'" & ThisWorkbook.FullName & "'" & vbNewLine sMsg = sMsg & "from Disk!!" & vbNewLine & vbNewLine sMsg = sMsg & "Go ahead ?" & vbNewLine & vbNewLine Beep lUserDecision = _ MsgBox(sMsg, vbExclamation + vbYesNo, MSG_TITLE) With ThisWorkbook If lUserDecision = vbYes Then .Saved = True .ChangeFileAccess xlReadOnly Kill .FullName .Close False End If End With End Sub وهو في موضوع

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

جزاك الله خير الجزاء استاذنا الفاضل أ / محمد صالح هذا هو المطلوب تماما

الاخوة الكرام ... السلام عليكم ورحمة الله وبركاته ارجو من حضراتكم المساعدة في الكود التالي حيث انه يعرض جميع اسماء الشيتات في الكمبوبوكس وما اريده ان يستثني اسماء شيتات محددة فلا يقوم بعرضها Private Sub UserForm_Activate() Dim WS As Worksheet For Each WS In Worksheets ComboBox20.AddItem (WS.Name) Next WS End Sub اÙ_Ù_صÙ_Ù_231.xlsm

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

الاخوة الكرام السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا على المجهود الطيب المطلوب ترحيل أيام الاجازات الاعتيادي والعارضة من ورقة1 الى ورقة2 للجميع دفعة واحدة كل واحد الى الخانة الخاصه به وذلك عند الضغط على زر الترحيل ولكم جزيل الشكر ...انتبه من فضلك تم تعديل رفع الملف بإمتداد XLSM , طالما انك تريد الإجابة بالأكواد المصنف1.xlsm

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