Supongo que la lista en la que estás buscando no está ordenada

Conseguir esto con una función creo que no va a ser fácil.

igual con COINCIDIR, pero volvemos al problema de que la lista esté ordenada

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

Amigo, sino algo facil como una macro igual que la funcion buscar de excel.

pero solo que busque especificamente de una celda indicada y devuelva el resultado en otra celda indicada.

como hago esa macro?

prueba con un bucle que recorra las celdas del rango, por ejemplo:

Dim celda as Range
Dim TuRango as Range
...
For Each celda In TuRango.Cells
 ' aquí recorremos las celdas dentro de TuRango
 ' por ejemplo para comparar
 ...
Next
 

------
Ya sé Excel, pero necesito más
La potencia sin control no sirve de nada.
agradecimientos

encontre otra manera:Sub Macro2()

    'busco en el rango y la celda que quiero buscar
   
   
    On Error Resume Next ' por si no esta lo buscado
   
    Range("A15:A20").Select
    Selection.Find(What:=cells(3, 2), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
   
    cells(3, 5) = ActiveCell 'me coloca el resultado en la celda especificada
   
  
  
  
   
End Sub
Sub BUSSIEMENS_2Rectángulo_Haga_clic_en()
On Error Resume Next
Selection.FindNext(After:=ActiveCell).Activate 'sino es el resultado sigo con la busqueda
cells(3, 5) = ActiveCell

End Sub

bien pero ahora necesito poner en otra celda el titulo de el numero que busque. y ahora que hago! ja

se la forma pero no se como hacer para obtener el numero de fila de mi activecell

sabras?

Gracias!

YA ESTA!

Sub Macro2()

    'busco en el rango y la celda que quiero buscar
   
   
    On Error Resume Next ' por si no esta lo buscado
   
    Range("l2:l9000").Select
    Selection.Find(What:=cells(3, 2), After:=ActiveCell, LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
   
    cells(3, 5) = ActiveCell 'me coloca el resultado en la celda especificada

   a = ActiveCell.Row
   cells(6, 5) = cells(a, 16)
   cells(9, 5) = cells(a, 15)
   cells(11, 5) = cells(a, 20)
  
   
End Sub

Sub BUSSIEMENS_2Rectángulo_Haga_clic_en()
On Error Resume Next
Selection.FindNext(After:=ActiveCell).Activate 'sino
cells(3, 5) = ActiveCell

a = ActiveCell.Row
cells(6, 5) = cells(a, 16)
cells(9, 5) = cells(a, 15)
cells(11, 5) = cells(a, 20)

End Sub