Separar cadena de número por decimal

[cargarpe]

Buenas a todos.
Mi duda es la siguiente, tengo la siguiente cadena de numero separada solo por puntos que corresponde al decimal...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Victor Luis]

Holas...


◘ Usa la funcion InStr para ubicar los puntos:

w1="509517.53482073.34466293.14508147.80511392.34448448.62449947.46"
cp1= InStr(1,w1,".")' donde cp1=7 la posicion del 1º punto
' ahora...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[cargarpe]

Hi! muchisimas gracias por tu respuesta
Creo que la segunda opción es la que más se adecuaría a lo que necesito, el caso es que estoy flojo de VBA y tengo dudas, el codigo que he puesto es...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! cargarpe (y Víctor)
Suponiendo que tu dato se encuentre en la celda A1, el siguiente código:

Sub Macro1()
Dim T1$, i%, j%, T2
T1 = Range("A1")
j = 1
Do
  i = InStr(j, T1, ".") +...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Uno más para la colección:

Sub Macro2()
Dim T1$, i%, T2$, T3
T1 = Range("A1")
For i = 1 To Len(T1)
  T3 = Mid(T1, i, 1)
  If T3 = "." Then
    T2 = T2 & Mid(T1, i, 3) & "@"
    i = i + 2...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[cargarpe]

Hola Cacho R:

Muchisimas gracias, me funciona perfectamente. Tengo dos cuestiones:

• me gustario obtener los datos en fila, en lugar de transpuesta. Por cual tendría que cambiar la función...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

- me gustario obtener los datos en fila, en lugar de transpuesta. Por cual tendría que cambiar la función transpose?

¡Ni más ni menos!... Puedes, por ejemplo, reemplazar...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Victor Luis]

Holas...


El Metodo del Amigo Cacho esta bien, lo que hace es buscar la posicion de los puntos con InStr e inserta el caracter @ despues de 2 caracteres que serian los 2 decimales. Luego los...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[cargarpe]

muchas gracias a ambos por la ayuda, creo que al final me quedaré con la formula que me facilita Cacho R ya que he conseguido obtener más resultados.
Una cosilla, como podría conseguir que la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Una cosilla, como podría conseguir que la macro se fuese aplicando a cada línea?

Sube al Foro tu archivo de muestra, por favor...

 

[cargarpe]

Adjunto archivo.
Muchas gracias

 

[Cacho R]

Hola! cargarpe. ¡Tienes suerte!... :mrgreen: :P :D

Normalmente cuando un consultante cambia la estructura de los datos que había presentado inicialmente: ¡Doy por terminada mi...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[cargarpe]

Buenas de nuevo:

Perdón por el cambio de estructura, en ningún momento lo hice con mala intención, simplemente intenté no sobrecargar el post de información e intenté abreviar, era la primera vez...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Perdón por el cambio de estructura, en ningún momento lo hice con mala intención...

¡Ni que lo digas!... Imagino que habrás creído que era más simple procesar cada línea...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí