Optimizar código

[alistair807]

Cordial saludo

Acudo a vuestra ayuda para que me apoyen en un posible solución con el fin optmizar el código de la macro que estoy usado para copiar información de una hoja a otra hoja...

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í

 

[Macro Antonio]

El problema viene de utilizar el método End(xlDown) en lugar de End(xlUp).
He probado con 5.000 filas y el tiempo de ejecución apenas se demora 1 segundo.

Sub Copiar()...

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í

 

[Haplox]

@alistair807 , tienes un pequeño jaleo con los Whith y los Select. SI trabajas sobre una hoja con Whith, NO TIENES que seleccionarla, para eso ya le dices con el Whith/End Whith...

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í

 

[alistair807]

@Haplox y @Antoni gracias por sus valiosos aporte, fuerón de mucha utilidad. Gracias y saludos