hatrek

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

و عليكم السلام و رحمه الله و بركاته تسلم اخ طلعت جازاك الله خير انا محتاج شرح مبسط لاجزاء معينه If OptionButton1.Value = True Then If TextBox89.Text = "" Then MsgBox ("الرجاء ادخال رقم السجل المدني") TextBox89.Text = "" Cler Sheets("sheet1").Range("A1").Select Exit Sub End If Sheet1.Activate III = 5 Do Until Sheet1.Cells(III, "C").Text = "" If TextBox89.Text = Sheet1.Cells(III, "C").Text Then Cells(III, "C").Activate If ActiveCell.Offset(0, 62).Text = "موجود" Then ck1.Value = True ElseIf ActiveCell.Offset(0, 62).Text = "غير موجود" Then ck2.Value = True ElseIf ActiveCell.Offset(0, 62).Text = "" Then ck1.Value = False ck2.Value = False End If ممكن شرح مبسط امام هذه الاجزاء لاني بتوه فيها يجزاك الله خير

ان شاء الله اخي ربنا يوفق

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

اخي الجموعي ليس هذا ما كنت اطلبه انا غبرت لك الجدول ممكن تلقي نظره علي وضع الترحيل به مثال على الترحيل العامودي.rar

اخي الجموعي ليس هذا ما كنت اطلبه انا غبرت لك الجدول ممكن تلقي نظره علي وضع الترحيل به

عليكم السلام اخ طلعت هذا الترحيل عمودي ولكن انا كنت اقصد مسلسل واحد يكون في العمود A و مسلسل 2 يكون في العمود B و مسلسل 3 يكون في العمود C و هكذا لان هذا الترحيل الي انت عملته بيكون في نفس العمود بيكون عندنا نفس المشكله انه لو قمنا بتطباعه التقرير المجمع للبيانات المدخله بيجمع عدد اوراق كبير جدا و بتكون اكثر من 3/4 فارغ

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

تسلم numanawwad شكرا طلعت محمد حسن اليوم اتعلمت اكواد جديده منك checkbox و optionbutton بس الاوبشنبوتون لا يتم مسح بياناته هل يوجد كود يمسح البيانات ام تكون القيمه افتراضيه دائما ؟؟!! و حاجه كمان انا جربت اعكس ادخال البيانات بدل ما تكون رأسيه تكون عموديه في الشيت بس مش عارف اظبها تم ارفاق الفيل القي نظره ,,, , و برضو محتاج شرح مبسط لكود التسلسل التلقائي لاني مش فاهمه بحث.rar

تم اضافه رؤوس الاعمده archive.zip

للرفع

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

جازاك الله خير الف شكر يا معلم

ما في حد يساعد

انا محتاج اعمل داله بحيث اذا كانت النتيجه في خليه معينه من0.01 الي 0.20 تكون النتيجه في خليه اخري 1 و اذا كانت النتيجه من 0.21 الي 0.40 تكون النتيجه 2 و اذا كانت النتيجه من 0.41 الي 0.60 تكون النتيجه 3 و اذاا كانت من 0.61 الي 0.80 تكون النتيجه 4 و هكذا