Bruno Campanini formulated the question :
> Se vuoi evitare l'ordinamento:
>
> Valore da ricercare in A1
> Tabella in A2:C13
>
> =OFFSET(A2,SUMPRODUCT((A2:A13<=A1)*(B2:B13>=A1)*ROW()),2)
> da scriversi sulla stessa riga del Valolre da ricercare.
Se poi vuoi evitare obblighi di ordinamento e posizionamento:
========================
Public Function VSearch(SearchValue As Range, StartCell As Range)
Dim i
Set StartCell = Range(StartCell, StartCell.End(xlDown))
For Each i In StartCell
If (i <= SearchValue) And (i(1, 2) >= SearchValue) Then
VSearch = i(1, 3)
Exit For
End If
Next
End Function
=========================
Dove, per l'esempio giᅵ fatto, USAGE:
=VSearch(A1, A2)
Bruno