goodfas قام بنشر مارس 19, 2012 مشاركة قام بنشر مارس 19, 2012 بسم الله الرحمن الرحيم أخواني/السلام عليكم أُريد من الكود أن يبحث داخل الفاتورة ما بين الخلية B8 إلى الخلية I28 إذا يوجد أي معلومة في أي خلية يطبع الفاتورة كاملة كذلك في جميع الفواتير في الأسفل. يوجد خمس فواتير ويمكن أن تزيد إلى 1000فاتورة مستقبلاً. زر الطباعة في بداية الصفحة Main ولكم مني جزيل الشكر,,, طلب طباعة بشرط.rar رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 19, 2012 مشاركة قام بنشر مارس 19, 2012 For R = 2 To 555 If Cells(R, 11) <> "" And Cells(R, 11) <> FLASE Then RN = Cells(R, 12).Text Sheets("Invoic").Range(RN).PrintOut Copies:=1 End If Next رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 19, 2012 مشاركة قام بنشر مارس 19, 2012 السلام عليكم و رحمة الله وضعنا دوال في الصف الثاني لكل فاتورة يحدد الشرط للطباعة و نطاق الطباعة ثم تم تعديل الكود يمكنك نسخ ولصق الشرطين بجوار اي فاتورة تضيفها آمل التجربة طلب طباعة بشرط.rar رابط هذا التعليق شارك More sharing options...
goodfas قام بنشر مارس 20, 2012 الكاتب مشاركة قام بنشر مارس 20, 2012 (معدل) ممتاز أخي/ أحمد زمان الله يجزاك ألف خير ويعطيك ألف عافية هذا هو المطلوب ولكن لي سـوئل بســيط لو سمحــت! تقول لي (يمكنا نسخ ولصق الشرطين بجوار أي فاتورة نضيفها) ممتاز 1- هل استطيع أن أطبق فكرة هذا الكود على أي عمل آخر غير هذا الملف؟ 2- هل يمكن وضع الكود في نمط (vba/Module ) بدل أن يكون بجوار الفاتورة ؟ هذا إذا أمكن ذلك؟ حتى يسهل إستخدام الكود في مجالات آخر؟ لأنه مازال يوجد فواتير كثيرة؟ وألف شكر لك على اهتمامك وما قصرت والسلام عليكم تم تعديل مارس 20, 2012 بواسطه goodfas رابط هذا التعليق شارك More sharing options...
goodfas قام بنشر مارس 24, 2012 الكاتب مشاركة قام بنشر مارس 24, 2012 <p style="text-align: center;"><span style="color:#ff0000;"><span style="font-size: 18px;"><span style="font-family: arial,helvetica,sans-serif;">للرفع.</span></span></span></p> رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 26, 2012 مشاركة قام بنشر مارس 26, 2012 وعليكم و السلام و رحمة الله وبركاته كل شيء في اكسل ممكن باذن الله تعالى رابط هذا التعليق شارك More sharing options...
احمدزمان قام بنشر مارس 4, 2013 مشاركة قام بنشر مارس 4, 2013 وعليكم السلام و رحمة الله وبركاته ان شاء الله يكون الحل بسيط فقط اضف السطر التالي في اول الكود Dim RN as Range وجرب مع تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.