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

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

قام بنشر

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

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

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

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

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