LENTITUD EXTREMA AL EJECUTAR MACRO

Solo consultas sobre macros y código VBA Excel.

Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
     

LENTITUD EXTREMA AL EJECUTAR MACRO

Notapor Susana78 » 19 Dic 2011 09:07

Buenos días,
Tengo creada una macro en mi PC y funciona perfectamente. En cambio en otro PC tenemos una macro creada con las mismas acciones grabadas y la mayoría de las veces en que la ejecutamos va extremadamente lenta, digamos que de 20/30 segundos que tarda normalmente, puede llegar a tardar más de 5 minutos.
La Grabación contiene: eliminación de columnas y filas, textos escritos, colores en las celdas, fórmula BUSCARV en la primera fila y arreglos en la configuración de la página.

Otras macros creadas en ese mismo PC funcionan siempre bien, en cambio esta en particular funciona con extremada lentitud la mayoría de las veces. Lo que no entendemos es que de vez en cuando se ejecuta en un tiempo normal...

Si podéis ayudarme os lo agradecería.

Saludos
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Susana78
Miembro Nuevo
Miembro Nuevo
 
Registrado: 19 Dic 2011 07:21

Re: LENTITUD EXTREMA AL EJECUTAR MACRO

Notapor Adrian » 19 Dic 2011 12:40

Hola, depende de tu pc, del procesador, de la cantidad de memoria RAM, y otros factores pero esto te puede ayudar:
Código: Seleccionar todo
Sub MejoraTiempo()
Dim Celda As Range, Estado as integer
Estado = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreeUpdating = False
Application.Enableevents = False

'Tu código

Application.Calculation = estado
Application.Enableevents = True
Application.ScreeUpdating = True
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
Adrian
Moderator
Moderator
 
Registrado: 13 Jun 2004 17:24
Ubicación: Chamical La Rioja ARG

Re: LENTITUD EXTREMA AL EJECUTAR MACRO

Notapor Susana78 » 21 Dic 2011 04:43

Perdona mi torpeza, ¿Pero debo pegarlo en la macro? si es así, ¿En que posición?
Gracias y saludos,
Susana
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Susana78
Miembro Nuevo
Miembro Nuevo
 
Registrado: 19 Dic 2011 07:21

Re: LENTITUD EXTREMA AL EJECUTAR MACRO

Notapor TodoExcel » 21 Dic 2011 07:41

Debes poner estas líneas al comienzo de tu macro

Código: Seleccionar todo
Application.Calculation = xlCalculationManual
Application.ScreeUpdating = False
Application.Enableevents = False


Y luego poner estas líneas al final de tu macro

Código: Seleccionar todo
Application.Calculation = xlCalculationAutomatic
Application.Enableevents = True
Application.ScreeUpdating = True


Eso debería acelerar tu macro!
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
Avatar de Usuario
TodoExcel
Manager Exceluciones
Manager Exceluciones
 
Registrado: 05 Jun 2004 16:05


Compartir en:
     

  • Anuncio
Manual Excel avanzado

Volver a Macros

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados