تعديل على دالة جلب البيانات

[alliiia]

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

تحية طيبة أيها الأحبة

عندي هذا الملف: أريد إذا اخترت صف 10/1 يعطيني أسماء طلاب هذا الصف

وإذا اخترت 10\2 يعطيني طلابه 

واجهت مشكلة في عدم ظهور أسماء طلاب باقي الصفوف

كشف.xlsx

[lionheart]

Working on my side without any problems

[alliiia]

انتبه أستاذي 

ترى متكرر 

فقط 10\1 صحيح

أما باقي الصفوف الأسماء متكررة. 

ولو ترجع لشيت البيانات تجد عكس ذلك. 

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

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

تم عمل اللازم ويرجى عدم العبث بالمعادلات عتى لا تختل النتائج

اليك الملف

 

 

كشف.xlsx

[alliiia]

أنت أسطورة يا أستاذ ابراهيم

يارب ما يحرمنا من جمايلك ويجعلها ذخرا لك 

وتسعد بها يوم القيامة

[alliiia]

أستاذنا حاولت أضيف كود للطباعة لكنه لم يعمل معي: ممكن تصحيحه

Sub Print_All()
For r = 3 To Sheet1.Cells(Rows.Count, 1).End(3).Row
Sheet1.Range("P2") = Sheet2.Range("a" & r)
Sheet1.PrintOut Copies:=1
Next r
End Sub

 يعني يطبع لي كل الصفوف في القائمة المنسدلة (خلية: 

P2)