الجزيرة قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 السلام عليكم ورحمة الله وبركاته الكود طويل رغم أنه يؤدي الغرض منه ، ولكن أرى أن هناك تطور بعمل الأكواد يدعوا للفخر :) المطلوب : هو إختصار الكود المسمى ( طباعة أسماء محددة ) مع خالص الشكر والتقدير Cards.rar
الجزيرة قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 المعذرة لتكرار التحميل أرجوا الإبقاء على واحد وحذف البقيه :) == تم عمل اللازم (عبدالله المجرب)
عبدالله المجرب قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 السلام عليكم ما رايك ان تجربه وقد اصبح هكذا 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 1
الجزيرة قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 شكراً لك من القلب أخي الحبيب أبا أحمد سأجربه لاحقاً مع تأكدي التام من جودته أخوك / أبو عبد الله :)
دغيدى قام بنشر نوفمبر 13, 2011 قام بنشر نوفمبر 13, 2011 أخى الفاضل / عبد الله المجرب أشكركم على بساطة العمل
الجزيرة قام بنشر نوفمبر 13, 2011 الكاتب قام بنشر نوفمبر 13, 2011 اهلا بك عميد المنتدى على مرورك الطيب
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.