asam1122

نسيت ان ارفق لك الملف في الرساله الخاصه ali.rar

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

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

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

السلام عليكم ورحمة الله وبركاته يعطيكم العافيه الرجاء المساعده في كيفية تحديد مايدخل في الخليه من بيانات بمعنى اريد ادخال اسماء معينه في الخلايا من b1 الى b10 ولا تقبل الخليه اي ادخلات اخرى بمعنى ان يتم رفض اي شي يدخل الخليه ماعدا هذه الاسماء المحدده ويوجد شيت مرفق لكم اريد الخلايا من b1 الى b10 لاتقبل الا الاسماء من a1 الى a5 12345.rar

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

جزاكم الله خييييييييير فعلا مبدعين اشكركم من كل قلبي شكرا لك اخي جمال عبد السميع وشكرا لك اخي طارق محمود ولكن اذا سمح وقتك اخي محمود اريد منك اضافة بعض الشرح على الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$1" Then Exit Sub Application.ScreenUpdating = False s = [B1] With Sheet1 .Range("$A$1:$C$999").AutoFilter Field:=1, Criteria1:=s LR = .[A9999].End(xlUp).Row .Range("A1:C" & LR).Copy [E2] Application.CutCopyMode = False .Range("$A$1:$C$999").AutoFilter End With [B2] = [F3]: [A7:C999].ClearContents LR = [E9999].End(xlUp).Row With Range("E3:G" & LR) .Sort Key1:=[G3], Order1:=xlAscending .Copy [A7] End With [E2:G999].ClearContents Application.ScreenUpdating = True End Sub وهل عند نقل الموديول الى ملف ااخر هل يحتاج الى تعديل ام فقط نعدل في الكود الخاص بالشيت وشكرا مقدما

الاخوه الافاضل جزاكم الله خير على المساعده مرفق لكم ملف يحتوي على صفحتين او شيتين الصفحه الاولى تحتوي على رقم البند و اسم البند و تاريخ الصلاحية للبند الصفحة الثانية هي التي اريد العمل عليها يوجد في اول الصفحه سطرين السطر الاول مكتوب به رقم البند وتركت بعده فراغ وكذلك يوجد في السطر الثاني اسم البند وتركت بعده فراغ ما اريد عمله هو التالي 1- عند كتابه رقم البند في الصفحه الثانيه في الفراغ الموضوع بجانب رقم البند ان يظهر لي كافة البنود التي بنفس رقم البند في الصفحه الرئيسيه مرتبه بتاريخ الصلاحيه بالاحدث اولا . اتمنى اني وضحت المطلوب ولكم مني كل الشكر مقدما Microsoft Office Excel Worksheet جديد ‫‬.rar

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

عفوه اخي أبو إيمان لم افهم قصدك ؟

للرفع شباب انا في انتظار مساعدتكم جزاكم الله خير

شباب الله يعطيكم العافيه جميعا اريد المساعده في طلب ان شاء الله يكون بسيط طلبي وهو اني اريد جعل العمود B كاملا في المصنف لا يقبل الا الكتابة باللغة الانجليزية والارقام مثل ( ab8 ) ولا اريده يقبل اللغة العربيه ابدا هل يوجد كود او داله معينه تفيدني في ذلك اتمنى فهمتو طلبي ولكم مني جزيل الشكر مقدما

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

السلام عليكم ورحمة الله وبركاته لي الشرف ان انضم لهذا المنتدى الرائع عندي سوال يا احبتي عندي معادلة صفيف اخذتها من احد مشاريع اكسل وعدلت عليها حسب احتياجي ولكن في بداية ونهاية المعادلة يوجد قوسين { } عند نسخ المعادلة ولصقها في مشروع اخر او التعديل عليها يظهر لي وجود خطا ويتختفي الاقواس واذا وضعت الاقواس من جديد في المكان المخصص لكتابة الداله تظهر الداله كما هي في الخليه ولا يعتبرها الاكسل داله بل يعتبرها نص عادي الا عند حذف القوسين وكما ذكرت اذا حذفت القوسين يظهر لي وجود خطا فما الحل ؟ اريد منكم شرح ماهي قصة هالقوسين وكيفية كتابتها في الصيغه ؟؟ ولكم مني كل الشكر مقدما