وهذا حل آخر عن طريق الكود
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iBOOL As Boolean
If Target.Address = [F5].Address Then
If Target.Count > 1 Then Exit Sub
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To LR
If Target >= Cells(i, 2) And Target <= Cells(i, 3) Then
iBOOL = True
[F7] = Cells(i, 4): Exit For
End If
Next
If Not iBOOL Then
MsgBox "لا يوجد سعر فائدة مناظر لهذا التاريخ"
[F7] = ""
[F5].Select
Exit Sub
End If
End If
End Sub
سعر فائدة المركزي3.rar