إختصار كود طباعة أسماء محددة

[الجزيرة]

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

الكود طويل رغم أنه يؤدي الغرض منه ، ولكن أرى أن هناك تطور بعمل الأكواد يدعوا للفخر :)

المطلوب : هو إختصار الكود المسمى ( طباعة أسماء محددة )

مع خالص الشكر والتقدير

Cards.rar

[الجزيرة]

المعذرة لتكرار التحميل أرجوا الإبقاء على واحد وحذف البقيه :)

==

تم عمل اللازم (عبدالله المجرب)

[عبدالله المجرب]

السلام عليكم

ما رايك ان تجربه وقد اصبح هكذا

Subطباعة_اسماء_محددة()

    If Range("C49") = 0 Then

    MsgBox "حدد الاسم او الاسماء التي تريد طباعتها ثم اضغط على الزر مرة أخرى "

    Exit Sub

    End If

    For i = 51 To 149

    If Cells(i, 2) = True Then

	 Range("A1").Value = i - 50

	 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

	 End If

	 Next

End Sub

[الجزيرة]

شكراً لك من القلب أخي الحبيب أبا أحمد

سأجربه لاحقاً مع تأكدي التام من جودته

أخوك / أبو عبد الله :)

[دغيدى]

أخى الفاضل / عبد الله المجرب

أشكركم على بساطة العمل

[الجزيرة]

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

[الجزيرة]

وهذا التصميم إهداء لك أخي أبو أحمد

[عبدالله المجرب]

اللهم آمين

شكراً لك اخي ابوعبدالله