ايها الإخوة السلام عليكم ورحمة الله
الكود التالي يقوم بإخفاء الصف بناء على قيمة الخلية في العمود 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