السلام عليكم
تفضل أخى
هذا حل عن طريق كود فى حدث الورقة
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R_N As Range
Dim cl As Range
Dim x As Integer
If Target.Address = [L4].Address Then
With Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row)
Set R_N = .Find(What:=[L4], LookAt:=xlWhole)
[O4] = Cells(R_N.Row, 3)
End With
End If
If Target.Address = [L4].Address Or Target.Address = [M4].Address Then
[Q4] = ""
For Each cl In Range("B3:B" & Cells(Rows.Count, 2).End(xlUp).Row)
If [L4] = cl And [M4] = cl.Offset(0, 2) Then
x = Application.WorksheetFunction.Match([O4], [E2:I2], 0) + 4
[Q4] = Cells(cl.Row, x)
End If
Next
End If
End Sub
اسعار متعدده.rar