Wael Hamed_1975

شكراً جزيلاً

لاحظت خلال تصفحي للموقع ان هناك هوس في استخدام الفورم. ولي ملاحظات: 1- روعة الاكسل ان الداتا مفتوحة امامك وتراها بعينك . 2- استخدام الفورم يحرمك من التعبئة التلقائية التي تختصر وقت ومجهود كبير. 3-هناك ادوات في الاكسل من الممكن ان تستعيض عنها او تستغني عنها عن الفورم مثل الادارة الرائعة pivot table فيمكنك استدعاء البيانات باي شكل يناسب عملك وباكثر من تصميم وباكثر من لون يناسب طبيعة عملك. 4- استخدام الفورم يستهلك وقت كثير في تصميمه. 5-اذا كنت تريد استخدام الفورم وبشكل كامل في الاكسل .فلماذا تلجأ الى الاكسل بينما هناك برنامج الاكسس. وشكراً

بجد ربنا يباركلك.درس مفيد فعلاً وعملي

سيدي الفاضل يمكن استخدام PIVOT TABLE فهي اداه قوية وممتازة وافضل من الفورم وخلاف انظر المرفق .ربما يكون مفيداً هشام _22.xlsm

شكراً ياريس

حقاً ..انت رائع يا صديقي ارفع لك قبعتي احتراماً لك داله قوية وعملية

السلام عليكم -أرجو التكرم على مساعدتى بالملف المرفق هل يمكن عمل هايبر لينك كالمرفق + ادراج القيم. وشكراً قيمة المبيعات.xlsx

الكود شغال تمام بس الاكسل بيعطي رسالة ان حجم المديول كبير.وولو حذفت لغاية ,103 بيشتغل وشكراً

الموضوع سهل جداً يا خوانا

3 If Range("Y3").Value > 0 Then Range("Y3").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If End Sub والسؤال هو كيف يمكن عمل كوبي من Y3:Y500 بحيث يكون Y3 ثم Y4 الى Y500 ويتم اللصق فى خلية واحدة وشكراً

الكود بسيط جداً بس مكرر بياخد الخلية Y3 وينسخها B7 وبعدين بيطبع وبعدين ياخد Y4 وهكذا دواليك لغاية ما يلاقي خليه فاضية او اصغر من الصفر

تم رفع الملف برجاء المساعدة ضروري وجزاكم الله خيراً Sub Macro_all_93() '3 If Range("Y3").Value > 0 Then Range("Y3").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '4 If Range("Y4").Value > 0 Then Range("Y4").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '5 If Range("Y5").Value > 0 Then Range("Y5").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '6 If Range("Y6").Value > 0 Then Range("Y6").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '7 If Range("Y7").Value > 0 Then Range("Y7").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '8 If Range("Y8").Value > 0 Then Range("Y8").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '9 If Range("Y9").Value > 0 Then Range("Y9").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '10 If Range("Y10").Value > 0 Then Range("Y10").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '11 If Range("Y11").Value > 0 Then Range("Y11").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '12 If Range("Y12").Value > 0 Then Range("Y12").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '13 If Range("Y13").Value > 0 Then Range("Y13").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '14 If Range("Y14").Value > 0 Then Range("Y14").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '15 If Range("Y15").Value > 0 Then Range("Y15").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '16 If Range("Y16").Value > 0 Then Range("Y16").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '17 If Range("Y17").Value > 0 Then Range("Y17").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '18 If Range("Y18").Value > 0 Then Range("Y18").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '19 If Range("Y19").Value > 0 Then Range("Y19").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '20 If Range("Y20").Value > 0 Then Range("Y20").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '21 If Range("Y21").Value > 0 Then Range("Y21").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '22 If Range("Y22").Value > 0 Then Range("Y22").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '23 If Range("Y23").Value > 0 Then Range("Y23").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '24 If Range("Y24").Value > 0 Then Range("Y24").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '25 If Range("Y25").Value > 0 Then Range("Y25").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '26 If Range("Y26").Value > 0 Then Range("Y26").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '27 If Range("Y27").Value > 0 Then Range("Y27").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '28 If Range("Y28").Value > 0 Then Range("Y28").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '29 If Range("Y29").Value > 0 Then Range("Y29").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '30 If Range("Y30").Value > 0 Then Range("Y30").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '---- '31 If Range("Y31").Value > 0 Then Range("Y31").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '32 If Range("Y32").Value > 0 Then Range("Y32").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '33 If Range("Y33").Value > 0 Then Range("Y33").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '34 If Range("Y34").Value > 0 Then Range("Y34").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '35 If Range("Y35").Value > 0 Then Range("Y35").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '36 If Range("Y36").Value > 0 Then Range("Y36").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '37 If Range("Y37").Value > 0 Then Range("Y37").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '38 If Range("Y38").Value > 0 Then Range("Y38").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '39 If Range("Y39").Value > 0 Then Range("Y39").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '40 If Range("Y40").Value > 0 Then Range("Y40").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '41 If Range("Y41").Value > 0 Then Range("Y41").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '42 If Range("Y42").Value > 0 Then Range("Y42").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '43 If Range("Y43").Value > 0 Then Range("Y43").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '44 If Range("Y44").Value > 0 Then Range("Y44").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '45 If Range("Y45").Value > 0 Then Range("Y45").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '46 If Range("Y46").Value > 0 Then Range("Y46").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '47 If Range("Y47").Value > 0 Then Range("Y47").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '48 If Range("Y48").Value > 0 Then Range("Y48").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '49 If Range("Y49").Value > 0 Then Range("Y49").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '50 If Range("50").Value > 0 Then Range("Y50").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '51 If Range("Y51").Value > 0 Then Range("Y51").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '========2 '52 If Range("Y52").Value > 0 Then Range("Y52").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '53 If Range("Y53").Value > 0 Then Range("Y53").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '54 If Range("Y54").Value > 0 Then Range("Y54").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '55 If Range("Y55").Value > 0 Then Range("Y55").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '56 If Range("Y56").Value > 0 Then Range("Y56").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '57 If Range("Y57").Value > 0 Then Range("Y57").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '58 If Range("Y58").Value > 0 Then Range("Y58").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '59 If Range("Y59").Value > 0 Then Range("Y59").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '60 If Range("Y60").Value > 0 Then Range("Y60").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '61 If Range("Y61").Value > 0 Then Range("Y61").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '62 If Range("Y62").Value > 0 Then Range("Y62").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '63 If Range("Y63").Value > 0 Then Range("Y63").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '64 If Range("Y64").Value > 0 Then Range("Y64").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '65 If Range("Y65").Value > 0 Then Range("Y65").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '66 If Range("Y66").Value > 0 Then Range("Y66").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '67 If Range("Y67").Value > 0 Then Range("Y67").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '68 If Range("Y68").Value > 0 Then Range("Y68").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '69 If Range("Y69").Value > 0 Then Range("Y69").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '70 If Range("Y70").Value > 0 Then Range("Y70").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '71 If Range("Y71").Value > 0 Then Range("Y71").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '72 If Range("Y72").Value > 0 Then Range("Y72").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '---- '73 If Range("Y73").Value > 0 Then Range("Y73").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '74 If Range("Y74").Value > 0 Then Range("Y74").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '75 If Range("Y75").Value > 0 Then Range("Y75").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '76 If Range("Y76").Value > 0 Then Range("Y76").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '77 If Range("Y77").Value > 0 Then Range("Y77").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '78 If Range("Y78").Value > 0 Then Range("Y78").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '79 If Range("Y79").Value > 0 Then Range("Y79").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '80 If Range("Y80").Value > 0 Then Range("Y80").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '81 If Range("Y81").Value > 0 Then Range("Y81").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '82 If Range("Y82").Value > 0 Then Range("Y82").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '83 If Range("Y83").Value > 0 Then Range("Y83").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '84 If Range("Y84").Value > 0 Then Range("Y84").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '85 If Range("Y85").Value > 0 Then Range("Y85").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '86 If Range("Y86").Value > 0 Then Range("Y86").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '87 If Range("Y87").Value > 0 Then Range("Y87").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '88 If Range("Y88").Value > 0 Then Range("Y88").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '89 If Range("Y89").Value > 0 Then Range("Y89").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '90 If Range("Y90").Value > 0 Then Range("Y90").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '91 If Range("Y91").Value > 0 Then Range("Y91").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '92 If Range("92").Value > 0 Then Range("92").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '93 If Range("Y93").Value > 0 Then Range("Y93").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '+++++++3 '94 If Range("Y94").Value > 0 Then Range("Y94").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '95 If Range("Y95").Value > 0 Then Range("Y95").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '96 If Range("Y96").Value > 0 Then Range("Y96").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '97 If Range("Y97").Value > 0 Then Range("Y97").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '98 If Range("Y98").Value > 0 Then Range("Y98").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '99 If Range("Y99").Value > 0 Then Range("Y99").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '100 If Range("Y100").Value > 0 Then Range("Y100").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '101 If Range("Y101").Value > 0 Then Range("Y101").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '102 If Range("Y102").Value > 0 Then Range("Y102").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '103 If Range("Y103").Value > 0 Then Range("Y103").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '104 If Range("Y104").Value > 0 Then Range("Y104").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '105 If Range("Y105").Value > 0 Then Range("Y105").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '106 If Range("Y106").Value > 0 Then Range("Y106").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '107 If Range("Y107").Value > 0 Then Range("Y107").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '108 If Range("Y108").Value > 0 Then Range("Y108").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '109 If Range("Y109").Value > 0 Then Range("Y109").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '110 If Range("Y110").Value > 0 Then Range("Y110").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '111 If Range("Y111").Value > 0 Then Range("Y111").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '112 If Range("Y112").Value > 0 Then Range("Y112").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '113 If Range("Y113").Value > 0 Then Range("Y113").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '114 If Range("Y114").Value > 0 Then Range("Y114").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '---- '31 If Range("Y31").Value > 0 Then Range("Y31").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '32 If Range("Y32").Value > 0 Then Range("Y32").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '33 If Range("Y33").Value > 0 Then Range("Y33").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '34 If Range("Y34").Value > 0 Then Range("Y34").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '35 If Range("Y35").Value > 0 Then Range("Y35").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '36 If Range("Y36").Value > 0 Then Range("Y36").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '37 If Range("Y37").Value > 0 Then Range("Y37").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '38 If Range("Y38").Value > 0 Then Range("Y38").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '39 If Range("Y39").Value > 0 Then Range("Y39").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '40 If Range("Y40").Value > 0 Then Range("Y40").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '41 If Range("Y41").Value > 0 Then Range("Y41").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '42 If Range("Y42").Value > 0 Then Range("Y42").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '43 If Range("Y43").Value > 0 Then Range("Y43").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '44 If Range("Y44").Value > 0 Then Range("Y44").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '45 If Range("Y45").Value > 0 Then Range("Y45").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '46 If Range("Y46").Value > 0 Then Range("Y46").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '47 If Range("Y47").Value > 0 Then Range("Y47").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '48 If Range("Y48").Value > 0 Then Range("Y48").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '49 If Range("Y49").Value > 0 Then Range("Y49").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '50 If Range("50").Value > 0 Then Range("Y50").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '51 If Range("Y51").Value > 0 Then Range("Y51").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '========2 '52 If Range("Y52").Value > 0 Then Range("Y52").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '53 If Range("Y53").Value > 0 Then Range("Y53").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '54 If Range("Y54").Value > 0 Then Range("Y54").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '55 If Range("Y55").Value > 0 Then Range("Y55").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '56 If Range("Y56").Value > 0 Then Range("Y56").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '57 If Range("Y57").Value > 0 Then Range("Y57").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '58 If Range("Y58").Value > 0 Then Range("Y58").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '59 If Range("Y59").Value > 0 Then Range("Y59").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '60 If Range("Y60").Value > 0 Then Range("Y60").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '61 If Range("Y61").Value > 0 Then Range("Y61").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '62 If Range("Y62").Value > 0 Then Range("Y62").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '63 If Range("Y63").Value > 0 Then Range("Y63").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '64 If Range("Y64").Value > 0 Then Range("Y64").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '65 If Range("Y65").Value > 0 Then Range("Y65").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '66 If Range("Y66").Value > 0 Then Range("Y66").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '67 If Range("Y67").Value > 0 Then Range("Y67").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '68 If Range("Y68").Value > 0 Then Range("Y68").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '69 If Range("Y69").Value > 0 Then Range("Y69").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '70 If Range("Y70").Value > 0 Then Range("Y70").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '71 If Range("Y71").Value > 0 Then Range("Y71").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '72 If Range("Y72").Value > 0 Then Range("Y72").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '---- '73 If Range("Y73").Value > 0 Then Range("Y73").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '74 If Range("Y74").Value > 0 Then Range("Y74").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '75 If Range("Y75").Value > 0 Then Range("Y75").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '76 If Range("Y76").Value > 0 Then Range("Y76").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '77 If Range("Y77").Value > 0 Then Range("Y77").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '78 If Range("Y78").Value > 0 Then Range("Y78").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '79 If Range("Y79").Value > 0 Then Range("Y79").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '80 If Range("Y80").Value > 0 Then Range("Y80").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '81 If Range("Y81").Value > 0 Then Range("Y81").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '82 If Range("Y82").Value > 0 Then Range("Y82").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '83 If Range("Y83").Value > 0 Then Range("Y83").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '84 If Range("Y84").Value > 0 Then Range("Y84").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '85 If Range("Y85").Value > 0 Then Range("Y85").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '86 If Range("Y86").Value > 0 Then Range("Y86").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '87 If Range("Y87").Value > 0 Then Range("Y87").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '88 If Range("Y88").Value > 0 Then Range("Y88").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '89 If Range("Y89").Value > 0 Then Range("Y89").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '90 If Range("Y90").Value > 0 Then Range("Y90").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '91 If Range("Y91").Value > 0 Then Range("Y91").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '92 If Range("92").Value > 0 Then Range("92").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '93 If Range("Y93").Value > 0 Then Range("Y93").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '94 If Range("Y94").Value > 0 Then Range("Y94").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '95 If Range("Y95").Value > 0 Then Range("Y95").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '96 If Range("Y96").Value > 0 Then Range("Y96").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '97 If Range("Y97").Value > 0 Then Range("Y97").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '98 If Range("Y98").Value > 0 Then Range("Y98").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '99 If Range("Y99").Value > 0 Then Range("Y99").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '100 If Range("Y100").Value > 0 Then Range("Y100").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '101 If Range("Y101").Value > 0 Then Range("Y101").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '102 If Range("Y102").Value > 0 Then Range("Y102").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '103 If Range("Y103").Value > 0 Then Range("Y103").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '104 If Range("Y104").Value > 0 Then Range("Y104").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '105 If Range("Y105").Value > 0 Then Range("Y105").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '106 If Range("Y106").Value > 0 Then Range("Y106").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '107 If Range("Y107").Value > 0 Then Range("Y107").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '108 If Range("Y108").Value > 0 Then Range("Y108").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '109 If Range("Y109").Value > 0 Then Range("Y109").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '110 If Range("Y110").Value > 0 Then Range("Y110").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '111 If Range("Y111").Value > 0 Then Range("Y111").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '112 If Range("Y112").Value > 0 Then Range("Y112").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '113 If Range("Y113").Value > 0 Then Range("Y113").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '114 If Range("Y114").Value > 0 Then Range("Y114").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '115 If Range("Y115").Value > 0 Then Range("Y115").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '116 If Range("Y116").Value > 0 Then Range("Y116").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '117 If Range("Y117").Value > 0 Then Range("Y117").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '118 If Range("Y118").Value > 0 Then Range("Y118").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '119 If Range("Y119").Value > 0 Then Range("Y119").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '120 If Range("Y120").Value > 0 Then Range("Y120").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '121 If Range("121").Value > 0 Then Range("121").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '122 If Range("Y122").Value > 0 Then Range("Y122").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '123 If Range("Y123").Value > 0 Then Range("Y123").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '124 If Range("Y124").Value > 0 Then Range("Y124").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '125 If Range("Y125").Value > 0 Then Range("Y125").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '126 If Range("Y126").Value > 0 Then Range("Y126").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '127 If Range("Y127").Value > 0 Then Range("Y127").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '128 If Range("Y128").Value > 0 Then Range("Y128").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '129 If Range("Y129").Value > 0 Then Range("Y129").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '130 If Range("Y130").Value > 0 Then Range("Y130").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '131 If Range("Y131").Value > 0 Then Range("Y131").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '132 If Range("Y132").Value > 0 Then Range("Y132").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '133 If Range("Y133").Value > 0 Then Range("Y133").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '134 If Range("Y134").Value > 0 Then Range("Y134").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '135 If Range("Y135").Value > 0 Then Range("Y135").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '136 If Range("Y136").Value > 0 Then Range("Y136").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '137 If Range("Y137").Value > 0 Then Range("Y137").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '138 If Range("Y138").Value > 0 Then Range("Y138").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '139 If Range("Y139").Value > 0 Then Range("Y139").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '140 If Range("Y140").Value > 0 Then Range("Y140").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '141 If Range("Y141").Value > 0 Then Range("Y141").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '142 If Range("Y142").Value > 0 Then Range("Y142").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '143 If Range("Y143").Value > 0 Then Range("Y143").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '144 If Range("Y144").Value > 0 Then Range("Y144").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '145 If Range("Y145").Value > 0 Then Range("Y145").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '146 If Range("Y146").Value > 0 Then Range("Y146").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '147 If Range("Y147").Value > 0 Then Range("Y147").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '148 If Range("Y148").Value > 0 Then Range("Y148").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '149 If Range("Y149").Value > 0 Then Range("Y149").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '150 If Range("Y150").Value > 0 Then Range("Y150").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '151 If Range("Y151").Value > 0 Then Range("Y151").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '152 If Range("Y152").Value > 0 Then Range("Y152").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '153 If Range("Y153").Value > 0 Then Range("Y153").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '154 If Range("Y154").Value > 0 Then Range("Y154").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '155 If Range("Y155").Value > 0 Then Range("Y155").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '156 If Range("Y156").Value > 0 Then Range("Y156").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '157 If Range("Y157").Value > 0 Then Range("Y157").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '158 If Range("Y158").Value > 0 Then Range("Y158").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '159 If Range("Y159").Value > 0 Then Range("Y159").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '160 If Range("Y160").Value > 0 Then Range("Y160").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '161 If Range("Y161").Value > 0 Then Range("Y161").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '162 If Range("Y162").Value > 0 Then Range("Y162").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '163 If Range("Y163").Value > 0 Then Range("Y163").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '164 If Range("Y164").Value > 0 Then Range("Y164").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '165 If Range("Y165").Value > 0 Then Range("Y165").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '166 If Range("Y166").Value > 0 Then Range("Y166").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '167 If Range("Y167").Value > 0 Then Range("Y167").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '168 If Range("Y168").Value > 0 Then Range("Y168").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '169 If Range("Y169").Value > 0 Then Range("Y169").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '170 If Range("Y170").Value > 0 Then Range("Y170").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '171 If Range("Y171").Value > 0 Then Range("Y171").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '172 If Range("Y172").Value > 0 Then Range("Y172").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '173 If Range("Y173").Value > 0 Then Range("Y173").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '174 If Range("Y174").Value > 0 Then Range("Y174").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '175 If Range("Y175").Value > 0 Then Range("Y175").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '176 If Range("Y176").Value > 0 Then Range("Y176").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '177 If Range("Y177").Value > 0 Then Range("Y177").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '178 If Range("Y178").Value > 0 Then Range("Y178").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '179 If Range("Y179").Value > 0 Then Range("Y179").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '180 If Range("Y180").Value > 0 Then Range("Y180").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '181 If Range("Y181").Value > 0 Then Range("Y181").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '182 If Range("Y182").Value > 0 Then Range("Y182").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '183 If Range("Y183").Value > 0 Then Range("Y183").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '184 If Range("Y184").Value > 0 Then Range("Y184").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '185 If Range("Y185").Value > 0 Then Range("Y185").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '186 If Range("Y186").Value > 0 Then Range("Y186").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '187 If Range("Y187").Value > 0 Then Range("Y187").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '188 If Range("Y188").Value > 0 Then Range("Y188").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '189 If Range("Y189").Value > 0 Then Range("Y189").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '190 If Range("Y190").Value > 0 Then Range("Y190").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '191 If Range("Y191").Value > 0 Then Range("Y191").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '192 If Range("Y192").Value > 0 Then Range("Y192").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '193 If Range("Y193").Value > 0 Then Range("Y193").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '194 If Range("Y194").Value > 0 Then Range("Y194").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '195 If Range("Y195").Value > 0 Then Range("Y195").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '196 If Range("Y196").Value > 0 Then Range("Y196").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '197 If Range("Y197").Value > 0 Then Range("Y197").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '198 If Range("Y198").Value > 0 Then Range("Y198").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '199 If Range("Y199").Value > 0 Then Range("Y199").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '200 If Range("Y200").Value > 0 Then Range("Y200").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '201 If Range("Y201").Value > 0 Then Range("Y201").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '202 If Range("Y202").Value > 0 Then Range("Y202").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '203 If Range("Y203").Value > 0 Then Range("Y203").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '204 If Range("Y204").Value > 0 Then Range("Y204").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '205 If Range("Y205").Value > 0 Then Range("Y205").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '206 If Range("Y206").Value > 0 Then Range("Y206").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '207 If Range("Y207").Value > 0 Then Range("Y207").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '208 If Range("Y208").Value > 0 Then Range("Y208").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '209 If Range("Y209").Value > 0 Then Range("Y209").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '210 If Range("Y210").Value > 0 Then Range("Y210").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '211 If Range("Y211").Value > 0 Then Range("Y211").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '212 If Range("Y212").Value > 0 Then Range("Y212").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '213 If Range("Y213").Value > 0 Then Range("Y213").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '214 If Range("Y214").Value > 0 Then Range("Y214").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '215 If Range("Y215").Value > 0 Then Range("Y215").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '216 If Range("Y216").Value > 0 Then Range("Y216").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If '217 If Range("Y217").Value > 0 Then Range("Y217").Select Selection.Copy Range("B7").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("RECIPT").PrintOut COPIES:=1 Else MsgBox "PRINTED OFF" Exit Sub End If End Sub نموذج مقبول.xlsm

هل يوجد طريقة لاختصار الكود وشكراً New Text Document.rar