اخفاء السطر بناء على رصيد الخلية

[حليم ناصر]

سلام عليكم

سادة الاعضاء كيف حالكم اتمنى ان تكونوا في احسن حال ان شاء الله

لي طلب خاص باخفاء السطر بناء على رصيده في الخلية بالعمود (I) مع العلم ان لدي معلومة عن كيفية اغلاق  اخفاء السطر بمجرد وضع الفارة على خلية

في العمود (I) ويطلب منك هل توافق على اخفاء السطر ام لا

وانا اريد ان اطبقها اي يختفي السطر بشرط الخلية في العمود(I) تساوي (0) ودون التدخل مني

اي مثلا الزبون (علي) لديه فاتور رقم 001 بمبلغ 8000  وعندما اضع في خلية التسديد (G15)  ان  الفاتورة 001 سددت بمبلغ 8000 ومنه يصبح رصيد هذه الفاتورة يساوي( 0 ) هنا ينغلق اي يختفي السطر مباشرة ودون التدخل مني   ( ليس الحذف اخفا السطر فقط )

اتمنى ان اجد الجواب عندكم

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

اخفاء السطر.xlsm

[طارق محمود]

السلام عليكم
الأفضل تضع كل الحالات

لذلك وضعت لك الحل من خلال أكثر من كود واحد

الأول : عند تنشيط الورقة 
وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0  ، G<>0 أي يكون هناك سداد

الثاني : عند حدث تنشيط الورقة 
وهذا يراجع الصفوف من 15 إلي آخر صف ويخفي السطر أوتوماتيكيا بشرطين أن I=0  ، G<>0 أي يكون هناك سداد

الثالث : Un-Hide
كود عادي ليس خاص بأحداث الورقة
وهذا يظهر كل السطور التي تم إخفاؤها من قبل

بالإضافة إلي كود رابع في حدث الملف عند فتح الملف يتم تفعيل الكود الأول

إليك الأكواد والملف به الأكواد

 

Private Sub Worksheet_Activate()
LR = [I9999].End(xlUp).Row
If LR < 15 Then LR = 15

For r = 15 To LR
   If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True
Next r

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
r = Target.Row
If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True
End Sub

Sub un_Hide()
LR = [I9999].End(xlUp).Row

Rows(10 & ":" & LR).EntireRow.Hidden = False

End Sub


'===============================================================
Private Sub Workbook_Open()
Sheets ("كشف الحساب ")
LR = [I9999].End(xlUp).Row
If LR < 15 Then LR = 15

For r = 15 To LR
   If Cells(r, "I") = 0 And Cells(r, "G") <> 0 Then Rows(r).EntireRow.Hidden = True
Next r
End Sub

 

 

اخفاء السطر.xlsm

[وجيه شرف الدين]

السلام عليكم ورحمة الله وبركاته اثراء للموضوع وبعد اذن الاستاذ طارق محمود

اخفاء السطر-1.xlsm

[Ali Mohamed Ali]

بارك الله فيكم جميعا

[وجيه شرف الدين]

وبارك الله فيكم اخى الحبيب على وجزاكم الله خير

[حليم ناصر]

سلام عليكم

جزاكم الله خيرا على هذه المعلومات القيمة

وبارك الله فيكم وجعلها في ميزان حسناتكم

امين

شكرا مرة اخرى