mmtronic قام بنشر أغسطس 28, 2009 قام بنشر أغسطس 28, 2009 الاخوة الافاضل احتاج مساعدتكم فى اريد كود لعدم طبع هذا الـ sheet المرفق اذا تحقق شرط عدم وجود اى شىء فى الـ range من B6 : E14 test.rar
أفضل إجابة عبدالله باقشير قام بنشر أغسطس 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 بواسطه خبور خير
mmtronic قام بنشر أغسطس 29, 2009 الكاتب قام بنشر أغسطس 29, 2009 الف شكر و كل عام و انت بخير - هو المطلوب بالضبط
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.