Pasar varias columnas a una sola sin espacios

[nicolbarahona]

Hola a todos:

quería solicitar su ayuda para hacer un macro pueda pasar varias columnas a una sola.

Las columnas van de la "A" a la "VY", y tienes distinto números de filas que van hasta...

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! Nico. Por ejemplo:

- ¿Sería correcto afirmar que el contenido del rango [highlight=#FFFFAA]B1:B5[/highlight] debe ir al rango [highlight=#FFFFAA]A4:A8[/highlight]?

-...

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í

 

[nicolbarahona]

GRACIAS POR RESPONDER!!
Sí, la idea es que no queden espacios entre una columna y otra al ordenarlas en la columna A.

 

[Cacho R]

Hola! Nicol. Podrías intentar con el siguiente código:

Sub UnaColumna()
Dim C As Range, D As Range, Mat, Q&
ReDim Mat(1 To WorksheetFunction.CountA([a1].CurrentRegion), 1 To 2)

For...

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í

 

[nicolbarahona]

Sí... mil gracias, eso era, me resultó a la perfección y fue super rápido.
Muchas gracias por tu ayuda.
Saludos

 

[Cacho R]

Me alegra que te haya sido de utilidad.
Saludos y hasta la próxima.