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

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


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

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

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

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

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

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
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information