معادلة إيجاد صف كامل بناء على قيمة معينة وبشرطين أو ثلاثة

[المرجان بالمجان]

السلام عليكم ورحمة الله وبركاته اعزاءنا اعضاء منتديات اوفيسنا 

مرفق ملف اكسل وابحث عن حل لمعادلة وهي : 

ايجاد بيانات الصف كاملاً بناء على رقم ولكن بشرطين كما هو موضح في ملف الاكسل 

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

معادلة إيجاد الصفوف لكل صفحة.xlsx

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

جرب هذا الملف

Option Explicit

Sub Filter_me()
Dim Ar(), i%, k%
Dim My_rg As Range
Dim cret, itm
Dim Rs As Worksheet
Set Rs = Sheets("رئيسي")
i = -1
With Application
.ScreenUpdating = False
End With
Set My_rg = Rs.Range("A1").CurrentRegion
If Rs.AutoFilterMode Then
My_rg.AutoFilter
End If
For k = 1 To Sheets.Count
If Sheets(k).Name <> Rs.Name Then
 i = i + 1
 ReDim Preserve Ar(i)
 Ar(i) = Sheets(k).Name
End If
Next
For Each itm In Ar
    cret = Sheets(itm).Name
    Sheets(itm).Range("A1").CurrentRegion.Clear
    My_rg.AutoFilter Field:=10, Criteria1:=cret
    My_rg.AutoFilter Field:=9, Criteria1:="<>0", _
    Operator:=xlAnd
    My_rg.SpecialCells(2, 23).Copy
    Sheets(itm).Range("a1").PasteSpecial (8)
    Sheets(itm).Range("a1").PasteSpecial
Next
 
 If Rs.AutoFilterMode Then
  My_rg.AutoFilter
 End If

Rs.Select

With Application
  .ScreenUpdating = True
  .CutCopyMode = False
End With

End Sub

الملف مرفق

Mrgane.xlsm