رؤوف شعرون

طلب تحويل معدله الى كود بعد التحية والاحترام لهذا الصرح الجميل لهذا المنتدى الأكثر من الرائع الذي لازلنا ننهل من عطاياه ومن إبداعات الأساتذة الموجودين المطلوب : تحويل معادلة E7/F7*100 وألف ألف شكر لكل الأخوة القائمين في المنتدى من إدارة ومشرفين وأعضاء على تعليمي في ازاى اعمل ملف بهذا الشكل واليكم رابط الملف Book.rar

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

أستاذ ياسر ألف ألف شكر هو فعلا الكود المطلوب وقمت بإضافة باقي الخطوات وبق 10على10 بس لي طلب كود يقوم بمسح الاسم المكتوب فى TextBox1 Private Sub CommandButton1_Click() On Error GoTo Error: If TextBox1 = "" Then MsgBox ("ادخل نص في حقل البحث") Else Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate TextBox2 = ActiveCell TextBox3 = ActiveCell.Offset(, 1) TextBox4 = ActiveCell.Offset(, 2) TextBox5 = ActiveCell.Offset(, 3) TextBox6 = ActiveCell.Offset(, 5) TextBox7 = ActiveCell.Offset(, 6) TextBox8 = ActiveCell.Offset(, 4) TextBox9 = ActiveCell.Offset(, 7) TextBox10 = ActiveCell.Offset(, 8) TextBox11 = ActiveCell.Offset(, 10) TextBox12 = ActiveCell.Offset(, 12) TextBox13 = ActiveCell.Offset(, 9) TextBox14 = ActiveCell.Offset(, 14) TextBox15 = ActiveCell.Offset(, 16) TextBox16 = ActiveCell.Offset(, 15) TextBox17 = ActiveCell.Offset(, 19) TextBox18 = ActiveCell.Offset(, 20) TextBox19 = ActiveCell.Offset(, 16) TextBox20 = ActiveCell.Offset(, 21) TextBox21 = ActiveCell.Offset(, 17) TextBox22 = ActiveCell.Offset(, 22) TextBox23 = ActiveCell.Offset(, 24) TextBox24 = ActiveCell.Offset(, 26) TextBox25 = ActiveCell.Offset(, 27) TextBox26 = ActiveCell.Offset(, 28) TextBox27 = ActiveCell.Offset(, 29) TextBox28 = ActiveCell.Offset(, 30) End If Exit Sub Error: MsgBox ("لا تتوفر نتائج للبحث") End Sub

ثالثا الملف يبدو أنه متعوب عليه ..تسلم ايدك بصراحة وربنا يخليلك أولادك (زي القمر بصراحة ..بسم الله ما شاء الله لتقول إني حسدتهم !!) رابعا طلبك غير محدد المعالم ..تريد المساعدة في كود البحث ..كيف تريد العمل على البحث وما شكل النتائج المرجوة من البحث لأني لاحظت أن هناك كود للبحث بالفعل ...هل تقصد التعديل عليه في نقطة معينة أم أنك تريد أمراً آخر .. خامسا بس خلاص تقبل تحياتي بداية مرحبا أستاذ ياسر ثانياً أسف على عنوان الموضوع أن يكون غير معبر ثالثا التعديل عليه والتعديل المطلوب هو عند كتابة اسم طالب فى البحث يظهر فى الفرم بنفس المحتويات المجودة فى ورقة قاعدة البيانات مثل اسم الفصل و عدد أيام الغياب والبيانات الموجود فى شيت2 لأني لم بكتب اسم الطالب يظهر اسم الطالب فقط وأنا عوز يظهر الفصل المكتوب و عدد أيام الغياب وباقي البيانات الموجود فى قاعدة البيانات اللي فى الورقة رقم2 عند فتح الملف اضغط على كلمة احمد111.rar قرأت وسأرسلها لصديق

هذا ثاني مشاركة لي في منتداكم الرائع وأسف أنها طلب مساعدة وليست مشاركة فعالة قراءة حوالي 50% من مواضيعكم وتعلمت منه الكثير والكثير وأصبحت اعرف اعمل بعض ملفات الإكسل التي احتاجها في عملي وكلها تعلمتها منكم وجمعت من بعض أعملكم ملف بس طالب المساعد في بعض من أكود البحث أو كيفية عمل الكود وألف ألف شكر لكل الأخوة القائمين في المنتدى من إدارة ومشرفين وأعضاء على تعليمي في ازاى اعمل ملف بهذا الشكل واليكم الملف احمد111.rar

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

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