Desagregar datos de dos columnas

[Gragera1986]

Tengo dos columnas (B y C), en la izquierda un código y en la derecha una cantidad. Necesito, que crear dos columnas más donde aparezca cada código con su cantidad, pero con un límite en 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í

 

[Gragera1986]

Estos son los datos de los que se parte:

ISIN Position
DE000A2AAL15 -700,000
XS0782708456 200,000
XS1363560548 15,000
DE000A169NC2 -42,000
ES0211845302 -2,700,000
XS1420338102...

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! Gragera. Una solución sería:

Sub Macro1()
Dim Mat(1 To 2), Res, Q&, i&, R&, Tmp#

With Range("c2", [c2].End(xlDown))
  Mat(1) = .Offset(, -1)
  Mat(2) = .Value
  Q =...

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í

 

[Gragera1986]

Es perfecto, justo lo que buscaba.

Muchas gracias.

Un saludo,

 

[Cacho R]

.

Es perfecto, justo lo que buscaba. Muchas gracias.

Me alegra que así sea y hasta la próxima.

 

[Gragera1986]

La macro me funciona bien, pero sin saber porqué no puedo meter más de 44 filas, cuando meto la 45 la macro deja de funcionar. El caso es que he buscado en el código que me mandaste alguna...

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]

.
Opción A) Podrías tener alguna celda vacía.
Opción B) Sube tu implementación al Foro para darle una mirada.
.

 

[Gragera1986]

No hay ninguna celda vacía, esta es la macro:

Sub Macro1()
'
' Macro1 Macro
'
Dim Mat(1 To 2), Res, Q&, i&, R&, Tmp#

With Range("c2", [c2].End(xlDown))
Mat(1) = .Offset(, -1)
Mat(2) = .Value...

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í

 

[Gragera1986]

Hay que tener en cuenta que el listado de datos puede tener 100 filas o incluso algo más.

Gracias.

 

[Cacho R]

.
Te recuerdo la "Opción B":

Opción A) Podrías tener alguna celda vacía.
Opción B) Sube tu implementación al Foro para darle una mirada.

Esto es: publicar la misma macro...

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í

 

[Gragera1986]

Bueno, como ves estoy bastante flojo en esto de VBA, es batante nuevo para mi.

La macro que he pegado es exactamente la que tengo en el excel y funciona, a excepción del problema que te he...

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]

.

... Perdona, pero no sé qué información adicional te puedo poner.

Vamos por tercera vez: el archivo Excel con la macro incluida...

 

[Gragera1986]

Tomate algo de mi parte chaval :wink:

 

[Cacho R]

.
Lée la regla 2 de este Foro y sé feliz.