mmtronic قام بنشر أغسطس 28, 2009 مشاركة قام بنشر أغسطس 28, 2009 الاخوة الافاضل احتاج مساعدتكم فى اريد كود لعدم طبع هذا الـ sheet المرفق اذا تحقق شرط عدم وجود اى شىء فى الـ range من B6 : E14 test.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالله باقشير قام بنشر أغسطس 28, 2009 أفضل إجابة مشاركة قام بنشر أغسطس 28, 2009 (معدل) السلام عليكم تم اضافة الشرط المطلوب في الكود Sub Macro1() On Error Resume Next If Application.WorksheetFunction.CountA(Range("B6:E14")) = 0 Then MsgBox "خلايا فارغة": GoTo 1 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True On Error GoTo 0 1 End Sub test.rar تم تعديل أغسطس 28, 2009 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
cat101 قام بنشر أغسطس 28, 2009 مشاركة قام بنشر أغسطس 28, 2009 جزاك الله خيرا جزاك الله خيرا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
سالم شباني قام بنشر أغسطس 28, 2009 مشاركة قام بنشر أغسطس 28, 2009 السلام عليكم جزاك الله خيرا أستاذ خبور رابط هذا التعليق شارك More sharing options...
mmtronic قام بنشر أغسطس 29, 2009 الكاتب مشاركة قام بنشر أغسطس 29, 2009 الف شكر و كل عام و انت بخير - هو المطلوب بالضبط رابط هذا التعليق شارك 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.