استخدام الدالة OR مع اكثر من 100 خلية

[Osama Fawzy]

السلام عليكم

الملف عبارة عن 3 شيت Nesma, Wheels,  Parts   ..  Parts فيه جميع قطع الغيار المستخدمة ..wheels فى ارقام العجل المستخدم

nesma عاوز اى رقم عجلة موجود فى شيت wheels ادا تم كتابته فى شيت parts يظهر رقمه S/N Installed و P/N Installed وكذلك Description فى شيت nesma حتى لو تكررت مرات كثيرة بتواريخ مختلفة ... مع العلم ان ارقام العجلات قد يزيد فى شيت wheels عن 100 رقم 

OR_more_100 values.xlsx

[محمد هشام.]

السلام عليكم ورحمة الله تعالى وبركاته

تفضل اخي الكريم هدا حل اخر بالاكواد مع بعض الاضافات البسيطة ربما يلبي طلبك

في حدث شيت Nesma

Private Sub Worksheet_Activate()
Dim li As Integer, MH1 As Integer, A As Integer, Y As Integer
A = Sheets("Parts").Range("G" & Rows.Count).End(xlUp).Row
Y = Sheets("Parts").Cells(2, Cells.Columns.Count).End(xlToLeft).Column + 1
Application.ScreenUpdating = False
Worksheets("Nesma").Range("A4:C1000").ClearContents
For li = 5 To A
    For MH1 = 3 To 3
            Sheets("Nesma").Cells(li - 1, MH1) = Sheets("Parts").Cells(li, MH1)
        Sheets("Nesma").Cells(li - 1, MH1 - 1) = Sheets("Parts").Cells(li, MH1 + 3)
        Sheets("Nesma").Cells(li - 1, MH1 - 2) = Sheets("Parts").Cells(li, MH1 + 4)
       
Next
     
    Next
    Application.ScreenUpdating = True
End Sub

وهدا في حدث شيت Wheels

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lr As Long
        Application.ScreenUpdating = False
    Worksheets("Parts").Range("G5:G1000").ClearContents
    With Sheets("Wheels")
        lr = .Cells.Find("*", , xlValues, , xlByRows, xlPrevious).Row
    .Range(.Cells(4, "b"), .Cells(lr, "b")).Copy Sheets("Parts").Cells(5, "G")
    .Range(.Cells(4, "c"), .Cells(lr, "c")).Copy Sheets("Parts").Cells(5, "f")
    End With
Application.ScreenUpdating = True
End Sub

OR_more_100 values_MH.xlsm

[Osama Fawzy]

اشكرك اخى الكريم وربنا يزيدك علما