اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information