Separar números de texto en una casilla
Muy buenas experto, tengo varias casillas en donde en la misma hay texto y números, ej:"BLUSA DAMA 392-652755 N/T L". Necesitaría unicamete extraer "392-652755". Solo que la funcion "extrae" no me funcionaria ya q en otras casillas maneja varias descripciones diferentes y el texto puede ser mas largo o corto; además consulté en otras paginas como realizarlo y la solución sería:"=1*EXTRAE(A1,COINCIDIR(VERDADERO,ESNUMERO(1*EXTRAE(A1,FILA($1:$9),1)),0),CONTAR(1*EXTRAE(A1,FILA($1:$9),1)))" y esta fórmula tampoco me funciona.
Por favor ayudame con esto por favor, gracias!
Por favor ayudame con esto por favor, gracias!
Respuesta de angelcrisnor
1
A ver si esta función te sirve:
Function ACN_Extrae_numero(Texto As String) As String
NumeroChar = "0"
For i = Len(Texto) To 1 Step -1
If IsNumeric(Mid(Texto, i, Len(Texto))) Then
NumeroChar = Mid(Texto, i, Len(Texto))
End If
Next
ACN_Extrae_numero = NumeroChar
End Function
Function ACN_Extrae_numero(Texto As String) As String
NumeroChar = "0"
For i = Len(Texto) To 1 Step -1
If IsNumeric(Mid(Texto, i, Len(Texto))) Then
NumeroChar = Mid(Texto, i, Len(Texto))
End If
Next
ACN_Extrae_numero = NumeroChar
End Function
