saad 77 قام بنشر فبراير 24 مشاركة قام بنشر فبراير 24 السلام عليكم ورحمة الله وبركاته ممكن توضيح تصحيح هذا الخطا الذي يظهر في الكود ولا اعرف السبب حيث عند تطبيقه على شيت اخر يظهر هذا الخطا طباعة.xlsm رابط هذا التعليق شارك More sharing options...
أبومروان قام بنشر فبراير 24 مشاركة قام بنشر فبراير 24 ممكن تستخدم الاكواد الاتيه للاخفاء الصفوف واظهارها Sub اخفاء() Dim Cl As Range For Each Cl In Range("a3:a103") If Cl.Value = Range("k2") Then Cl.EntireRow.Hidden = True End If Next Cl End Sub Sub اظهار() Dim Cl As Range For Each Cl In Range("a3:a103") If Cl.Value = Range("k2") Then Cl.EntireRow.Hidden = False End If Next Cl End Sub 1 رابط هذا التعليق شارك More sharing options...
saad 77 قام بنشر فبراير 24 الكاتب مشاركة قام بنشر فبراير 24 شكرا لك استاذ لكن هذه الاكواد للاخفاء والاظهار وليس لطباعة الصفوف التي تحتوي على بيانات واخفاء الفارغة وبما ان الشيت يحتوي على اكثر من 300 صف الحلقة التكرارية هنا تسبب ثقل اثناء التنفيذ. ماريده هو لماذا يظهر هذا الخطأ في الكود المرفق عند الطباعة 1 رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر فبراير 24 أفضل إجابة مشاركة قام بنشر فبراير 24 من االافضل دكر ما هي النتيجة المتوقعة من الكود جرب ربما هدا ما تقصد منذ ساعه, saad 77 said: لكن هذه الاكواد للاخفاء والاظهار وليس لطباعة الصفوف التي تحتوي على بيانات واخفاء الفارغة Sub HideRowsPrint() Dim i As Long, LastRow As Long Application.ScreenUpdating = False StartRow = 9: LastRow = 300 For i = LastRow To StartRow Step -1 If Cells(i, "C") = "" Then Rows(i).Hidden = True Next i Application.ScreenUpdating = True ActiveSheet.PrintPreview ' ActiveSheet.PrintOut Rows(StartRow & ":" & LastRow).EntireRow.Hidden = False End Sub 2 رابط هذا التعليق شارك More sharing options...
saad 77 قام بنشر فبراير 24 الكاتب مشاركة قام بنشر فبراير 24 جزاك الله خيرا سلمت يداك وهو المطلوب . لكنه يتأخر اثناء التنفيذ هل من حل لهذه المشكلة لان الشيتات فيها خلايا محمية بباسود وعند اضافة كود الغاء الحماية والحماية الى الكود اصبح ثقيل رابط هذا التعليق شارك 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.