Excel - extrae y separa digitos de una celda

   
Vista:

extrae y separa digitos de una celda

Publicado por daniel torres (4 intervenciones) el 18/12/2014 18:51:59
bienas tardes tengo la siguiente situacion:
en celda A1
CAJA 33 ACOMODAR EN EL PASILLO 142 RACK 22

Quisiera extraer solo los números que vienen en esa celda pero separados por un espacio
es decir: 33 142 22
gRCIAS.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de LaO

extrae y separa digitos de una celda

Publicado por LaO (67 intervenciones) el 18/12/2014 19:58:07
Hola Daniel,

Para esto es necesario trabajar con una UDF ó función personalizada.

Asigna en un módulo la siguiente función y en la celda donde desees ver el resultado colocas la fórmula =fnGetNumberString(C3), en donde C3 es la celda de ejemplo que contiene la cadena CAJA 33 ACOMODAR EN EL PASILLO 142 RACK 22

------------------------------------------------------------------------------------------------------------------------------------------------>

Function fnGetNumberString(strData As String)

Dim n As Integer, i As Integer
Dim strNumberData As String, strPar As String

'vars
n = Len(strData)

'get string number data
For i = 1 To n

'get character
strPar = Mid(strData, i, 1)

'check numeric data
If IsNumeric(strPar) Then

If strNumberData = Empty Then
strNumberData = strPar
Else
strNumberData = strNumberData & strPar
End If

Else

'check and asign space character
If Left(strNumberData, 1) <> Chr(32) Or Right(strNumberData, 1) <> Chr(32) Then
strNumberData = strNumberData & Chr(32)
End If

End If

Next i

'check left space character
If Left(strNumberData, 1) = Chr(32) Then strNumberData = Mid(strNumberData, 2, Len(strNumberData))

'final result
fnGetNumberString = strNumberData

End Function

------------------------------------------------------------------------------------------------------------------------------------------------>

Un saludo,
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

extrae y separa digitos de una celda

Publicado por daniel torres torres_gd2@hotmail.com (4 intervenciones) el 18/12/2014 22:14:57
MIL VECES MIL GRACIAS POR EL APORTE.... ME HA SERVIDO DE MUCHO.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar