Extraer nuemros de una cadena de texto

No hubieran venido mal unos cuantos ejemplos, pero de todas formas prueba con esta función:

Function ExtraerTeléfono(strC As String) As String
Dim mtr() As String
Dim n As Integer

mtr() = Split(strC, " ")

For n = LBound(mtr) To UBound(mtr)

If IsNumeric(mtr(n)) And Len(mtr(n)) = 9 Then 'Suponiendo que los números de teléfono tengan 9 dígitos
ExtraerTeléfono = mtr(n)
Exit Function
End If
Next n

End Function

La sintaxis es:
=ExtraerTeléfono(CeldaDondeEstéLaCadenaDeTexto)

Un saludo.


Fernando Arroyo
MS MVP - Excel


"Gerardo Roda" escribió en el mensaje news:%

Hola a todos

Tengo que extraer numeros de una cadena de texto, mejor dicho de 4200
textos, son avisos clasificados y no todos tienen los numeros en el mismo
lugar.
Intente con formulas, y consegui una buena parte. Como son numeros de
telefono, puse hice una formula para ubicar "Tel" y a partri de ahi me
extrae los 8 caracterees siguientes.
Pero esto me incluye espacios delante o detras. Y falla si no se encuentra
la cadena "Tel"

Se puede hacer con formula ? ...creaando una funcion ?
Con un macro ?el codigo please ¡¡¡

Gracias

gerardo roda