عبدالله المجرب

سلمت يمينك ابا عبدالله على هذه الالماسات التي تنثرها في ارجاء المنتدى

اخي هل تقصد بالمفكرة ملف اكسل ام ملف ذو تنسيق اخر

اخي ابو علام كما قال البشمهندس طارق لا يوجد اي مطلوب

ما هو المطلوب !!!!!!!!!!!!!!!!!!!!!

السلام عليكم راجع هذان الموضوعان http://www.officena.net/ib/index.php?showtopic=39376 http://www.officena.net/ib/index.php?showtopic=34213

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

وضح الله يرضى عليك === بفضل الله تم (في المرفق اصبح اسم الملف غير مهم وعددها غير مهم) === تم بفضل الله Class.rar

ما شاء الله عليك استاذ محمد دالة ممتازة جداً

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

السلام عليكم الله يسلمك اخي الفاضل جرب المرفق (فيه كود للاستاذ يحيى حسين لم اقم الا بتعديل يكاد لا يذكر ليودئ المطلوب) لن تحتاج لفتح الملفات فقط ستفتح الملف الرئيسي (لا تنسى تفك الضغط عن المرفق قبل الاستخدام) Class.rar

اخي الفاضل انا جربت المرفق صندوق الرسائل (تم تحضير / تغييب العامل المحدد) تختفي بعد 2 ثانية ويمكنك تطبيق الفكرة على جميع الرسائل من هنا CreateObject("WScript.Shell").Popup "تم تحضير/تغييب العامل المحدد.", 2, "الحمد الله", 0 ===== ايضاً عند الضغط على حرف P يتم تنفيذ على عامل عند ضغط Ctrl + P يتم التنفيد على جميع العاملين

اذا تحته مباشرة (ماذا عن الارقام )

السلام عليكم اخي الفاضل بعد جلب بيانات الاسم الاول لين يوضع الاسم الثاني

اخي الفاضل اطلع على هذا الرابط وجرب الفورم الذي فيه فهل هذا يفي بالغرض http://www.officena.net/ib/index.php?showtopic=24191

السلام عليكم ومن باب التنوع في الحلول هذا حل باستخدام الكود بنفس فكرة البشمهند طارق Sub Abu_Ahmed_Triq() Dim cl As Range, LstRw As Integer LstRw = Cells(Rows.Count, 1).End(xlUp).Row Range("A" & LstRw + 2).Value = 1 For Each cl In Range("A2:A" & LstRw + 2) If Len(cl.Offset(-1, 0)) = 0 And Len(cl.Value) > 0 Then cl.Offset(-1, 1).Value = cl.Offset(-2, 0).Value End If Next Range("A" & LstRw + 2).Value = "" End Sub

السلام عليكم الاستاذ الفاضل ابو نصار جهد ونشاط ملحوظ تشكر عليه وان شاء الله في موازين اعمالك == اخي الفاضل عيد مصطفى ان شاء الله هذا الرابط ينفع معاك http://www.officena.net/ib/index.php?showtopic=32650

بارك الله فيك استاذ عبدالله على هذه الافكار الجميلة

السلام عليكم جرب المعادلة =IF(OR(C7:C12=1);1;"") وهي معادلة صفيف اي لا بد من ضغط Ctrl + Shift + Enter

بعد إذن الاستاذ الفاضل طارق هذه المعادلة لاستخراج الاحاد =MID(B4;LEN(B4);1) وهذه للعشرات =MID(B13;LEN(B13)-1;1) والله اعلم

السلام عليكم جرب هذا التعديل ليتم تخييرك اي عمود تريد حساب نتيجته Sub dural() On Error GoTo 0 Dim N As Long W = InputBox("أكتب اسم العمود الذي تريد", "إدخال بيانات") If W = "" Or W = 0 Then Exit Sub N = Cells(Rows.Count, W).End(xlUp).Row Cells(N + 1, W).Formula = Application.Sum(Range(W & 1 & ":" & W & N)) 0 End Sub حيث ستكتب اسم العمود مجرد مثل K H وهكذا

السلام عليكم تم عمل المطلوب الاول يرجى مراجعته وابداء الراي ==== بلنسبة للفرز يمكنك تسجيل ميكرو == الطلب الثالث (التوزيع بالتساوي حسب المعدل ) غير مفهوم جداول.rar

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

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

اخي الفاضل سك بابك ان شاء الله سأحاول ولكني الان منشغل ببعض ملفات العمل الطارئة فاعذرني

اخي ابو الحسن الملف ليس ملف اكسل