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

[MPC]

المطلوب إخفاء الصفوف التي يتوافر في معيار البحث انه يساوى "--" في الخلية E والخلية F

Book3.xlsx

[الـعيدروس]

السلام عليكم

تفضل

Option Explicit
Sub Ali_Hid()
Dim R As Range
Dim Rng As Range
For Each R In [E1:E500]
    If R > "" And R.Offset(0, 1) > "" Then
    If R = "--" And R.Offset(0, 1) = "--" Then
       If Rng Is Nothing Then
            Set Rng = R
          Else
            Set Rng = Union(Rng, R)
       End If
    End If
    End If
Next R
If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
Set Rng = Nothing
End Sub

 

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

بعد اذن الاخ العيدروس  هذا الماكرو

Sub Dont_SHow_empty()
show_all
Range("C3").Formula = "="""""
Range("L3").Formula = "=OR(E4<>""--"",F4<>""--"")"
Range("C3").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
CriteriaRange:=Range("L2:L3")
Range("L2:L3").Clear
Range("C3").Clear
End Sub
'=======
Sub show_all()
On Error Resume Next
ActiveSheet.ShowAllData
On Error GoTo 0
End Sub

الملف مرفق

 

my_book.xlsm

[الـعيدروس]

السلام عليكم

بارك الله فيك استاذ سليم

فكرة جميله عملت عليها بطريقتي امل ان تثري

Ali_Hid1.xlsm

[MPC]

جزاكم الله خيرا استفدت استفادة عظيمة