تعديل على شيت كنترول

[سماح الهياتمى]

اساتذتى الكرام

اريد التعديل التالى على الكنترول المرفق

فى صفحة الناجحون عند كتابة الصف فى الخلية الصفراء 1 او 2 او 3 او 4 او 5 يظهر عدد الطلاب المحدد

اريد ان تظهر اسماء الطلاب فقط بدرجاتهم لانى عندما اكتب 1 مثلا يظهر كل الاسماء اريد ظهور العدد الموجود فقط

مرفق الكنترول للتعديل

برجاء الرد من الاساتذة الكرام للاهمية وشكرا لكم

سماح_كنترول.rar

[ابو عبدالبارى]

أ/ سماح الهياتمى

السلام عليكم

ارجو اين يفى الملف بالمطلوب نسألكم الدعاء

abo_abary_سماح_كنترول.rar

[صالح أبو أحمد]

السلام عليكم

الأخ / ابو عبدالبارى

سبقنى بتحميل الملف الله ينور

ولكن الدالة ينقصها ال = لكى تعطى العدد الصحيح

تقبل تحياتى

سماح_كنترول.rar

تم تعديل فبراير 7, 2017 بواسطه صالح أبو أحمد

[ابو عبدالبارى]

الأخ الكريم صالح أبو أحمد

السلام عليكم

شكرً جزيلا على هذه الملحوظه

[ابراهيم الحداد]

السلام عليكم ورحمة الله

أساتذتى الاجلاء

استميحكم عذرا هذا حل بالاكواد لجلب جميع البيانات لشيت الناجحين

فقط ينسخ هذا الكود و يلصق فى موديول جديد ويخصص له

زر بشيت الناجحين

Sub MyArrays2()
Range("I11:AP101").ClearContents
Dim Arr As Variant, Arr2 As Variant
Dim temp As Variant
Arr = sheet1.Range("A10:CF" & sheet1.Range("I" & Rows.Count).End(xlUp).Row)
Arr2 = Array(5, , 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 25, 26, 27, 28, 31, 32, 33, 34, 52, 58, 64, 70, 73, 74, 75, 76, 84)
ReDim temp(1 To UBound(Arr, 1) + 1, 0 To UBound(Arr2) + 1)
For i = 1 To UBound(Arr)
If Arr(i, 9) <> "" Then
p = p + 1
 For j = 0 To UBound(Arr2)
 On Error Resume Next
 If p <= Range("H4") Then
                temp(p, j) = Arr(i, Arr2(j))
                 End If
            Next j
        End If
    Next i
    If p > 0 Then Range("I11").Resize(p, UBound(temp, 2)).Value = temp
   Call Serial
End Sub
Sub Serial()
For R = 11 To Range("K" & Rows.Count).End(xlUp).Row
If Cells(R, "I") <> "" Then
Cells(R, "J") = R - 10
End If
Next
End Sub

 

[ناصر سعيد]

الاساتذه الكرام

الاستاذ ابوعبد الباري والاستاذ زيزو

لماذا لاتشاركون وانتم قمم ؟ ....في هذا الرابط

 

[سماح الهياتمى]

شكرا لكم اساتذتى الاعزاء

اردت ايضا

عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا

طلبة ناجحون بالصف الاول وينقلون للصف الثانى

وعندما اكتب رقم 2 يظهر

طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث

وهكذا حتى الصف الخامس

واكون شاكرة لكم

[سماح الهياتمى]

شكرا لكم اساتذتى الاعزاء

اردت ايضا

عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا

طلبة ناجحون بالصف الاول وينقلون للصف الثانى

وعندما اكتب رقم 2 يظهر

طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث

وهكذا حتى الصف الخامس

واكون شاكرة لكم

للرفع

[صالح أبو أحمد]

 

السلام عليكم

يمكنك إضاقة هذه الدالة فى الخلية N5

=IF(F2=1;"طلبة ناجحون بالصف الاول وينقلون للصف الثانى";IF(F2=2;"طلبة ناجحون بالصف الثانى وينقلون للصف الثالث";IF(F2=3;"طلبة ناجحون بالصف الثالث وينقلون للصف الرابع";IF(F2=4;"طلبة ناجحون بالصف الرابع وينقلون للصف الخامس";IF(F2=5;"طلبة ناجحون بالصف الخامس وينقلون للصف السادس";"")))))

ارجوا أن يكون هو بالمطلوب نسألكم الدعاء

[سماح الهياتمى]

شكرا لكم اساتذتى الاعزاء

اردت ايضا

عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا

طلبة ناجحون بالصف الاول وينقلون للصف الثانى

وعندما اكتب رقم 2 يظهر

طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث

وهكذا حتى الصف الخامس

واكون شاكرة لكم

استاذى العزيز

لم تسفر الدالة عن جديد

 

[محمود_الشريف]

أختنا الكريمة

تم اضافة الدالة المطلوبة بالخلية ( L2  ) 

عند تغيير الصف بالأسهم تتغير مباشرة بيان الخلية ( L2  )

 

اضافة دالة ناجح ومنقول للصف.rar

[صالح أبو أحمد]

 

شكرا لكم اساتذتى الاعزاء

اردت ايضا

عندما اكتب رقم 1 فى الصف يظهر فى قائمة المكتوب هذا

طلبة ناجحون بالصف الاول وينقلون للصف الثانى

وعندما اكتب رقم 2 يظهر

طلبة ناجحون بالصف الثانى ةينقلون للصف الثالث

وهكذا حتى الصف الخامس

واكون شاكرة لكم

استاذى العزيز

لم تسفر الدالة عن جديد

 

أنا أخطأت عندما قولت الخلية n5  كانت الخلة المدمجة L2

وأرت أن تنسخيها بيدك كى تتدربى على الدوال مش أكتر

 

سماح_كنترول.rar