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

الاخوة الكرام السلام عيكم ورحمة الله وبركاته 

جزاكم الله خيرا على مجهودكم الرائع

ولي طلب بسيط 

    كما هو موضح بالصورة .اريد المساعدة في اظهار الارقام في الفورم  بالارقام العربية بدلا من ظهورها بالانجليزية

ولكم جزيل الشكر

الاخوة الكرام 

السلام عليكم ورحمة الله وبركاته

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

باختصار

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

وجزاكم الله خيرا