الجزيرة قام بنشر نوفمبر 13, 2011 مشاركة قام بنشر نوفمبر 13, 2011 السلام عليكم ورحمة الله وبركاته الكود طويل رغم أنه يؤدي الغرض منه ، ولكن أرى أن هناك تطور بعمل الأكواد يدعوا للفخر :) المطلوب : هو إختصار الكود المسمى ( طباعة أسماء محددة ) مع خالص الشكر والتقدير Cards.rar رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر نوفمبر 13, 2011 الكاتب مشاركة قام بنشر نوفمبر 13, 2011 المعذرة لتكرار التحميل أرجوا الإبقاء على واحد وحذف البقيه :) == تم عمل اللازم (عبدالله المجرب) رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 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 رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر نوفمبر 13, 2011 الكاتب مشاركة قام بنشر نوفمبر 13, 2011 شكراً لك من القلب أخي الحبيب أبا أحمد سأجربه لاحقاً مع تأكدي التام من جودته أخوك / أبو عبد الله :) رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر نوفمبر 13, 2011 مشاركة قام بنشر نوفمبر 13, 2011 أخى الفاضل / عبد الله المجرب أشكركم على بساطة العمل رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر نوفمبر 13, 2011 الكاتب مشاركة قام بنشر نوفمبر 13, 2011 اهلا بك عميد المنتدى على مرورك الطيب رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر نوفمبر 19, 2011 الكاتب مشاركة قام بنشر نوفمبر 19, 2011 وهذا التصميم إهداء لك أخي أبو أحمد رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر نوفمبر 19, 2011 مشاركة قام بنشر نوفمبر 19, 2011 اللهم آمين شكراً لك اخي ابوعبدالله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان