رجب جاويش

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

أخى الحبيب / حمادة عمر أدام الله هذه المودة بيننا خالصة لوجه الله وأدام الله هذه الروح الطيبة بيننا تقبل أرق تحياتى لشخصك الكريم

أخى الحبيب / جمال ( أبو محمود ) فكرة جميلة تسلم ايديك

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

أخى الحبيب / حمادة عمر ( أبو الأمورة سما ) جزاك الله كل خير أخى الحبيب على مرورك العطر وكلماتك الطيبة

هذا الموضوع أصبح مكرر على الرابط التالى http://www.officena.net/ib/index.php?s=eb37f1039caed4029b21b25b94717509&showtopic=46779 وقد أجاب على السؤال أخى الحبيب حمادة عمر اجابة وافية وكاملة

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

تفضل أخى show form.rar

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

أخى الفاضل غير المعادلة فى العمود AQ الى المعادلة الآتية =IF(AP11="غ";AK11;IF(AK11="غ";AP11;IF(AK11="";"";SUM(AJ11;AO11))))

أخى الفاضل / عادل ابو زيد تفضل ما تريد Private Sub ComboBox1_Click() Me.ComboBox2.Clear On Error Resume Next i = Application.WorksheetFunction.Match(ComboBox1.Value, Range("B1:IV1"), 0) + 1 LR1 = Cells(Rows.Count, i).End(xlUp).Row Range(Cells(2, i), Cells(LR1, i)).Sort key1:=Cells(2, i), Order1:=xlAscending For T = 2 To LR1 If Cells(T, i) <> "" Then Me.ComboBox2.AddItem Cells(T, i) End If Next End Sub Private Sub ComboBox2_Click() Me.ComboBox3.Clear On Error Resume Next i = Application.WorksheetFunction.Match(ComboBox2.Value, Range("b1:IV1"), 0) + 1 LR2 = Cells(Rows.Count, i).End(xlUp).Row Range(Cells(2, i), Cells(LR2, i)).Sort key1:=Cells(2, i), Order1:=xlAscending For y = 2 To LR2 If Cells(y, i) <> "" Then Me.ComboBox3.AddItem Cells(y, i) End If Next End Sub Private Sub UserForm_Initialize() LR = [A1000].End(xlUp).Row For Each cl In Range("A2:A" & LR) Range("A2:A" & LR).Sort key1:=Range("A2"), Order1:=xlAscending If cl <> "" Then Me.ComboBox1.AddItem cl End If Next End Sub Book1.rar

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

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

أخى الفاضل / أحمد فؤاد جزاك الله كل خير أخى الفاضل على هذا الدعاء الطيب وهو أفضل من الدنيا وما عليها

أخى الفاضل / أحمد لا يوجد ازعاج على الاطلاق تفضل ما تريد Book1.rar

أخى الفاضل / مصطفى ما قمت أنت بعمله صحيح مائة بالمائة وتم عمل باقى الطلبات جدول الحصص 58.rar

وهذا هو الجزء الخاص بظهور الفصل 8-1 جدول الحصص 56.rar

أخى الفاضل / مصطفى بالنسبة لفصل 8 - 1 سوف يتم تصحيح الجزء الخاص به أما الجزء الخاص بتغير لون الخلية للتحذير أنا فهمته كالاتى اذا تكرر الفصل رأسيا فقط ( فى نفس العمود أى فى نفس الحصة ) يتم تغير اللون مثلا اذا وضعنا لمدرس فصل 2-1 الحصة الاولى لا يجب وضع نفس الفصل لمدرس آخر فى الحصة الاولى أيضا أما أن يتكرر الفصل أفقيا فلا مانع أى يكون مدرس عنده 2-1 الحصة الاولى وأيضا عنده نفس الفصل الحصة الثانية هذا ما تم العمل على أساسه فان كان غير ذلك فأوضح لى الصورة جيدا حتى أكمل لك ما تريد

تفضل أخى تم عمل جدول واحد ويتم تغيير اليوم من قائمة منسدلة لاختيار أى يوم آخر جدول الحصص 55.rar

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

تفضل أخى Private Sub ComboBox1_Click() Me.ComboBox2.Clear i = Application.WorksheetFunction.Match(ComboBox1.Value, Range("B1:IV1"), 0) LR1 = Cells(Rows.Count, i + 1).End(xlUp).Row For T = 2 To LR1 If Cells(T, i + 1) <> "" Then Me.ComboBox2.AddItem Cells(T, i + 1) End If Next End Sub Private Sub UserForm_Initialize() LR = [A1000].End(xlUp).Row For Each cl In Range("A2:A" & LR) If cl <> "" Then Me.ComboBox1.AddItem cl End If Next End Sub Book1.rar

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

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

أخى الحبيب / عباس السماوى هذه فكرة أخى عند عمل تنسيق مخصص لأرقام المدارس كنترول.rar

أخى الفاضل / مصطفى جرب المرفق جدول الحصص 1.rar