Anónimo
Extraer numero de en celda alfanumérica
Hola,
a ver si me podéis ayudar con esto,
si tengo en la celda a1 lo siguiente: 778899843M1
EN A2 3I839938H5
EN A3 7779397489
Como puedo hacer para que me devuelva el numero a partir de la letra, y si no hay letra, me de un cero
Muchas gracias de antemano
a ver si me podéis ayudar con esto,
si tengo en la celda a1 lo siguiente: 778899843M1
EN A2 3I839938H5
EN A3 7779397489
Como puedo hacer para que me devuelva el numero a partir de la letra, y si no hay letra, me de un cero
Muchas gracias de antemano
1 Respuesta
Respuesta de angelcrisnor
1
En A1 (778899843M1) --> 1
EN A3 (7779397489) --> 0
¿Y si me encuentrto dos letras, como en este caso? ¿Qué hay que poner?
EN A2 (3I839938H5) --> ¿839938? ¿839938H5? ¿5?
EN A3 (7779397489) --> 0
¿Y si me encuentrto dos letras, como en este caso? ¿Qué hay que poner?
EN A2 (3I839938H5) --> ¿839938? ¿839938H5? ¿5?
si, a1 y a2 estan bien
Y en la a3 es que al escribir se me iría el dedo y no me di cuenta, lo siento
Y en la a3 es que al escribir se me iría el dedo y no me di cuenta, lo siento
¿Seguro? Creo que se te ha vuelto a ir el dedo...
Me parece que si, disculpa, las horas que son... que ya no se ni lo que tecleo
A ver si esta función cumple con lo que esperas:
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