رجب جاويش

أخى الحبيب / سعد عابد جزاك الله كل خير تقبل أرق تحياتى وتقديرى

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

أخى الفاضل هل تريد الداتا فى الشيت الثانى وزر اظهار الفورم معها فى الشيت الثانى أم يظل زر اظهار الفورم كما هو فى الصفحة الأولى

أخى الحبيب / شوقى ربيع كود ممتاز وسريع تسلم ايديك

السلام عليكم أخى الفاضل / سليم تسلم ايديك ولاثراء الموضوع table.rar

أستاذى الفاضل / محمد يوسف تم تعديل كود الميكانيكا أستاذى الفاضل كان مع اضافة السطرين لابد من وضع نقطة قبل كلمة Cells فى السطر التالى لتعنى الخلايا الخاصة بصفحة الشيت ( وهذه النقطة توضع عند استخدام With بدلا من كتابة اسم الشيت ) If .Cells(R, 91) = "عربى" Or .Cells(R, 91) = "عربي لربع الدرجة" Then وفى السطر الثانى توضع نقطة أيضا قبل كلمة Range لنفس السبب .Range("A" & R).Range("A1,O1,R1:S1").Copy الشطف.rar

السلام عليكم بعد أذن أخى الفاض / طلعت محمد أخى الفاضل جرب الكود التالى أنا جربته على 15000 صف والسرعة معقولة Private Sub TextBox1_Change() On Error Resume Next Application.ScreenUpdating = False x = Cells.Find(What:=TextBox1.Value, After:=ActiveCell, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Offset(0, 1).Address Me.TextBox2 = Range(x).Value Application.ScreenUpdating = True End Sub userform.rar

أستاذى الفاضل / محمد يوسف تم تعديل المطلوب جرب وأى تعديل أنا تحت أمرك الشطف.rar

أخى الحبيب / :fff: محمود الشريف :fff: أخى الحبيب / :fff: أبو إيمان :fff: ألف مليون مبروك الترقية المستحقة وإن شاء الله من تقدم إلى تقدم ومن نجاح الى نجاح والشكر موصول لأستاذى الحبيب / عبد الله باقشير على حسن الإختيار

أخى الحبيب / محمود الشريف جزاك الله كل خير تقبل أرق تحياتى وتقديرى

أخى الفاضل / أبو إيمان جزاك الله كل خير تقبل أرق تحياتى وتقديرى

أخى الفاضل / زمزم جزاك الله كل خير تقبل أرق تحياتى وتقديرى

أخى الفاضل / على المصرى جزاك الله كل خير تقبل أرق تحياتى وتقديرى

أخى الحبيب / محمود الشريف جزاك الله كل خير تقبل أرق تحياتى وتقديرى

خى الحبيب / محمود الشريف جزاك الله كل خير تقبل أرق تحياتى وتقديرى

أخى الحبيب / محمود الشريف جزاك الله كل خير تقبل أرق تحياتى وتقديرى

أخى الحبيب / محمود الشريف جزاك الله كل خير

بعد اذن أستاذنا الفاضل / محمد يوسف سوف يتم تغيير عنوان الموضوع ليناسب محتوى الطلب

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

أخى الفاضل / الاول جزاك الله كل خير فكرة المعادلة أولا : استخدام دالة Large فى ايجاد الدرجات الأربعة الأكبر مرة واحدة ثم استخدام الدالة Average فى ايجاد متوسط الدرجات الأربعة

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

أختى الفاضلة جزاكى الله كل خير

السلام عليكم أستاذى الفاضل / محمد يوسف تفضل ما تريد يمكن التنفيذ من صفحة الشيت أو صفحة الشطف كما تريد الشطف.rar

السلام عليكم تفضل أخى تجربة.rar

أخى الفاضل / ابو صلاح جزاك الله كل خير