EXTRAER CANTIDAD DE UNA CELDA

Buenas Tardes

No especificas si son de una cantidad N de caracteres, si los divide
punto decimal o si pueden estar contenidos al inicio, intermedio o
final del texto, suponiendo algunos puntos te dejo dirección que
anteriormente Hector Miguel puso en una función, solo es que lo
adaptes a tu necesidad y si existe alguno punto comentas aquí te dejo
la dirección (esta recortada para que accedas mas fácil.

http://tinyurl.com/22seddb

Saludos


On Dec 3, 11:39 am, Pepito wrote:

Hola foro :

Quiero su apoyo para Extraer UNA CANTIDAD de una cadena de texto.
 Ejem "A1" = "maq envolvedora sg ft 9994 8-5"
          "B"  =  9994

On 3 dic, 16:39, Duck-pet wrote:

Buenas Tardes

No especificas si son de una cantidad N de caracteres, si los divide
punto decimal o si pueden estar contenidos al inicio, intermedio o
final del texto, suponiendo algunos puntos te dejo dirección que
anteriormente Hector Miguel puso en una función, solo es que lo
adaptes a tu necesidad y si existe alguno punto comentas aquí te dejo
la dirección (esta recortada para que accedas mas fácil.

http://tinyurl.com/22seddb

Saludos

On Dec 3, 11:39 am, Pepito wrote:

> Hola foro :

> Quiero su apoyo para Extraer UNA CANTIDAD de una cadena de texto.
>  Ejem "A1" = "maq envolvedora sg ft 9994 8-5"
>           "B"  =  9994

1.- No tiene punto decimal
2.- no tiene posicion fija
3.- Son solo numeros separados por espacios
4.- pueden estar con culaquier posicion de a cadena de texto

ejem.

Maquina Envolvedora sg ft 9994 8-5 9994
Batidora Mca Simmons 6787 6787
Molino 45666 sg ft 4566
cheque num 345 12-5 345

Hola

Buenas tardes...

esperando que te sirviera la función que te deje en la liga, te dejo
como me queda a mi adaptada en este caso y funciona! (hay que pegar el
código en un modulo estándar, y para hacer uso suponiendo tu cadena
de texto esta en A1, en B1 pondrías =DiezDigitos(A1), las macros deben
de estar activadas, el código que aquí te expongo va a buscar y
encontrar cadenas de numero que sean de 3 a 6 caracteres, pero si
requieres que sea solo de 3 en adelante cambia .Pattern = "(\b
\d{3,6}\b)" por .Pattern = "(\d{3})" ...)

espero haber cubierto todo

aquí el código

Function DiezDigitos(Cadena As String, Optional Veces As Byte = 1) As
String
Dim n As Byte, Parcial As String, Total As String
Parcial = Cadena
With CreateObject("vbscript.regexp")
For n = 1 To Veces
.Pattern = "(\b\d{3,6}\b)"
If .Test(Parcial) Then
Total = Total & "," & .Execute(Parcial)(0)
Parcial = .Replace(Parcial, "")
End If
Next
End With
DiezDigitos = Mid(Total, 2)
End Function


agradecimientos por este aporte originalmente Hector Miguel

Saludos





On Dec 5, 10:34 am, Pepito wrote:

On 3 dic, 16:39, Duck-pet wrote:









> Buenas Tardes

> No especificas si son de una cantidad N de caracteres, si los divide
> punto decimal o si pueden estar contenidos al inicio, intermedio o
> final del texto, suponiendo algunos puntos te dejo dirección que
> anteriormente Hector Miguel puso en una función, solo es que lo
> adaptes a tu necesidad y si existe alguno punto comentas aquí te dejo
> la dirección (esta recortada para que accedas mas fácil.

>http://tinyurl.com/22seddb

> Saludos

> On Dec 3, 11:39 am, Pepito wrote:

> > Hola foro :

> > Quiero su apoyo para Extraer UNA CANTIDAD de una cadena de texto.
> >  Ejem "A1" = "maq envolvedora sg ft 9994 8-5"
> >           "B"  =  9994

1.- No tiene punto decimal
2.- no tiene posicion fija
3.- Son solo numeros separados por espacios
4.- pueden estar con culaquier posicion de a cadena de texto

ejem.

Maquina Envolvedora sg ft 9994  8-5            9994
Batidora Mca Simmons   6787                    6787
Molino  45666 sg ft                                     4566
cheque num 345 12-5                                   345