طباعة فاتورة بشرط وجود معلومة في الخلايا؟

[goodfas]

بسم الله الرحمن الرحيم

أخواني/السلام عليكم

أُريد من الكود أن يبحث داخل الفاتورة ما بين

الخلية B8 إلى الخلية I28 إذا يوجد أي معلومة في

أي خلية يطبع الفاتورة كاملة كذلك في جميع الفواتير في الأسفل.

يوجد خمس فواتير ويمكن أن تزيد إلى 1000فاتورة مستقبلاً.

زر الطباعة في بداية الصفحة Main ولكم مني جزيل الشكر,,,

طلب طباعة بشرط.rar

[احمدزمان]

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

[احمدزمان]

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

وضعنا دوال في الصف الثاني لكل فاتورة يحدد الشرط للطباعة و نطاق الطباعة

ثم تم تعديل الكود

يمكنك نسخ ولصق الشرطين بجوار اي فاتورة تضيفها

آمل التجربة

طلب طباعة بشرط.rar

[goodfas]

ممتاز أخي/

أحمد زمان

الله يجزاك ألف خير ويعطيك ألف عافية

هذا هو المطلوب

ولكن لي سـوئل بســيط لو سمحــت!

تقول لي (يمكنا نسخ ولصق الشرطين بجوار أي فاتورة نضيفها) ممتاز

1- هل استطيع أن أطبق فكرة هذا الكود على أي عمل آخر غير هذا الملف؟

2- هل يمكن وضع الكود في نمط (vba/Module ) بدل أن يكون بجوار الفاتورة ؟ هذا إذا أمكن ذلك؟

حتى يسهل إستخدام الكود في مجالات آخر؟

لأنه مازال يوجد فواتير كثيرة؟

وألف شكر لك على اهتمامك وما قصرت

والسلام عليكم

تم تعديل مارس 20, 2012 بواسطه goodfas

[goodfas]

<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>

[احمدزمان]

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

كل شيء في اكسل ممكن باذن الله تعالى

[احمدزمان]

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

ان شاء الله يكون الحل بسيط

فقط اضف السطر التالي في اول الكود

 

 

 

Dim RN as Range
 

 

 

 

وجرب مع تحياتي