إخفاء وإظهار الصفوف بناء على قيمة الخلية

[سعيد 1428]

ايها الإخوة السلام عليكم ورحمة الله 

الكود التالي يقوم  بإخفاء الصف بناء على قيمة الخلية في العمود J كيف يمكن تعديل الكود بحيث أضيف عليه شرط آخر وهو ان تكون الخلية 

في العمود G تحقق نفس الشرط الموجود في الخلية في العمود J

باختصار يجب ن تكون الخلايا في العمود J والخلايا في العمود G  مساوية لصفر في نفس الصف حتى يتم إخفاء هذا الصف 

وشكرا 

Private Sub ComboBox1_Change()
'ComboBox1.DropDown
Dim LastRow As Long, c As Range
Application.EnableEvents = False
LastRow = Cells(Cells.Rows.Count, "j").End(xlUp).Row
On Error Resume Next
For Each c In Range("j11:J30")
   If c.Value = 0 Then
        c.EntireRow.Hidden = True
    ElseIf c.Value > 0 Then
        c.EntireRow.Hidden = False
    End If
Next
On Error GoTo 0
Application.EnableEvents = True
End Sub

 

تم تعديل أغسطس 28, 2018 بواسطه سعيد 1428

[سليم حاصبيا]

هذا الماكرو سيقوم بالواجب

Option Explicit
Private Sub ComboBox1_Change()
'ComboBox1.DropDown
Dim My_rg As Range: Set My_rg = Range("j11:J30")
Dim c As Range
Application.EnableEvents = False
My_rg.EntireRow.Hidden = False
   For Each c In My_rg
    If c.Value = 0 And c.Offset(, -3).Value = 0 Then _
     c.EntireRow.Hidden = True
   Next
Application.EnableEvents = True
End Sub

 

[سعيد 1428]

الاستاذ/  سليم 

اشكركم على ردكم الجميل 

عند تجربة الماكرو ظهر الخطأ عند السطر 

My_rg.EntireRow.Hidden = False

رسالة الخطأ هي :لا يمكن تعيين الخاصية hidden  من الفئىة range 

 

 

 

 

 

تم تعديل أغسطس 28, 2018 بواسطه سعيد 1428

[سليم حاصبيا]

جرب هذا الملف بنفس الماكرو

SHOW_HIDE_ROWS.xlsm

[سعيد 1428]

شكرا أخي سليم وبارك الله فيكم