اخفاء واظهار الصفوف الفارغة

[ايمان محمد]

السلام عليكم

كيف حالكم

احبتي لدي سوال

هل يوجد كود يخفي الصفوف اذا كانت فارغة او وفق شرط معين حيث هذا الصفوف تاخذ بيناتاتها من صفوف اخره ( اي من خلايا  اخرى )

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

................

وسوال اخر جزاكم الله خير هل يمكن ان تعمل الاكواد بشكل تلقائي دون حاجة الى ازرار 

[Ali Mohamed Ali]

وعليكم السلام من الأفضل ارسال الملف لوضع الكود به

ولكن هذا هو كود الإخفاء للخلايا الفارغة:

Sub HideBlan()
For i = 4 To 103
If Cells(i, 6) = 0 Then
Cells(i, 6).EntireRow.Hidden = True
End If
Next

Dim c As Range

    For Each c In Range("g104:s104").Cells
        If c.Value = "0" Then
            c.EntireColumn.Hidden = True

        End If
    Next c

End Sub

وهذا هو كود الإظهار:

Sub showBlank()
For i = 4 To 103
If Cells(i, 6) = 0 Then
Cells(i, 6).EntireRow.Hidden = False
End If
Next

Dim c As Range

    For Each c In Range("g104:s104").Cells
        If c.Value = "0" Then
            c.EntireColumn.Hidden = False

        End If
    Next c

End Sub

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

[ايمان محمد]

جزاك الله الف خير استاذي

هل يحتاج الى زر ام يعمل بشكل اتوتماتيكي

[ايمان محمد]

جزاك الله الف خير استاذي

هل يحتاج الى زر ام يعمل بشكل اتوتماتيكي

هذا ملف مرفق

اخفاء.xlsx

تم تعديل يونيو 30, 2018 بواسطه ايمان محمد

[Ali Mohamed Ali]

نعم بالتأكيد هذه الأكواد تحتاج زر

توضع هذه الأكواد فى موديول

تفضلى

 

اخفاء.xlsm

[ايمان محمد]

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

ملف ممتاز

ولكن انا ارغب في اخفاء الصفوف وليس الاعمدة

[Ali Mohamed Ali]

تفضلى لكى ما طلبتى لإخفاء الصفوف فقط

 

 

-1اخفاء.xlsm