It is currently Sun Jan 21, 2018 5:36 am


All times are UTC - 5 hours




Post new topic Reply to topic  [ 1 post ] 
Author Message
 Post subject: Tarda mucho esta macro
PostPosted: Tue Oct 19, 2010 10:43 am 

Joined: Tue May 04, 2010 5:31 pm
Posts: 6
Hola,

Tengo el siguiente código:

===================
Sub Cuotas()
Dim TablaCuotas (70,11)

' Rutina para alimentar la TablaCuotas
For Edad = 15 to 70
For Cobertura = 1 to 11
TablaCuotas (Edad,Cuotas) = Cells(23 + Cobertura, 4).Value
Next Cobertura
Next Edad

'Rutina para copiar los resultados a la hoja "Tarifas por Edad"
Sheets("Tarifas por Edad").Select
For Edad = 15 To 70
For Cobertura = 1 To 11
Cells(Edad - 12, Cobertura + 1).Value = TablaCuotas(Edad, Cobertura)
Next Cobertura
Next Edad
End
================

Omiti algunas líneas de código por no ser relevantes en mi problema. La situación es que ya que tengo listo la matriz "TablaCuotas" con los valores que necesito, éstos los quiero vaciar a la hoja "Tarifas por Edad" y usando el código que aqui pongo, se tarda alrededor de 25 minutos en hacerlo y no sé por qué.

¿Qué estoy haciendo mal? ¿cómo puedo bajar ese tiempo a un par de minutos cuando mucho?

Muchísimo les agradeceré la ayuda que me puedan dar (mi cliente ya se me está desesperando y yo no encuentro la salida).

Saludos.


Top
Offline Profile Send private message  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 1 post ] 

All times are UTC - 5 hours


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Jump to:  
cron
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Theme created StylerBB.net