Macro muy lenta.

[Jose Ignacio Pino Mondeja]

Buenas tardes reiteradas colegas.
Necesio alguna sugerencia de los especialistas para optimizar, o sea, hacer un poco más veloz el proceso de esta macro.
El archivo es el mismo del tema anterior...

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í

 

[Adrian]

Hola, por si te sirve:

Sub MejoraTiempo()
Dim  Estado as integer
Estado = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreeUpdating = False...

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í

 

[Jose Ignacio Pino Mondeja]

Hola, por si te sirve:

Sub MejoraTiempo()
Dim  Estado as integer
Estado = Application.Calculation
Application.Calculation = xlCalculationManual...

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í

 

[Adrian]

Hola, como descativas el calculo automatico, y luego lo restauras ahí pierdes ese cálculo, prueba despues de restaurar el calculo automatico poner:
Application.Calculate
o bien...

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í

 

[Jose Ignacio Pino Mondeja]

Hola, como descativas el calculo automatico, y luego lo restauras ahí pierdes ese cálculo, prueba despues de restaurar el calculo automatico poner...

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í

 

[Jose Ignacio Pino Mondeja]

Hola, como descativas el calculo automatico, y luego lo restauras ahí pierdes ese cálculo, prueba despues de restaurar el calculo automatico poner...

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í

 

[Adrian]

La verdad no sé que puede estar pasando, hice minímas modificaciones. Espero sirva:

Sub MejoraTiempo()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False...

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í

 

[Jose Ignacio Pino Mondeja]

La verdad no sé que puede estar pasando, hice minímas modificaciones. Espero sirva:

Sub MejoraTiempo()
Application.Calculation =...

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í