اخفاء صفوف بها معادله

[خالد الشاعر]

السادة الخبراء

 

مرفق ملف به ماكرو لاخفاء الصفوف الفارغة

 

ولكن الصفوف كلها بها معادلات و لايحس بها فارغة فهل يوجد حل لهذه المشكلة

 

جزاكم الله كل خير

[خالد الشاعر]

الملف مرفق

اخفا صفوف.rar

[شوقي ربيع]

السلام عليكم

استبدل اكواد الملف بهذه الاكواد

Option Explicit

Sub Hidden2()
Dim Cl As Range
Application.ScreenUpdating = False
    For Each Cl In Range("A14:A213")
        If Cl = "" Then
            Cl.EntireRow.Hidden = True
        End If
    Next Cl
[kh_Row2] = "اضهار جميع الصفوف الفارغة"
Application.ScreenUpdating = True
End Sub
Sub UnHidden2()
Dim Cl As Range
Application.ScreenUpdating = False
    For Each Cl In Range("A14:A213")
        If Cl.EntireRow.Hidden = True Then
            Cl.EntireRow.Hidden = False
        End If
    Next Cl
[kh_Row2] = "اخفاء الصفوف الفارغة "
Application.ScreenUpdating = True
End Sub

Sub Rows()
ActiveSheet.Unprotect
If [kh_Row2] = "اضهار جميع الصفوف الفارغة" Then UnHidden2 Else Hidden2
End Sub

تحياتي

[خالد الشاعر]

استاذ شوقى

 

جزاك الله كل خير

 

تسلم ايدك