Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste[/CODE]
De esta forma, le estoy diciendo que copie todo lo que encuentre y lo pegue en el libro1 en la columna A y vuelva al libro CopyPS_prueba y se coloque en la misma fila pero en la columna siguiente. El problema es que no sé como indicarle que se coloque en ese sitio y por eso he utilizado el Do while, y he añadido una fila entera vacía antes de comenzar todo el proceso.
Había pensado poner un bucle de Column.Index para que recorriera siempre desde la misma fila 11 a través de todas las columnas y probablemente no sea necesario tanto código.
Buenos días,
Aquí me encuentro de nuevo, pidiendo vuestra ayuda.
Tengo que ordenar números de tal forma que recorra cada columna que tenga datos, los copie, y pegue los valores en una única columna.
El código que estoy trabajando es el siguiente:
De esta forma, le estoy diciendo que copie todo lo que encuentre y lo pegue en el libro1 en la columna A y vuelva al libro CopyPS_prueba y se coloque en la misma fila pero en la columna siguiente. El problema es que no sé como indicarle que se coloque en ese sitio y por eso he utilizado el Do while, y he añadido una fila entera vacía antes de comenzar todo el proceso.
Había pensado poner un bucle de Column.Index para que recorriera siempre desde la misma fila 11 a través de todas las columnas y probablemente no sea necesario tanto código.
A ver si podéis echarme un cable.
Os mando el adjunto.
Gracias de antemano.
Macro_autocompletar.xls