خطأ في عمل كود

[saad 77]

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

ممكن توضيح تصحيح هذا الخطا الذي يظهر في الكود ولا اعرف السبب حيث عند تطبيقه على شيت اخر يظهر هذا الخطا

طباعة.xlsm

[أبومروان]

ممكن تستخدم الاكواد الاتيه للاخفاء الصفوف واظهارها

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

 

[saad 77]

شكرا لك استاذ لكن هذه الاكواد للاخفاء والاظهار وليس لطباعة الصفوف التي تحتوي على بيانات واخفاء الفارغة وبما ان الشيت يحتوي على اكثر من 300 صف الحلقة التكرارية هنا تسبب ثقل اثناء التنفيذ. ماريده هو لماذا يظهر هذا الخطأ في الكود المرفق عند الطباعة 

[محمد هشام.]

من االافضل دكر ما هي النتيجة المتوقعة من الكود  

جرب ربما هدا ما تقصد 

منذ ساعه, 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

 

[saad 77]

جزاك الله خيرا سلمت يداك وهو المطلوب .

لكنه يتأخر اثناء التنفيذ هل من حل لهذه المشكلة لان الشيتات فيها خلايا محمية بباسود وعند اضافة كود الغاء الحماية والحماية الى الكود اصبح ثقيل