طلب عمل بطاقات جلوس امتحان

[الظرنبيط]

بسم الله الرحمن الرحيم

الاعضاء (الخبراء) الكرام بهذا الموقع العامر

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

 

مرفق لكم ملف به كشف اسماء طلاب وارقام جلوس

يلصق هذا الكشف على مظروف الامتحان وعلى باب حجرة الامتحان

ولكن نريد استخدام هذه الاسماء وارقام الجلوس في عمل بطاقات تلصق في طاولة الطالب الممتحن لتذكيرة برقم المركز ورقم الجلوس دون كتابتها من جديد

فتكون اشبه بمراسلات عند استخدامها في استخراج نتيجة الطالب من ملف الاكسيل

 

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

 

ملحوظة افتح ورقة 2 بالملف المرفق بها نموذج البطاقة

المصنف1.zip

[شوقي ربيع]

السلام عليكم

ان كنت تريد طباعة بطاقة كل الطلاب دفعة واحدة

Sub test()
Dim ws As Worksheet: Set ws = Sheets(1)
Dim wsp As Worksheet: Set wsp = Sheets(2)
Dim lrw As Long
Dim i As Integer

lrw = ws.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lrw
wsp.Range("D4") = ws.Range("A" & i)
wsp.Range("C5") = ws.Range("B" & i)
wsp.Range("D6") = ws.Range("C" & i)
wsp.Range("Prnt").PrintOut
Next
End Sub

المصنف1.rar

[ابو نبأ]

بارك الله فيك - جميل