طلب مساعدة

[أ. هشام]

السلام عليكم 

قمت بإنشاء جدول بالإكسيل يتضمن أسماء التلاميذ و النقط التي حصلوا عليها

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

سؤالي كيف يمكنني أن أستخرج باقي النتائج دفعة واحدة و شكرا

النتائج1.rar

[طارق محمود]

السلام عليكم

أخي العزيز

 

أهلا ومرحبا بك بين إخوانك

 

يعتمد الكود التالي علي عمل نسخة من ورقة النتائج وتغيير الخلية m2 في تلك النسخة لتساوي رقم التلميذ

وبهذا يكون ورقة منفصلة لكل تلميذ

ويمكنك تعديله للطباعة

Sub Sh_Copy()

With Sheets("الدورة 2")
    LR = .[A9999].End(xlUp).Row
    For i = 2 To LR
        SN = .Cells(i, 1)
        Sheets("النتائج").Copy After:=Sheets(Sheets.Count)
        ActiveSheet.Name = SN
        [M2] = SN
    Next
End With
    
End Sub

تفضل المرفق وبه الكود

 

النتائج1.rar

[إبراهيم ابوليله]

اخى الكريم

طارق

كود ولا ارورع

ولا اسهل

ولا اتقن منه شيئا اخر

بارك الله فيك

[جمال عبد السميع]

ماشاء الله عليك أستاذى ( طارق ) بارك الله فيك وأكثر الله من أمثالك

[قنديل الصياد]

[طارق محمود]

السلام عليكم

إخواني الأفاضل الأعزاء

 

إبراهيم ابوليله

جمال عبد السميع

قنديل الصياد

 

جزاكم الله خير الجزاء

علي مروركم الطيب وكلماتكم العطرة

جعلني الله عند حسن ظنكم

[عادل ابوزيد]

الباشمهندس طارق

قمه الابداعات فى اكوادك فعلاً سهلة وبسيطه وممتعة زادكم الله من علمه وفضله وبركاته

[احمد فضيله]

اخي الحبيب المهندس / طارق

جزاك الله كل خير

[أ. هشام]

الله يجازيك ألف خير على هذه المساعدة

[أ. هشام]

السلام عليكم صراحة هذا الكود ساعدني على حل مشكل كبير  ، الله يجازيك على المساعدة و سؤالي التالي أخي طارق محمود هو أن تشرح لي الأسطر بالكود لكي أتمكن من تغيره من حين لأخر فأنا لأول مرة سأشتغل بالأكواد 

و الله الموفق

أخوكم هشام من المغرب

[طارق محمود]

 

السلام عليكم صراحة هذا الكود ساعدني على حل مشكل كبير  ، الله يجازيك على المساعدة و سؤالي التالي أخي طارق محمود هو أن تشرح لي الأسطر بالكود لكي أتمكن من تغيره من حين لأخر فأنا لأول مرة سأشتغل بالأكواد 

و الله الموفق

أخوكم هشام من المغرب

 

 

السلام عليكم 

أهلا ومرحبا بك أخي الكريم

في الصورة المرفقة إن شاء الله ستجد شرح الكود سطر بسطر

[أ. هشام]

 

 

السلام عليكم صراحة هذا الكود ساعدني على حل مشكل كبير  ، الله يجازيك على المساعدة و سؤالي التالي أخي طارق محمود هو أن تشرح لي الأسطر بالكود لكي أتمكن من تغيره من حين لأخر فأنا لأول مرة سأشتغل بالأكواد 

و الله الموفق

أخوكم هشام من المغرب

 

 

السلام عليكم 

أهلا ومرحبا بك أخي الكريم

في الصورة المرفقة إن شاء الله ستجد شرح الكود سطر بسطر

 

كثر الله من أمثالك و جعل هذا العمل في ميزان حسناتك