فكرة الكود تقوم علي نسخ 10 اسماء من الورقة 1 الي ورقة 2 بناءا علي الرقم الذي تقوم انت بادخاله
X = ((ws2.Cells(2, 24) - 1) * 3) + 10
Set srng = ws2.Range("a9:v38")
srng.Clear
Set srng2 = ws.Cells(X, 1).Resize(29, 22)
حيث ان قيمة ال x تعتمد علي القيمة التي قمت بادخالها بالورك شيت ومنها يتم تحديد المدي المطلوب ونقله الي صفحة الطباعة
راجع الكود مره اخري وحدد الاجزاء التي صعب عليك فهمها وستجد الشرح مني ومن كافة اعضاء المنتدي الكرام