عادل حنفي

السلام عليكم اخي abouelhssan مؤقتا و هيشتغل الملف معاك عادي غير كل 4 موجودة بالكود الي 7 وكل منهم يشير الي رقم عمود الاسم لاني بحاول اعملك اضافه صغيره و لكن شكلها هتاحد وقت فخليها لبكره اخي alidroos اشكرك اخي علي المرور تحياتي

السلام عليكم اخي بن علية عذرا اخي و الله لم الحظ مشاركتك لدخولي للاجابة و الخروج السريع حمدا لله علي السلامه و بالتوفيق ان شاء الله اخي الحبيب هشام بالفعل طريقة جديدة لم استعملها من قبل بارك الله فيك خالص تحياتي و تقديري

السلام عليكم و الشكر واصل لكل المشاركين في العمل و بعد اذنهم اخي ابوعمر75 علي حسب ما فهمت انظر الي المرفق و اخبرني النتيجة تحياتي test.rar

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

اخي جرب العمل علي نسخة من الملف الاساسي و ان لم تنجح او وقف معاك اي شيئ ارفع نسخة منه

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

السلام ليكم اخي onlymanly عذرا تاخرت في الرد علي مشاركتك بارك الله فيك اخي و تسلم يداك تحياتي

السلام عليكم اخي abouelhssan جرب الملف المرفق مع ملاحظة الاتي ان هناك شرط ليتم عمل الكود و هو ان تكون خلية الاسم في كلا الشيتين هي اخر خلية يكتب فيها و ان الخلايا التي بنفس صفها لابد ان تكون بها بيانات و لا يوجد اي منهم فارغة جرب المرفق و اخبرني النتيجة تحياتي New Microsoft Excel 11Worksheet.rar

السلام عليكم اخي حسن بارك الله فيك من الاعدادات الموجود في Private Sub UserForm_Activate() بالاضافة الاوضع امر لارتفاع الفورم و امر لارتفاع الفورم و اللذان يمكن ان يكونا بالشكل التالي aah.Height = Frame1.Width * 1.3 Frame1.Height = Frame1.Height * 2 مع الاخذ في الاعتبار مكان الزر الموجودعلي الفورم تحياتي

السلام عليكم مرحبا بك احي بالنسبة للسؤال الثاني انسخ هذه المعادلة ضعها في خلية التاريخ =Now() اما بالنسبة للسؤال الاول فاي عامود تريد عد تغيير بياناته؟ تحياتي

حبيبي ابو حميد منور الموضوع و الله يا اخي لا ادعي بانه عملي و لكنة احد الاعمال الجميلة التي جمعتها طوال فترة الاجتهاد بتجويد اعمالي تحياتي

اخي ياسر حافظ بارك الله فيك تحياتي

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

السلام عليكم اخي HaNcOcK مجهود رائع بارك الله فيك تحياتي

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

السلام عليكم اخي ابو اسامه لك غيبة و وحشه حمدا لله علي السلامه تحياتي

السلام عليكم اخي MOHAMEDTAHER7 مشكور علي روحك الطيبة تحياتي

اخي jazea الغي اولا السطر التالي و الموجود بالكود Label1.ForeColor = &HFFFF& اذهب الي الفورم اضغط داخل الفرام من اعلي و الي اليسار ستجد مربع صغير تم تحديده مع الفرام و هو label1 من خصائصه غير الخط و لون وحجمه ان استعصي عليك شيئ اخبرني تحياتي

السلام عليكم هل هذا هو المطلوب تحياتي مطلوب معادلة للاسم والدرجة.rar

السلام عليكم الاخت الفاضلة استفسار Book1.rar

السلام عليكم انت قاعد فاضي بقي يا عم سعد ههههه عموما جرب المرفق تحياتي Tow forms &Range .rar

السلام عليكم اخي ياسر حافظ اشكرك علي كلماتك و مرورك اخي alidroos بارك الله في مجهودك اخي سعد عابد مشكور علي كلماتك و بالنسبة لطلبك ليس هناك اي مشكلة شوف المرفق تحياتي Tow forms.rar

هذا ما اريد معرفته فلابد من معرفة قراءة الكود طبعا خطوة خطوه و لا تتعجل وما تم قصده من الكود هو انه عد ضغطك علي التكست بوكس فانه يغير اسم خاصية ال caption في الفورم الثاني و ينفتح الفور الثاني و الذي اسم ال caption الخاص به تغير و عند الضغط علي التقويم فهناك امر برؤية اسم هذه الخاصية و التي يعرف منها اي تكست بوس هو الهدف فاذاكانت date فهذا يعني ان التكست بوكس الاول هو الهدف وهكذا تحياتي

لا فضل و لا شيئ و لكن الاهم هل تعلم ماذا قصدنا بهذا الكود و ما معناه؟؟؟

مع القيام بتعديل بسيط علي المدي داخل الكود Sheets("الايتام").Select Range("a6: c274").ClearContents Sheets("السجل").Select [u]Range("a5")[/u].Select Selection.AutoFilter Selection.AutoFilter Field:=3, Criteria1:=Sheets("الايتام").Range("D1") Range([u]"A5:c274")[/u].Select Selection.Copy Range("a6").Select Sheets("الايتام").Select Range("a6").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("a6").Select Sheets("السجل").Select Range("a5").Select Selection.AutoFilter Sheets("الايتام").Select End Sub