ممكن المساعدة في الاخفاء الأوتوماتيكي للأسطر بشرط

[reda23dz]

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

ممكن مساعدتي في هذه الفاتورة في إخفاء أوتوماتيكي للاسطر الفارغة أسفل أخر سطر مملوء

مثلا:

إذا كان محتوى الفاتورة هو منتوجان فإن السطر الثالث لا يظهر في الفاتورة وهكذا

وهذا رابط لنموذج الفاتورة لأنني لم أتمكن من رفعها على سيرفر المنتدى بسبب هذا الخطأ

http://www.2shared.com/file/0bfQGWWh/Fact.html

Error You aren't permitted to upload this kind of file

[الـعيدروس]

السلام عليكم

جرب هكذا

Sub ALI_R()

Dim TT As Range

For Each TT In Range("I2:I" & Cells(Rows.Count, "I").End(xlUp).Row)

If Val(TT.Value) = 0 Then

TT.EntireRow.Hidden = True

End If

Next

End Sub

[reda23dz]

مشكور أخي على الحل