استخراج الرقم الاقل

Sub SelcRnge()

Dim C As Range, x As Double

For Each C In Range("A2:A" & Range("A" & Rows.Count).End(3).Row)

x = Range("C2").Value

If C.Value < x Then

C.Select

End If

Next

End Sub

Option Explicit

Sub fin_min()

Dim arr(), m, i, Mn

    For i = 2 To 7

      If Cells(i, 1) < Cells(2, 3) Then

        ReDim Preserve arr(m)

        arr(m) = Cells(i, 1)

        m = m + 1

      End If

    Next

If m > 0 Then

    Mn = Application.Min(Application.Max(arr), Cells(2, 3))

    MsgBox Range("a2:a7").Find(Mn, lookat:=1).Address

End If

End Sub