UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 Por favor que mi macro se mas rapida el 03/05/16, 11:34 am

Nenita


buenas Tardes  Espero se encuentren pasando una semana de éxito,,,,


suplico por favor por este medio si alguien me puede ayudar  con mi siguiente código  este funciona a la perfección 
 pero una cosa le  hace falta  .....
 

que sea mas rápido  
ya que cuando tengo hasta 500  registros  va rápido  termina en 3 o 4 minutos....

Pero cuando  ya son 800 mil registros  pues se tarda hasta cuatro o 5  días en terminar   no se en donde esta la falla 

si alguien me podría ayudar se los agradecería  mucho

aquí esta el código y adjunto el archivo...
Código:
Sub CopiarDatosIguales()

Dim b As Long, a As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False


For b = 2 To Range("AI2").End(xlDown).Row
   Set a = Columns("K").Find(What:=Range("AI" & b).Value, LookAt:=xlWhole)
   If Not a Is Nothing Then
      If b Mod 500 = 0 Then Application.StatusBar = "Fila: " & b
      Range(Range("AR" & b), Range("BL" & b)).Value = _
      Range(Range("A" & a.Row), Range("U" & a.Row)).Value
      Range("K" & a.Row).Interior.ColorIndex = Int(Rnd * 55) + 1
      Range("AI" & b).Interior.ColorIndex = off
   End If
Next

Application.StatusBar = "Listo"

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False


MsgBox "Proceso completado"
End Sub
Archivos
envio03.xlsm
No tienes los permisos para descargar los archivos.
(57 KB)

wibly


No entiendo qué pasa con este tema que se repite varias veces en el foro...

Aquí http://www.universoexcelforo.com/t1905-ayuda-para-que-sea-mas-rapido-mimaacro comentaste que en otro foro te habían ayudado y sigues abriendo temas por lo mismo?

Saludos

Admin


Admin

http://www.universoexcelforo.com

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.